79       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
172       READ( NIN, FMT = * )NINC
173       IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
177       READ( NIN, FMT = * )( INC( I ), I = 1, NINC )
178       DO 30 I = 1, NINC
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
474       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
485       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
588                   DO 80 IX = 1, NINC
602                      DO 70 IY = 1, NINC
818      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
834       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
845       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
934                DO 80 IX = 1, NINC
948                   DO 70 IY = 1, NINC
1177      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1193       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,  local
1202       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
1314                      DO 60 IX = 1, NINC
1564      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1581       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1591       INTEGER            IDIM( NIDIM ), INC( NINC )
1641             DO 100 IX = 1, NINC
1655                DO 90 IY = 1, NINC
1836      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1853       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1863       INTEGER            IDIM( NIDIM ), INC( NINC )
1927             DO 80 IX = 1, NINC
2132      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2149       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
2159       INTEGER            IDIM( NIDIM ), INC( NINC )
2224             DO 120 IX = 1, NINC
2238                DO 110 IY = 1, NINC