83       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
151       READ( NIN, FMT = * )NIDIM
152       IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
156       READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
157       DO 10 I = 1, NIDIM
207       WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
321      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
327      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
335      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
341      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
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,
463      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
483       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
494       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
536       DO 120 IN = 1, NIDIM
819      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
839       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
850       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
894       DO 110 IN = 1, NIDIM
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 )
1254       DO 110 IN = 1, NIDIM
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 )
1622       DO 120 IN = 1, NIDIM
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 )
1909       DO 100 IN = 1, NIDIM
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 )
2204       DO 140 IN = 1, NIDIM