mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-26 19:40:57 +02:00
19 lines
353 B
Fortran
19 lines
353 B
Fortran
|
program write_integrals
|
||
|
|
implicit none
|
||
|
|
read_wf = .true.
|
||
|
|
touch read_wf
|
||
|
|
disk_access_only_mo_one_integrals = "None"
|
||
|
|
touch disk_access_only_mo_one_integrals
|
||
|
|
disk_access_mo_integrals = "None"
|
||
|
|
touch disk_access_mo_integrals
|
||
|
|
call routine
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine routine
|
||
|
|
implicit none
|
||
|
|
call save_one_e_effective_potential
|
||
|
|
call save_erf_bi_elec_integrals
|
||
|
|
|
||
|
|
end
|