79       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
185       READ( NIN, FMT = * )NALF
186       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
190       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
205       WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
317      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
323      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
331      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
337      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
360      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
366      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
374      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
380      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
388      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
394      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
457      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
474       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
479       REAL               A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
606                         DO 60 IA = 1, NALF
817      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
834       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
839       REAL               A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
952                      DO 60 IA = 1, NALF
1564      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1581       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1586       REAL               A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1669                   DO 80 IA = 1, NALF
1836      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1853       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1858       REAL               A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1941                DO 70 IA = 1, NALF
2132      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2149       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
2154       REAL               A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2252                   DO 100 IA = 1, NALF