Commit b0cb85c0 authored by Gregor Michalicek's avatar Gregor Michalicek

Added some missing array allocations and dealocations in stden

Array enpara%evac0 was not allocated. None of the enpara arrays were deallocated.
parent ebc166ab
......@@ -90,6 +90,7 @@
ALLOCATE ( enpara%skiplo(atoms%ntypd,input%jspins))
ALLOCATE ( enpara%llochg(atoms%nlod,atoms%ntypd,input%jspins))
ALLOCATE ( enpara%enmix(input%jspins))
ALLOCATE ( enpara%evac0(2,dimension%jspd))
ALLOCATE ( rht(vacuum%nmzd,2,DIMENSION%jspd),vbar(2,atoms%ntypd),sigm(vacuum%nmzd) )
ALLOCATE ( rhoss(DIMENSION%msh,DIMENSION%jspd) )
enpara%enmix=1.0
......@@ -430,6 +431,8 @@
ENDIF
DEALLOCATE ( qpw,rhtxy,rht,xp,rat,eig,rh,rh1 )
DEALLOCATE ( rhoss,vacpar,vbar,sigm )
DEALLOCATE ( enpara%ello0,enpara%el0,enpara%lchange)
DEALLOCATE ( enpara%skiplo,enpara%llochg,enpara%enmix,enpara%evac0)
ENDIF ! mpi%irank == 0
DEALLOCATE ( rho )
!
......
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