58       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, 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 )
296      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
302      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
310      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
316      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
324      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
330      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
338      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
344      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
352      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
358      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
418      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
436       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
440       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
545                      DO 60 IA = 1, NALF
742      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
760       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
764       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
856                   DO 60 IA = 1, NALF
1052      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
1070       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1074       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1159                         DO 80 IA = 1, NALF
1410      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1428       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1432       DOUBLE PRECISION   A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1513                   DO 60 IA = 1, NALF
1726      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1745       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1750      $                   ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1847                   DO 90 IA = 1, NALF