82       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
189       READ( NIN, FMT = * )NALF
190       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
194       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
209       WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
321      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
327      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
335      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
341      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
364      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
370      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
378      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
384      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
392      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
398      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
463      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
482       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
487       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
615                         DO 60 IA = 1, NALF
818      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
837       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
842       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
956                      DO 60 IA = 1, NALF
1555      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1575       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1580       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1666                   DO 80 IA = 1, NALF
1832      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1852       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1857       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1942                DO 70 IA = 1, NALF
2125      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2145       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
2150       COMPLEX            A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2250                   DO 100 IA = 1, NALF