2015-04-01 12:02:02 +02:00
|
|
|
BEGIN_PROVIDER [ logical, read_ao_integrals ]
|
|
|
|
|
&BEGIN_PROVIDER [ logical, read_mo_integrals ]
|
|
|
|
|
&BEGIN_PROVIDER [ logical, write_ao_integrals ]
|
|
|
|
|
&BEGIN_PROVIDER [ logical, write_mo_integrals ]
|
|
|
|
|
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! One level of abstraction for disk_access_ao_integrals and disk_access_mo_integrals
|
|
|
|
|
END_DOC
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
|
|
if (disk_access_ao_integrals.EQ.'Read') then
|
|
|
|
|
read_ao_integrals = .True.
|
|
|
|
|
write_ao_integrals = .False.
|
|
|
|
|
|
|
|
|
|
else if (disk_access_ao_integrals.EQ.'Write') then
|
|
|
|
|
read_ao_integrals = .False.
|
|
|
|
|
write_ao_integrals = .True.
|
|
|
|
|
|
|
|
|
|
else if (disk_access_ao_integrals.EQ.'None') then
|
|
|
|
|
read_ao_integrals = .False.
|
|
|
|
|
write_ao_integrals = .False.
|
|
|
|
|
|
2015-09-19 15:05:28 +02:00
|
|
|
else
|
|
|
|
|
print *, 'bielec_integrals/disk_access_ao_integrals has a wrong type'
|
|
|
|
|
stop 1
|
|
|
|
|
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
if (disk_access_mo_integrals.EQ.'Read') then
|
2015-04-01 12:02:02 +02:00
|
|
|
read_mo_integrals = .True.
|
|
|
|
|
write_mo_integrals = .False.
|
|
|
|
|
|
|
|
|
|
else if (disk_access_mo_integrals.EQ.'Write') then
|
|
|
|
|
read_mo_integrals = .False.
|
|
|
|
|
write_mo_integrals = .True.
|
|
|
|
|
|
|
|
|
|
else if (disk_access_mo_integrals.EQ.'None') then
|
|
|
|
|
read_mo_integrals = .False.
|
|
|
|
|
write_mo_integrals = .False.
|
|
|
|
|
|
|
|
|
|
else
|
2015-09-19 15:05:28 +02:00
|
|
|
print *, 'bielec_integrals/disk_access_mo_integrals has a wrong type'
|
|
|
|
|
stop 1
|
2015-04-01 12:02:02 +02:00
|
|
|
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
END_PROVIDER
|
