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
END DO
IF (hmat%l_real) THEN
hmat%data_r(j, lapw%nv(jsp) + i) = cdum!/ic
hmat%data_r(lapw%nv(jsp) + i,j) = cdum!/ic
ELSE
hmat%data_c(j, lapw%nv(jsp) + i) = cdum!/ic
hmat%data_c(lapw%nv(jsp) + i,j) = CONJG(cdum)!/ic
END IF
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