59       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA  variable
136       READ( NIN, FMT = * )NALF
137       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
141       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
154       WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
279      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
285      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
291      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
296      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
302      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
357      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
375       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
379       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
484                      DO 60 IA = 1, NALF
638      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
656       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
660       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
752                   DO 60 IA = 1, NALF
908      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
926       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA  local
930       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1015                         DO 80 IA = 1, NALF
1213      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1231       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
1235       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1316                   DO 60 IA = 1, NALF
1488      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1506       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
1511      $                   ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1608                   DO 90 IA = 1, NALF