Commit 41c30678 authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed missing allocation in alineso.

parent 7be91954
......@@ -95,9 +95,11 @@ CONTAINS
INQUIRE (file='fleur.qsgw',exist=l_qsgw)
if (l_real) THEN
ALLOCATE ( z_r(DIMENSION%nbasfcn,DIMENSION%neigd,DIMENSION%jspd) )
ALLOCATE (z_c(1,1,1))
z_r(:,:,:)= 0.
else
ALLOCATE ( z_c(DIMENSION%nbasfcn,DIMENSION%neigd,DIMENSION%jspd) )
ALLOCATE (z_r(1,1,1))
z_c(:,:,:)= 0.
endif
zso(:,:,:)= CMPLX(0.,0.)
......@@ -359,7 +361,7 @@ endif
DEALLOCATE ( zhelp2 )
ENDIF ! (.NOT.input%eonly)
DEALLOCATE ( hso )
DEALLOCATE (z_r,z_c, hso )
!
nmat=lapw%nmat
RETURN
......
......@@ -43,8 +43,8 @@ CONTAINS
COMPLEX, INTENT (OUT):: ahelp(-atoms%lmaxd:atoms%lmaxd,atoms%lmaxd,atoms%natd,DIMENSION%neigd,DIMENSION%jspd)
COMPLEX, INTENT (OUT):: bhelp(-atoms%lmaxd:atoms%lmaxd,atoms%lmaxd,atoms%natd,DIMENSION%neigd,DIMENSION%jspd)
COMPLEX, INTENT (OUT):: chelp(-atoms%llod :atoms%llod, DIMENSION%neigd,atoms%nlod,atoms%natd, DIMENSION%jspd)
REAL,INTENT(IN) :: z_r(DIMENSION%nbasfcn,DIMENSION%neigd,DIMENSION%jspd)
COMPLEX,INTENT(IN):: z_c(DIMENSION%nbasfcn,DIMENSION%neigd,DIMENSION%jspd)
REAL,INTENT(IN) :: z_r(:,:,:) ! (DIMENSION%nbasfcn,DIMENSION%neigd,DIMENSION%jspd)
COMPLEX,INTENT(IN) :: z_c(:,:,:) ! (DIMENSION%nbasfcn,DIMENSION%neigd,DIMENSION%jspd)
!-odim
!+odim
! ..
......
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