80       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
148       READ( NIN, FMT = * )NIDIM
149       IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
153       READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
154       DO 10 I = 1, NIDIM
204       WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
303      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
309      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
316      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
321      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
327      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
333      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
392      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
409       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
420       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
460       DO 120 IN = 1, NIDIM
733      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
750       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
761       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
803       DO 110 IN = 1, NIDIM
1076      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1092       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA  local
1100       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
1147       DO 110 IN = 1, NIDIM
1433      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1450       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1459       INTEGER            IDIM( NIDIM ), INC( NINC )
1489       DO 120 IN = 1, NIDIM
1694      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1711       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1720       INTEGER            IDIM( NIDIM ), INC( NINC )
1759       DO 100 IN = 1, NIDIM
1972      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1989       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1998       INTEGER            IDIM( NIDIM ), INC( NINC )
2038       DO 140 IN = 1, NIDIM