mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-29 04:12:00 +02:00
moved pseudo from h_core to v_e_n in order to make it clean for DFT
This commit is contained in:
parent
88031a9968
commit
4df9ebf4e0
@ -11,9 +11,9 @@
|
||||
ELSE
|
||||
ao_one_e_integrals = ao_integrals_n_e + ao_kinetic_integrals
|
||||
|
||||
IF (DO_PSEUDO) THEN
|
||||
ao_one_e_integrals += ao_pseudo_integrals
|
||||
ENDIF
|
||||
! IF (DO_PSEUDO) THEN
|
||||
! ao_one_e_integrals += ao_pseudo_integrals
|
||||
! ENDIF
|
||||
ENDIF
|
||||
|
||||
DO j = 1, ao_num
|
||||
|
@ -76,6 +76,12 @@ BEGIN_PROVIDER [ double precision, ao_integrals_n_e, (ao_num,ao_num)]
|
||||
!$OMP END DO
|
||||
!$OMP END PARALLEL
|
||||
endif
|
||||
|
||||
IF (DO_PSEUDO) THEN
|
||||
ao_integrals_n_e += ao_pseudo_integrals
|
||||
ENDIF
|
||||
|
||||
|
||||
if (write_ao_integrals_n_e) then
|
||||
call ezfio_set_ao_one_e_ints_ao_integrals_n_e(ao_integrals_n_e)
|
||||
print *, 'AO N-e integrals written to disk'
|
||||
|
@ -12,9 +12,9 @@ BEGIN_PROVIDER [ double precision, mo_one_e_integrals,(mo_num,mo_num)]
|
||||
ELSE
|
||||
mo_one_e_integrals = mo_integrals_n_e + mo_kinetic_integrals
|
||||
|
||||
IF (DO_PSEUDO) THEN
|
||||
mo_one_e_integrals += mo_pseudo_integrals
|
||||
ENDIF
|
||||
! IF (DO_PSEUDO) THEN
|
||||
! mo_one_e_integrals += mo_pseudo_integrals
|
||||
! ENDIF
|
||||
|
||||
ENDIF
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user