scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Quick fixes in PHonon

This commit is contained in:
H. Lee 2021-07-14 22:43:37 +02:00
parent 79236913a6
commit 9ca153f9a1
4 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
PHonon/PH/solve_e.f90
View File

@ -109,6 +109,7 @@ subroutine solve_e
! This routine is task group aware
!
allocate (dvscfin( dfftp%nnr, nspin_mag, 3))
dvscfin=(0.0_DP,0.0_DP)
if (doublegrid) then
allocate (dvscfins(dffts%nnr, nspin_mag, 3))
else

1
PHonon/PH/solve_e2.f90
View File

@ -84,6 +84,7 @@ subroutine solve_e2
call start_clock('solve_e2')
allocate (dvscfin( dfftp%nnr, nspin, 6))
dvscfin=(0.0_DP,0.0_DP)
if (doublegrid) then
allocate (dvscfins(dffts%nnr, nspin, 6))
else

1
PHonon/PH/solve_e_fpol.f90
View File

@ -94,6 +94,7 @@ subroutine solve_e_fpol ( iw )
call start_clock ('solve_e')
allocate (dvscfin( dfftp%nnr, nspin, 3))
dvscfin=(0.0_DP,0.0_DP)
if (doublegrid) then
allocate (dvscfins( dffts%nnr, nspin, 3))
else

1
PHonon/PH/solve_linter.f90
View File

@ -170,6 +170,7 @@ SUBROUTINE solve_linter (irr, imode0, npe, drhoscf)
IF (noncolin.AND.domag) nsolv=2
allocate (dvscfin ( dfftp%nnr , nspin_mag , npe))
dvscfin=(0.0_DP,0.0_DP)
if (doublegrid) then
allocate (dvscfins (dffts%nnr , nspin_mag , npe))
else