Commit 174bc761 authored by Daniel Wortmann's avatar Daniel Wortmann

Second bugfix for #172

parent 507ce9a2
...@@ -107,8 +107,12 @@ CONTAINS ...@@ -107,8 +107,12 @@ CONTAINS
IF (PRESENT(rho)) ALLOCATE(rho(0:ifftd-1,jspins)) IF (PRESENT(rho)) ALLOCATE(rho(0:ifftd-1,jspins))
ENDIF ENDIF
IF (l_noco) THEN IF (l_noco) THEN
ALLOCATE( mx(0:ifftxc3-1),my(0:ifftxc3-1),magmom(0:ifftxc3-1)) IF (xcpot%is_gga()) THEN
IF (xcpot%is_gga()) ALLOCATE(dmagmom(0:ifftxc3-1,3),ddmagmom(0:ifftxc3-1,3,3) ) ALLOCATE( mx(0:ifftxc3-1),my(0:ifftxc3-1),magmom(0:ifftxc3-1))
ALLOCATE(dmagmom(0:ifftxc3-1,3),ddmagmom(0:ifftxc3-1,3,3) )
ELSE
ALLOCATE( mx(0:ifftd-1),my(0:ifftd-1),magmom(0:ifftd-1))
ENDIF
END IF END IF
IF (PRESENT(rho)) THEN IF (PRESENT(rho)) THEN
!Put den_pw on grid and store into rho(:,1:2) !Put den_pw on grid and store into rho(:,1:2)
......
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