Searched defs:stress_hartree_x (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
| H A D | stress.f90 | 336 SUBROUTINE stress_hartree_x(deht, ehr, sfac, rhot, drhot, gagb, omega ) subroutine
360 REAL(DP), INTENT(OUT) :: DEHT(:)
361 REAL(DP), INTENT(IN) :: omega, EHR, gagb(:,:)
362 COMPLEX(DP) :: rhot(:) ! total charge: Sum_spin ( rho_e + rho_I )
363 COMPLEX(DP) :: drhot(:,:)
364 COMPLEX(DP), INTENT(IN) :: sfac(:,:)
366 COMPLEX(DP) DEHC(6)
367 COMPLEX(DP) CFACT
368 REAL(DP), ALLOCATABLE :: hgm1( : )
369 REAL(DP) :: wz
[all …]
|