mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-02 01:03:45 +02:00
19 lines
614 B
Fortran
19 lines
614 B
Fortran
|
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)
|
||
|
call ezfio_set_ao_two_e_erf_ints_io_ao_two_e_integrals_erf('Read')
|
||
|
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
|
||
|
|