Skip to content

GitLab

fleur
fleur
Commit 174bc761 authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files
Options

Second bugfix for #172

parent 507ce9a2
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 2 deletions
vgen/pw_tofrom_grid.F90
View file @ 174bc761
......@@ -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)
......
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