qp2/src/perturbation/exc_max.irp.f

5 lines
85 B
Fortran

BEGIN_PROVIDER [integer, max_exc_pert]
implicit none
max_exc_pert = 0
END_PROVIDER