IffGit has a new shared runner for building Docker images in GitLab CI. Visit https://iffgit.fz-juelich.de/examples/ci-docker-in-docker for more details.

Commit 59267b97 authored by Frank Freimuth's avatar Frank Freimuth
Browse files

Update wann_uHu.F

parent 231a1f1c
...@@ -939,7 +939,7 @@ c if (mod(i_rec-1,isize).eq.irank) then ...@@ -939,7 +939,7 @@ c if (mod(i_rec-1,isize).eq.irank) then
allocate ( eigg(neigd) ) allocate ( eigg(neigd) )
n_start=1 n_start=1
n_end=neigd n_end=DIMENSION%neigd
call cpu_time(t0) call cpu_time(t0)
! get current bkpt vector ! get current bkpt vector
...@@ -1011,29 +1011,10 @@ c if (mod(i_rec-1,isize).eq.irank) then ...@@ -1011,29 +1011,10 @@ c if (mod(i_rec-1,isize).eq.irank) then
call cpu_time(t1) call cpu_time(t1)
t_eig = t_eig + t1 - t0 t_eig = t_eig + t1 - t0
zMat_b%l_real = zzMat%l_real
zMat_b2%l_real = zzMat%l_real
zMat_b%nbasfcn = zzMat%nbasfcn
zMat_b2%nbasfcn = zzMat%nbasfcn
zMat_b%nbands = zzMat%nbands
zMat_b2%nbands = zzMat%nbands
! IF(zzMat%l_real) THEN
! ALLOCATE (zMat_b%z_r(zMat%nbasfcn,zMat%nbands))
! ALLOCATE (zMat_b2%z_r(zMat%nbasfcn,zMat%nbands))
! ELSE
! ALLOCATE (zMat_b%z_c(zMat%nbasfcn,zMat%nbands))
! ALLOCATE (zMat_b2%z_c(zMat%nbasfcn,zMat%nbands))
! END IF
IF(zzMat%l_real) THEN
ALLOCATE (zMat_b%z_r(zMat_b%nbasfcn,zMat_b%nbands))
ALLOCATE (zMat_b2%z_r(zMat_b2%nbasfcn,zMat_b2%nbands))
ELSE
ALLOCATE (zMat_b%z_c(zMat_b%nbasfcn,zMat_b%nbands))
ALLOCATE (zMat_b2%z_c(zMat_b2%nbasfcn,zMat_b2%nbands))
END IF
allocate (we_b(neigd), we_b2(neigd)) allocate (we_b(neigd), we_b2(neigd))
......
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