84       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
193       READ( NIN, FMT = * )NALF
194       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
198       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
213       WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
309      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
315      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
327      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
333      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
339      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
400      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
420       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
425       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
545                         DO 60 IA = 1, NALF
746      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
766       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
771       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
879                      DO 60 IA = 1, NALF
1457      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1478       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1482       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1568                   DO 80 IA = 1, NALF
1735      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1756       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1760       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1839                DO 70 IA = 1, NALF
2020      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2041       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2045       COMPLEX*16         A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2139                   DO 100 IA = 1, NALF