Second bugfix for #172

174bc761 · Daniel Wortmann · 507ce9a2 · 174bc761
Commit 174bc761 authored Aug 09, 2018 by Daniel Wortmann
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

vgen/pw_tofrom_grid.F90 vgen/pw_tofrom_grid.F90 +6 -2

No files found.
--- a/vgen/pw_tofrom_grid.F90
+++ b/vgen/pw_tofrom_grid.F90
@@ -107,8 +107,12 @@ CONTAINS
        IF (PRESENT(rho)) ALLOCATE(rho(0:ifftd-1,jspins))
     ENDIF
    IF (l_noco)  THEN
-       ALLOCATE( mx(0:ifftxc3-1),my(0:ifftxc3-1),magmom(0:ifftxc3-1))
-       IF (xcpot%is_gga()) ALLOCATE(dmagmom(0:ifftxc3-1,3),ddmagmom(0:ifftxc3-1,3,3) )
+       IF (xcpot%is_gga()) THEN
+          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
    IF (PRESENT(rho)) THEN
    !Put den_pw on grid and store into rho(:,1:2)