Commit a2f2539d authored by Daniel Wortmann's avatar Daniel Wortmann

Update symmetrize_matrix.f90 to fix last commit

parent d92f8d06
...@@ -28,10 +28,12 @@ CONTAINS ...@@ -28,10 +28,12 @@ CONTAINS
END IF END IF
!We are using Gamma point, so matrix should be real !We are using Gamma point, so matrix should be real
IF (ALLOCATED(smat%data_r)) DEALLOCATE(smat%data_r)
ALLOCATE(smat%data_r(SIZE(smat%data_c,1),SIZE(smat%data_c,2))) ALLOCATE(smat%data_r(SIZE(smat%data_c,1),SIZE(smat%data_c,2)))
smat%data_r=smat%data_c;smat%l_real=.TRUE. smat%data_r=smat%data_c;smat%l_real=.TRUE.
DEALLOCATE(smat%data_c) DEALLOCATE(smat%data_c)
IF (ALLOCATED(hmat%data_r)) DEALLOCATE(hmat%data_r)
ALLOCATE(hmat%data_r(SIZE(hmat%data_c,1),SIZE(hmat%data_c,2))) ALLOCATE(hmat%data_r(SIZE(hmat%data_c,1),SIZE(hmat%data_c,2)))
hmat%data_r=hmat%data_c;hmat%l_real=.TRUE. hmat%data_r=hmat%data_c;hmat%l_real=.TRUE.
DEALLOCATE(hmat%data_c) DEALLOCATE(hmat%data_c)
......
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