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

Fix typo in LR_Modules/ccgsolve_all 

Spotted by running TDDFPT example 18 (finite-frequency sternheimer)
This commit is contained in:
Jae-Mo Lihm 2025-06-19 22:24:42 +02:00
parent cc85de02f7
commit f3b5cc95e0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LR_Modules/ccgsolve_all.f90
View File

@ -245,7 +245,7 @@ subroutine ccgsolve_all (ch_psi, ccg_psi, e, d0psi, dpsi, h_diag, &
! change sign to h and hs
!
!$acc kernels
h (:,ibnd_)=-g (:,ibnd_)
h (:,ibnd_)=-h (:,ibnd_)
hs(:,ibnd_)=-hs(:,ibnd_)
!$acc end kernels
if (iter.ne.1) then