PARAMETER (MZCHF=   160)    !CHANNELS
      PARAMETER (MZTAR=   100)    !TARGET STATES
      PARAMETER (MZLMX=    15)    !MULTIPOLES
      PARAMETER (MZLP1=    87)    !L VALUES FOR BUTTLE
      PARAMETER (MZPTS=  1200)    !OUTER-REGION POINTS
      PARAMETER (MZMSH= 50000)    !FREE-STATE ENERGIES
      PARAMETER (MZMNP=  8000)    !R-MATRIX EIGENVALUES
      PARAMETER (MZSLP=   125)    !SLPI VALUES
      PARAMETER (MZTET=   125)    !COEFFICIENTS FOR THETA EXPANSION
      PARAMETER (MZDEG= MZCHF)    !CLOSED CHANNELS FOR MQDT
      PARAMETER (MZNRG=    90)    !PARAMETER FOR NEW BUTTLE FIT (APPR.=NRANG2)
      PARAMETER (MZREC=     8)    !RECORD LENGTH FOR ONE WORD
      PARAMETER (MZMEG=     6)    !MEGA-WORDS OF INTERNAL MEMORY TO REDUCE I/O
C
C STGFDAMP/STGBF0DAMP ONLY
C
      PARAMETER (MZMET=     4)    !INITIAL STATES/SYMMETRIES FOR PR/PI
      PARAMETER (MZEPI=     2)    !INITIAL ENERGIES PER SYMMETRY FOR PI
      PARAMETER (MZPHT=    10)    !FINAL STATES FOR PHOTOIONIZATION 
      PARAMETER (MZEST=   050)    !ALL BOUND STATE ENERGIES PER SYMMETRY
      PARAMETER (MZDEC=3*MZEST)   !UNRESOLVED RAD DECAY STATES TYPE-2I 
C IPHOTO.GT.0:  MZDIP=MZEPI*MZMET. IPHOTO.LT.0: MZDIP<=MZDEC
      PARAMETER (MZDIP=MZEPI*MZMET) !RESOLVED RAD DECAY STATES TYPE-2I
C
C STGBF ONLY
C
      PARAMETER (MZSA1=    24)    !INTERNAL MEMORY PARAMETER IN STGBF....
      PARAMETER (MZSA2= MZMSH)    !INTERNAL MEMORY  IN STGBF,=MZMSH IF POSS.
      PARAMETER (MZSA3= MZMSH)    !INTERNAL MEMORY IN STGBF,=MZMSH IF POSS.