mirror of https://gitlab.com/QEF/q-e.git
fix compute_scf.f90
This commit is contained in:
parent
9bdee2140e
commit
c459d24d64
|
@ -385,9 +385,17 @@ SUBROUTINE compute_scf( fii, lii, stat )
|
|||
CALL forces()
|
||||
!
|
||||
! ... energy is converted from rydberg to hartree
|
||||
!
|
||||
IF ( lfcp ) THEN
|
||||
!
|
||||
pes(image) = etot / e2 + fcp_mu * tot_charge
|
||||
!
|
||||
ELSE
|
||||
!
|
||||
pes(image) = etot / e2
|
||||
!
|
||||
END IF
|
||||
!
|
||||
! ... add potentio-stat contribution
|
||||
IF ( lfcp ) pes(image) = pes(image) + ef / e2 * tot_charge
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue