130       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
239       READ( NIN, FMT = * )NALF
240       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
244       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
259       WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
348      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
354      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
366      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
372      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
378      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
439      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
459       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
464       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
584                         DO 60 IA = 1, NALF
785      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
805       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
810       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
918                      DO 60 IA = 1, NALF
1496      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1517       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1521       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1607                   DO 80 IA = 1, NALF
1774      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1795       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1799       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1878                DO 70 IA = 1, NALF
2059      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2080       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2084       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2178                   DO 100 IA = 1, NALF