GPU fix to CP

This commit is contained in:
Fabrizio Ferrari 2022-05-06 11:19:08 +00:00
parent 53c78594ce
commit a4b15d9a79
1 changed files with 1 additions and 1 deletions

View File

@ -523,7 +523,7 @@ DEV_ACC exit data delete(rhotmp)
ELSE
CALL rho_r2g ( dfftp, rhor, rhog )
END IF
DEV_ACC update device (rhog)
!
IF( nspin == 1 ) THEN
CALL zaxpy(p_ngm_, (1.0d0,0.0d0) , vtemp, 1, rhog(:,1), 1)
ELSE