2
0
mirror of https://github.com/LCPQ/DEHam synced 2024-06-27 23:52:14 +02:00
DEHam/src/natomax.irp.f
2016-12-19 23:34:17 +01:00

23 lines
507 B
Fortran

BEGIN_PROVIDER [integer, natomax]
&BEGIN_PROVIDER [integer, jrangmax]
&BEGIN_PROVIDER [integer, maxial]
&BEGIN_PROVIDER [integer, maxlien]
&BEGIN_PROVIDER [integer, maxplac]
&BEGIN_PROVIDER [integer, maxdet]
&BEGIN_PROVIDER [integer, nrows]
BEGIN_DOC
! provides natomax=22
! provides jrangmax=705432
! provides maxial=20
! provides maxlien=42
END_DOC
implicit none
natomax=700
jrangmax=10705432
maxial=20
maxlien=700
maxplac=20
maxdet=10000
END_PROVIDER