diff --git a/REPLACE b/REPLACE index 98045d4f..9485fb2a 100755 --- a/REPLACE +++ b/REPLACE @@ -244,3 +244,12 @@ qp_name write_ao_integrals --rename=write_ao_two_e_integrals qp_name write_mo_integrals_erf -r write_mo_two_e_integrals_erf qp_name write_mo_integrals --rename="write_mo_two_e_integrals" qp_name write_mo_integrals --rename=write_mo_two_e_integrals +qp_name io_mo_integrals_e_n -r io_mo_integrals_n_e +qp_name write_mo_integrals_e_n -r write_mo_integrals_n_e +qp_name read_mo_integrals_e_n -r read_mo_integrals_n_e +qp_name mo_integrals_e_n -r mo_integrals_n_e +qp_name ezfio_get_mo_one_e_ints_mo_integrals_e_n -r ezfio_get_mo_one_e_ints_mo_integrals_n_e +qp_name ezfio_set_mo_one_e_ints_mo_integrals_e_n -r ezfio_set_mo_one_e_ints_mo_integrals_n_e +qp_name ezfio_has_mo_one_e_ints_mo_integrals_e_n -r ezfio_has_mo_one_e_ints_mo_integrals_n_e +qp_name ezfio_has_mo_one_e_ints_io_mo_integrals_e_n -r ezfio_has_mo_one_e_ints_io_mo_integrals_n_e +qp_name ezfio_get_mo_one_e_ints_io_mo_integrals_e_n -r ezfio_get_mo_one_e_ints_io_mo_integrals_n_e diff --git a/src/mo_one_e_ints/EZFIO.cfg b/src/mo_one_e_ints/EZFIO.cfg index 79a3b351..1cb77b6e 100644 --- a/src/mo_one_e_ints/EZFIO.cfg +++ b/src/mo_one_e_ints/EZFIO.cfg @@ -1,10 +1,10 @@ -[mo_integrals_e_n] +[mo_integrals_n_e] type: double precision doc: Nucleus-electron integrals in |MO| basis set size: (mo_basis.mo_num,mo_basis.mo_num) interface: ezfio -[io_mo_integrals_e_n] +[io_mo_integrals_n_e] type: Disk_access doc: Read/Write |MO| electron-nucleus attraction integrals from/to disk [ Write | Read | None ] interface: ezfio,provider,ocaml diff --git a/src/mo_one_e_ints/pot_mo_ints.irp.f b/src/mo_one_e_ints/pot_mo_ints.irp.f index 90f7b06c..5cf4febd 100644 --- a/src/mo_one_e_ints/pot_mo_ints.irp.f +++ b/src/mo_one_e_ints/pot_mo_ints.irp.f @@ -4,8 +4,8 @@ BEGIN_PROVIDER [double precision, mo_integrals_n_e, (mo_num,mo_num)] ! Nucleus-electron interaction on the |MO| basis END_DOC - if (read_mo_integrals_e_n) then - call ezfio_get_mo_one_e_ints_mo_integrals_e_n(mo_integrals_n_e) + if (read_mo_integrals_n_e) then + call ezfio_get_mo_one_e_ints_mo_integrals_n_e(mo_integrals_n_e) print *, 'MO N-e integrals read from disk' else call ao_to_mo( & @@ -15,8 +15,8 @@ BEGIN_PROVIDER [double precision, mo_integrals_n_e, (mo_num,mo_num)] size(mo_integrals_n_e,1) & ) endif - if (write_mo_integrals_e_n) then - call ezfio_set_mo_one_e_ints_mo_integrals_e_n(mo_integrals_n_e) + if (write_mo_integrals_n_e) then + call ezfio_set_mo_one_e_ints_mo_integrals_n_e(mo_integrals_n_e) print *, 'MO N-e integrals written to disk' endif