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

fix noncolin bug

This commit is contained in:
Oscar Baseggio 2020-07-16 18:02:48 +02:00 committed by Oscar Baseggio
parent 7419391973
commit 6c6a39cbd7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TDDFPT/src/lr_sternheimer.f90
View File

@ -495,7 +495,7 @@ dvpsi =(0.0d0, 0.0d0)
ENDIF
IF (noncolin) THEN
CALL incdrhoscf_nc(dvscfout(1,1,ipol), weight, ik, &
dbecsum_nc(1,1,1,1,ipol), dpsi)
dbecsum_nc(1,1,1,1,ipol), dpsi, 1.0)
ELSE
CALL incdrhoscf (dvscfout(1,current_spin,ipol), weight, &