quantum_package/src/Integrals_Monoelec/mo_mono_ints.irp.f

BEGIN_PROVIDER [ double precision, mo_mono_elec_integral,(mo_tot_num_align,mo_tot_num)]
  implicit none
  integer                        :: i,j,n,l
  BEGIN_DOC
  ! array of the mono electronic hamiltonian on the MOs basis :
  ! sum of the kinetic and nuclear electronic potential (and pseudo potential if needed)
  END_DOC
  print*,'Providing the mono electronic integrals'

  IF (do_pseudo) THEN
      do j = 1, mo_tot_num
      do i = 1, mo_tot_num
          mo_mono_elec_integral(i,j) = mo_nucl_elec_integral(i,j) + mo_kinetic_integral(i,j) & 
                                       + mo_pseudo_integral(i,j)
      enddo
      enddo

  ELSE
      do j = 1, mo_tot_num
      do i = 1, mo_tot_num
          mo_mono_elec_integral(i,j) = mo_nucl_elec_integral(i,j) + mo_kinetic_integral(i,j)
      enddo
      enddo

  END IF
END_PROVIDER