105       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA  variable
182       READ( NIN, FMT = * )NALF
183       IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
187       READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
200       WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
318      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
324      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
330      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
335      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
341      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
396      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
414       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
418       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
523                      DO 60 IA = 1, NALF
677      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
695       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
699       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
791                   DO 60 IA = 1, NALF
947      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
965       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA  local
969       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1054                         DO 80 IA = 1, NALF
1252      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1270       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
1274       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1355                   DO 60 IA = 1, NALF
1527      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1545       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
1550      $                   ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1647                   DO 90 IA = 1, NALF