64       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA,  variable
142       READ( NIN, FMT = * )NALF
143       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
147       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
160       WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
303      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
309      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
317      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
323      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
331      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
337      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
345      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
351      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
359      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
365      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
427      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
448       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
452       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
559                      DO 60 IA = 1, NALF
757      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
778       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
782       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
876                   DO 60 IA = 1, NALF
1079      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
1099       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1103       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1190                         DO 80 IA = 1, NALF
1442      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1463       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1467       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1551                   DO 60 IA = 1, NALF
1852      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1873       INTEGER           NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1878      $                   ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1978                   DO 90 IA = 1, NALF