Commit 81d6c9b9 authored by Frank Freimuth's avatar Frank Freimuth

Update wann_uHu.F

parent 72313410
......@@ -944,38 +944,30 @@ c if (mod(i_rec-1,isize).eq.irank) then
call cpu_time(t0)
! get current bkpt vector
zzMat%l_real = l_real
! zzMat%nbasfcn = nbasfcn
! zzMat%matsize1 = nbasfcn
! zzMat%nbands = neigd
zzMat%l_real = l_real
zzMat%matsize1 = DIMENSION%nbasfcn
zzMat%matsize2 = DIMENSION%neigd
IF(l_real) THEN
IF(.NOT.ALLOCATED(zzMat%data_r))&
ALLOCATE (zzMat%data_r(zzMat%matsize1,zzMat%matsize2))
IF(.NOT.ALLOCATED(zzMat%data_r))
& ALLOCATE (zzMat%data_r(zzMat%matsize1,zzMat%matsize2))
ELSE
IF(.NOT.ALLOCATED(zzMat%data_c))&
ALLOCATE (zzMat%data_c(zzMat%matsize1,zzMat%matsize2))
IF(.NOT.ALLOCATED(zzMat%data_c))
& ALLOCATE (zzMat%data_c(zzMat%matsize1,zzMat%matsize2))
END IF
! IF(l_real) THEN
! ALLOCATE (zzMat%z_r(zzMat%nbasfcn,zzMat%nbands))
! ELSE
! ALLOCATE (zzMat%z_c(zzMat%nbasfcn,zzMat%nbands))
! END IF
zMat%l_real = zzMat%l_real
zMat%matsize1 = zzMat%matsize1
zMat%matsize2 = zzMat%matsize2
IF (zzMat%l_real) THEN
IF(.NOT.ALLOCATED(zMat%data_r))&
ALLOCATE (zMat%data_r(zMat%matsize1,zMat%matsize2))
IF(.NOT.ALLOCATED(zMat%data_r))
& ALLOCATE (zMat%data_r(zMat%matsize1,zMat%matsize2))
zMat%data_r = 0.0
ELSE
IF(.NOT.ALLOCATED(zMat%data_c))&
ALLOCATE (zMat%data_c(zMat%matsize1,zMat%matsize2))
IF(.NOT.ALLOCATED(zMat%data_c))
& ALLOCATE (zMat%data_c(zMat%matsize1,zMat%matsize2))
zMat%data_c = CMPLX(0.0,0.0)
END IF
......@@ -983,12 +975,12 @@ c if (mod(i_rec-1,isize).eq.irank) then
zMat_b%matsize1 = zzMat%matsize1
zMat_b%matsize2 = zzMat%matsize2
IF (zzMat%l_real) THEN
IF(.NOT.ALLOCATED(zMat_b%data_r))&
ALLOCATE (zMat_b%data_r(zMat_b%matsize1,zMat_b%matsize2))
IF(.NOT.ALLOCATED(zMat_b%data_r))
& ALLOCATE (zMat_b%data_r(zMat_b%matsize1,zMat_b%matsize2))
zMat_b%data_r = 0.0
ELSE
IF(.NOT.ALLOCATED(zMat_b%data_c))&
ALLOCATE (zMat_b%data_c(zMat_b%matsize1,zMat_b%matsize2))
IF(.NOT.ALLOCATED(zMat_b%data_c))
& ALLOCATE (zMat_b%data_c(zMat_b%matsize1,zMat_b%matsize2))
zMat_b%data_c = CMPLX(0.0,0.0)
END IF
......@@ -997,12 +989,12 @@ c if (mod(i_rec-1,isize).eq.irank) then
zMat_b2%matsize1 = zzMat%matsize1
zMat_b2%matsize2 = zzMat%matsize2
IF (zzMat%l_real) THEN
IF(.NOT.ALLOCATED(zMat_b2%data_r))&
ALLOCATE (zMat_b2%data_r(zMat_b%matsize1,zMat_b%matsize2))
IF(.NOT.ALLOCATED(zMat_b2%data_r))
& ALLOCATE (zMat_b2%data_r(zMat_b%matsize1,zMat_b%matsize2))
zMat_b2%data_r = 0.0
ELSE
IF(.NOT.ALLOCATED(zMat_b2%data_c))&
ALLOCATE (zMat_b2%data_c(zMat_b%matsize1,zMat_b%matsize2))
IF(.NOT.ALLOCATED(zMat_b2%data_c))
& ALLOCATE (zMat_b2%data_c(zMat_b%matsize1,zMat_b%matsize2))
zMat_b2%data_c = CMPLX(0.0,0.0)
END IF
......
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