LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-30 10:18:07 +01:00
Code Releases Activity

Rename e_n - n_e

Browse Source
This commit is contained in:
Anthony Scemama 2020-03-24 09:09:54 +01:00
parent 5b22246674
commit 82e184c516
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
REPLACE
View File

@ -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

4
src/mo_one_e_ints/EZFIO.cfg
View File

@ -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

8
src/mo_one_e_ints/pot_mo_ints.irp.f
View File

@ -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