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
|
|
|