Commit 9434afbf authored by Alexander Neukirchen's avatar Alexander Neukirchen

Update divergence.f90

parent 4430ccb6
......@@ -315,7 +315,7 @@ CONTAINS
!REAL, ALLOCATABLE :: ch(:, :)
REAL :: r
!REAL, ALLOCATABLE :: r2Array(:)
INTEGER :: jr, k, nsp, kt
INTEGER :: jr, k, nsp, kt, n
!CALL den%init(stars,atoms,sphhar,vacuum,noco,1,POTDEN_TYPE_DEN)
!ALLOCATE(den%pw_w,mold=den%pw)
......
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