C-*- Fortran -*- IMPLICIT DOUBLE PRECISION (A-H,O-Z) PARAMETER (NPLMX=20000) PARAMETER (IWBULL=4096) PARAMETER (NBASM= 200) C PARAMETER (NDETMX=70000) PARAMETER (NDETMX=12500000) C NLMAX: max angular momentum +1 PARAMETER (NATMX=66,NSHLMX=400,NPRIMX=600,NLMAX=5) C for intcal c$$$ PARAMETER (LCMAX=15,LHMAX=165,LLMAX=2*NLMAX+1) PARAMETER (NCMAX=(NLMAX+1)*(NLMAX+2)/2,LHMAX=2000 - ,NSPMAX=2*NLMAX+1)