Commit 84dff9d2 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix. pw_w in type potden was not deallocated in noco case.

parent 8d0ef065
......@@ -44,6 +44,5 @@ CONTAINS
TYPE(t_input),INTENT(INOUT) ::input
input%sigma => sigma
this%efield%sigma=>sigma
PRINT *,"Sigma OK"
END SUBROUTINE init_field
END MODULE m_types_field
......@@ -151,5 +151,6 @@ CONTAINS
pd%vacz=0.0
pd%vacxy=CMPLX(0.0,0.0)
pd%mmpMat = CMPLX(0.0,0.0)
IF (ALLOCATED(pd%pw_w)) DEALLOCATE(pd%pw_w)
END SUBROUTINE resetPotDen
END MODULE m_types_potden
......@@ -48,6 +48,7 @@ CONTAINS
DEALLOCATE(vtot%pw_w)
ELSEIF(noco%l_noco) THEN
CALL vmatgen(stars, atoms,vacuum,sym,input, denRot,vtot)
IF (ALLOCATED(vtot%pw_w)) DEALLOCATE(vtot%pw_w)
ENDIF
!Copy first vacuum into second vacuum if this was not calculated before
......
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