83       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
192       READ( NIN, FMT = * )NALF
193       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
197       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
212       WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
308      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
314      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
326      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
332      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
338      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
399      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
418       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
423       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
543                         DO 60 IA = 1, NALF
744      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
763       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
768       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
876                      DO 60 IA = 1, NALF
1453      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1473       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1477       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1563                   DO 80 IA = 1, NALF
1730      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1750       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1754       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1833                DO 70 IA = 1, NALF
2014      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2034       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2038       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2132                   DO 100 IA = 1, NALF