10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-07 22:53:52 +01:00
QuantumPackage/src/ao_two_e_ints/routines_save_integrals_erf.irp.f

19 lines
610 B
Fortran
Raw Normal View History

2019-01-25 11:39:31 +01:00
subroutine save_erf_two_e_integrals_ao
implicit none
integer :: i,j,k,l
PROVIDE ao_two_e_integrals_erf_in_map
call ezfio_set_work_empty(.False.)
call map_save_to_disk(trim(ezfio_filename)//'/work/ao_ints_erf',ao_integrals_erf_map)
2023-10-16 16:37:08 +02:00
call ezfio_set_ao_two_e_ints_io_ao_two_e_integrals_erf('Read')
2019-01-25 11:39:31 +01:00
end
subroutine save_erf_two_e_ints_ao_into_ints_ao
implicit none
integer :: i,j,k,l
PROVIDE ao_two_e_integrals_erf_in_map
call ezfio_set_work_empty(.False.)
call map_save_to_disk(trim(ezfio_filename)//'/work/ao_ints',ao_integrals_erf_map)
call ezfio_set_ao_two_e_ints_io_ao_two_e_integrals('Read')
end