program write_integrals_erf
 implicit none
 BEGIN_DOC
 ! Saves the two-electron integrals with the $erf(\mu r_{12})/r_{12}$
 ! oprerator into the EZFIO directory.
 END_DOC
 io_mo_two_e_integrals = 'None'
 touch io_mo_two_e_integrals
 io_ao_two_e_integrals = 'None'
 touch io_ao_two_e_integrals
 call routine

end

subroutine routine
 implicit none
 call save_erf_two_e_integrals_ao
 call save_erf_two_e_integrals_mo

end