mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-06 03:14:44 +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
|