mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-13 01:23:52 +01:00
13 lines
302 B
Fortran
13 lines
302 B
Fortran
|
BEGIN_PROVIDER [ logical, do_only_1h1p ]
|
||
|
|
&BEGIN_PROVIDER [ logical, do_only_cas ]
|
||
|
|
&BEGIN_PROVIDER [ logical, do_ddci ]
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! In the CAS case, all those are always false except do_only_cas
|
||
|
|
END_DOC
|
||
|
|
do_only_cas = .True.
|
||
|
|
do_only_1h1p = .False.
|
||
|
|
do_ddci = .False.
|
||
|
|
END_PROVIDER
|
||
|
|
|