129       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
238       READ( NIN, FMT = * )NALF
239       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
243       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
258       WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
347      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
353      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
365      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
371      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
377      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
438      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
457       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
462       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
582                         DO 60 IA = 1, NALF
783      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
802       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
807       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
915                      DO 60 IA = 1, NALF
1492      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1512       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1516       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1602                   DO 80 IA = 1, NALF
1769      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1789       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1793       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1872                DO 70 IA = 1, NALF
2053      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2073       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2077       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2171                   DO 100 IA = 1, NALF