Commit ceda7bd7 authored by Gregor Michalicek's avatar Gregor Michalicek

In hybrid/symmetrizeh.F90: Also fill LO-LAPW part in other triangle of Hamiltonian matrix

parent dfae603b
...@@ -432,8 +432,10 @@ CONTAINS ...@@ -432,8 +432,10 @@ CONTAINS
END DO END DO
IF (hmat%l_real) THEN IF (hmat%l_real) THEN
hmat%data_r(j, lapw%nv(jsp) + i) = cdum!/ic hmat%data_r(j, lapw%nv(jsp) + i) = cdum!/ic
hmat%data_r(lapw%nv(jsp) + i,j) = cdum!/ic
ELSE ELSE
hmat%data_c(j, lapw%nv(jsp) + i) = cdum!/ic hmat%data_c(j, lapw%nv(jsp) + i) = cdum!/ic
hmat%data_c(lapw%nv(jsp) + i,j) = CONJG(cdum)!/ic
END IF END IF
END DO END DO
END DO END DO
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment