93       INTEGER            IDIM( NIDMAX ), INC( NINMAX ), KB( NKBMAX )  variable
177       READ( NIN, FMT = * )( INC( I ), I = 1, NINC )
179          IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
204       WRITE( NOUT, FMT = 9990 )( INC( I ), I = 1, NINC )
318      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
324      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
332      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
338      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
346      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
352      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
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,
458      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
485       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )  local
589                      INCX = INC( IX )
603                         INCY = INC( IY )
818      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
845       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )  local
935                   INCX = INC( IX )
949                      INCY = INC( IY )
1177      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1202       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )  local
1315                         INCX = INC( IX )
1564      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1591       INTEGER            IDIM( NIDIM ), INC( NINC )  local
1642                INCX = INC( IX )
1656                   INCY = INC( IY )
1836      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1863       INTEGER            IDIM( NIDIM ), INC( NINC )  local
1928                INCX = INC( IX )
2132      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2159       INTEGER            IDIM( NIDIM ), INC( NINC )  local
2225                INCX = INC( IX )
2239                   INCY = INC( IY )