mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-13 01:23:57 +01:00
48 lines
1.7 KiB
Fortran
48 lines
1.7 KiB
Fortran
BEGIN_PROVIDER [double precision, mo_nucl_elec_integral, (mo_tot_num,mo_tot_num)]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! interaction nuclear electron on the MO basis
|
|
END_DOC
|
|
|
|
if (read_mo_one_integrals) then
|
|
call read_one_e_integrals('mo_ne_integral', mo_nucl_elec_integral, &
|
|
size(mo_nucl_elec_integral,1), size(mo_nucl_elec_integral,2))
|
|
print *, 'MO N-e integrals read from disk'
|
|
else
|
|
call ao_to_mo( &
|
|
ao_nucl_elec_integral, &
|
|
size(ao_nucl_elec_integral,1), &
|
|
mo_nucl_elec_integral, &
|
|
size(mo_nucl_elec_integral,1) &
|
|
)
|
|
endif
|
|
if (write_mo_one_integrals) then
|
|
call write_one_e_integrals('mo_ne_integral', mo_nucl_elec_integral, &
|
|
size(mo_nucl_elec_integral,1), size(mo_nucl_elec_integral,2))
|
|
print *, 'MO N-e integrals written to disk'
|
|
endif
|
|
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [double precision, mo_nucl_elec_integral_per_atom, (mo_tot_num,mo_tot_num,nucl_num)]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! mo_nucl_elec_integral_per_atom(i,j,k) = -<MO(i)|1/|r-Rk|MO(j)>
|
|
! where Rk is the geometry of the kth atom
|
|
END_DOC
|
|
|
|
integer :: k
|
|
mo_nucl_elec_integral_per_atom = 0.d0
|
|
do k = 1, nucl_num
|
|
call ao_to_mo( &
|
|
ao_nucl_elec_integral_per_atom(1,1,k), &
|
|
size(ao_nucl_elec_integral_per_atom,1), &
|
|
mo_nucl_elec_integral_per_atom(1,1,k), &
|
|
size(mo_nucl_elec_integral_per_atom,1) &
|
|
)
|
|
enddo
|
|
|
|
END_PROVIDER
|
|
|