C
C PARAMETER FILE FOR IMPACT
C
      IMPLICIT REAL*8 (A-H,O-Z)
C
C     PRIMARY DIMENSIONS
C
      PARAMETER (MZ01=     6)    ! NUMBER OF SCATTERING ENERGIES
      PARAMETER (MZ02=   100)    ! NUMBER OF TARGET TERMS
      PARAMETER (MZ03=    30)    ! NUMBER OF TARGET RADIAL FUNCTIONS
      PARAMETER (MZ04=   650)    ! NO OF TABULAR POINTS FOR INPUT RADIAL FUNCS
      PARAMETER (MZ05=     5)    ! NO OF TABULAR POINTS IN STARTING REGION (>2)
      PARAMETER (MZ06=   200)    ! NO OF TABULAR POINTS IN INNER REGION (NI)
      PARAMETER (MZ07=    60)    ! NO OF FREE CHANNELS (NCHF) (>3)
      PARAMETER (MZ08=  4000)    ! NTOT=NCHF*(NI+2)+NCHB+NLAM
      PARAMETER (MZ22=  1201)    ! NO OF OUTER REGION POINTS + 1
C
C     SECONDARY DIMENSIONS  (LARGE ARRAY IS MZ08*(MZ08+MZ07))
C
      PARAMETER (MZ09=MZ06-3)
      PARAMETER (MZ10=MZ06+2)
      PARAMETER (MZ11=(MZ07*(MZ07+1))/2)
      PARAMETER (MZ12=MZ07+MZ08)
C
      PARAMETER (MXXX=(MZ07+1)/2)
      PARAMETER (MZ24=MZ07*MZ07)
      PARAMETER (MZ25=4*MZ07+MZ24+MXXX*(MZ07-MXXX))
      PARAMETER (MZ26=5*MZ24)
C
C END