9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-09 05:03:29 +01:00
qp2/src/basis_correction/basis_correction.irp.f

17 lines
360 B
Fortran
Raw Normal View History

2020-04-07 11:03:19 +02:00
program basis_correction
implicit none
BEGIN_DOC
! TODO : Put the documentation of the program here
END_DOC
read_wf = .True.
touch read_wf
no_core_density = .True.
touch no_core_density
if(io_mo_two_e_integrals .ne. "Read")then
provide ao_two_e_integrals_in_map
endif
2020-04-07 11:03:19 +02:00
provide mo_two_e_integrals_in_map
call print_basis_correction
end