130       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
200       READ( NIN, FMT = * )NIDIM
201       IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
205       READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
206       DO 10 I = 1, NIDIM
256       WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
348      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
354      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
361      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
366      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
372      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
378      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
439      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
459       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
470       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
511       DO 120 IN = 1, NIDIM
785      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
805       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
816       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
859       DO 110 IN = 1, NIDIM
1134      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1154       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA  local
1162       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
1210       DO 110 IN = 1, NIDIM
1496      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1517       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1527       INTEGER            IDIM( NIDIM ), INC( NINC )
1559       DO 120 IN = 1, NIDIM
1774      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1795       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1805       INTEGER            IDIM( NIDIM ), INC( NINC )
1845       DO 100 IN = 1, NIDIM
2059      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2080       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2090       INTEGER            IDIM( NIDIM ), INC( NINC )
2131       DO 140 IN = 1, NIDIM