126       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
194       READ( NIN, FMT = * )NIDIM
195       IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
199       READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
200       DO 10 I = 1, NIDIM
250       WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
342      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
348      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
355      $                  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,
372      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
431      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
448       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
459       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
499       DO 120 IN = 1, NIDIM
772      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
789       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
800       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
842       DO 110 IN = 1, NIDIM
1115      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1131       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA  local
1139       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
1186       DO 110 IN = 1, NIDIM
1472      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1489       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1498       INTEGER            IDIM( NIDIM ), INC( NINC )
1528       DO 120 IN = 1, NIDIM
1733      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1750       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1759       INTEGER            IDIM( NIDIM ), INC( NINC )
1798       DO 100 IN = 1, NIDIM
2011      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2028       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2037       INTEGER            IDIM( NIDIM ), INC( NINC )
2077       DO 140 IN = 1, NIDIM