quantum_package/src/Integrals_Monoelec/ao_mono_ints.irp.f

BEGIN_PROVIDER [ double precision, ao_mono_elec_integral,(ao_num_align,ao_num)]
  implicit none
  integer :: i,j,n,l
  BEGIN_DOC
 ! array of the mono electronic hamiltonian on the AOs basis
 ! : sum of the kinetic and nuclear electronic potential 
  END_DOC
  do j = 1, ao_num
   do i = 1, ao_num
    ao_mono_elec_integral(i,j) = ao_nucl_elec_integral(i,j) + ao_kinetic_integral(i,j) + ao_pseudo_integral(i,j)
   enddo
  enddo
END_PROVIDER
Minor changes in Hartree-Fock 2014-04-24 12:31:15 +02:00			`BEGIN_PROVIDER [ double precision, ao_mono_elec_integral,(ao_num_align,ao_num)]`
			`implicit none`
			`integer :: i,j,n,l`
			`BEGIN_DOC`
			`! array of the mono electronic hamiltonian on the AOs basis`
			`! : sum of the kinetic and nuclear electronic potential`
			`END_DOC`
			`do j = 1, ao_num`
			`do i = 1, ao_num`
CLeaning pseudos 2015-05-11 17:58:42 +02:00			`ao_mono_elec_integral(i,j) = ao_nucl_elec_integral(i,j) + ao_kinetic_integral(i,j) + ao_pseudo_integral(i,j)`
Minor changes in Hartree-Fock 2014-04-24 12:31:15 +02:00			`enddo`
			`enddo`
			`END_PROVIDER`