
       M C Q D

MCQD gives Multichannel Quantum Defects for a given set of input T-matrices.
It is initiated by:
      CALL IMCQD(BIGVEC(ISART),MCOR,IFAIL)

Input files:
  T-matrices                  (on unit LUTMT)

The following parameters are used to define array dimensions

MAXERN = 10  maximum number of input scattering energy pairs (E0,DE)
MAXXCH = 200 maximum number of scattering channels

Most data is read direct from the T-matrix file but additional data can be
input via namelist /MCQD/

Namelist input /MCQD/

DELTA    R   1       1.0D-3 [0:]
   ! Diagonaliser tolerance see
     M.J.Seaton, Computer Journal, Vol.12, p. 156, 1969.

IEUNIT   I   1        1   [1,2]
   ! Units in which input scattering energies are input
              1 = Ryd, 2 = eV

IPRNT    I   3        0   [0:1]
   ! Print flag switches
      (1) = 1 print input T-matrices
      (2) = 1 print portion of S-matrix to be diagonalised
      (3) = 1 print eigenvectors of closed-closed S-matrix

ITFORM   C   1       'U'  ['U':'F']
   ! 'F' if T-matrix dataset is formatted, else 'U'

IWRITE   I   1        6   [1:]
   ! Unit for lineprinter output

LUTMT    I   1       12   [1:]
   ! Logical unit for T-matrix input

NAME     C  60
   ! Title for any output

NTSET    I   1        1   [0:]
   ! Set number of T-matrix input
