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.

    else if (disk_access_mo_integrals.EQ.'Read') then
        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
        print *, 'bielec_integrals/disk_acces not of a the good type'
        stop "1"

    endif

END_PROVIDER
