83       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
153       READ( NIN, FMT = * )NIDIM
154       IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
158       READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
159       DO 10 I = 1, NIDIM
209       WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
308      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
314      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
321      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
326      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
332      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
338      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
399      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
418       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
429       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
470       DO 120 IN = 1, NIDIM
744      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
763       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
774       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
817       DO 110 IN = 1, NIDIM
1092      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1111       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA  local
1119       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
1167       DO 110 IN = 1, NIDIM
1453      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1473       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1483       INTEGER            IDIM( NIDIM ), INC( NINC )
1515       DO 120 IN = 1, NIDIM
1730      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1750       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1760       INTEGER            IDIM( NIDIM ), INC( NINC )
1800       DO 100 IN = 1, NIDIM
2014      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2034       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2044       INTEGER            IDIM( NIDIM ), INC( NINC )
2085       DO 140 IN = 1, NIDIM