mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-07 20:05:56 +02:00
13 lines
252 B
Fortran
13 lines
252 B
Fortran
|
program four_idx
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! 4-index transformation from AO to MO integrals
|
||
|
|
END_DOC
|
||
|
|
|
||
|
|
disk_access_mo_integrals = 'Write'
|
||
|
|
SOFT_TOUCH disk_access_mo_integrals
|
||
|
|
if (.true.) then
|
||
|
|
PROVIDE mo_bielec_integrals_in_map
|
||
|
|
endif
|
||
|
|
end
|