83       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
177       READ( NIN, FMT = * )NINC
178       IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
182       READ( NIN, FMT = * )( INC( I ), I = 1, NINC )
183       DO 30 I = 1, NINC
209       WRITE( NOUT, FMT = 9990 )( INC( I ), I = 1, NINC )
322      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
328      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
336      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
342      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
350      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
356      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
364      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
370      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
378      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
384      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
392      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
398      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
464      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
483       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
494       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
598                   DO 80 IX = 1, NINC
612                      DO 70 IY = 1, NINC
820      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
839       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
850       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
940                DO 80 IX = 1, NINC
954                   DO 70 IY = 1, NINC
1176      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1196       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,  local
1205       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
1318                      DO 60 IX = 1, NINC
1558      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1579       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1590       INTEGER            IDIM( NIDIM ), INC( NINC )
1642             DO 100 IX = 1, NINC
1656                DO 90 IY = 1, NINC
1836      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1857       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1868       INTEGER            IDIM( NIDIM ), INC( NINC )
1933             DO 80 IX = 1, NINC
2130      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2151       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
2162       INTEGER            IDIM( NIDIM ), INC( NINC )
2228             DO 120 IX = 1, NINC
2242                DO 110 IY = 1, NINC