82       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,  variable
150       READ( NIN, FMT = * )NIDIM
151       IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
155       READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
156       DO 10 I = 1, NIDIM
206       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
482       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
493       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
535       DO 120 IN = 1, NIDIM
818      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
837       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
848       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
892       DO 110 IN = 1, NIDIM
1174      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1193       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,  local
1202       INTEGER            IDIM( NIDIM ), INC( NINC ), KB( NKB )
1251       DO 110 IN = 1, NIDIM
1555      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1575       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1586       INTEGER            IDIM( NIDIM ), INC( NINC )
1618       DO 120 IN = 1, NIDIM
1832      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1852       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1863       INTEGER            IDIM( NIDIM ), INC( NINC )
1904       DO 100 IN = 1, NIDIM
2125      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2145       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
2156       INTEGER            IDIM( NIDIM ), INC( NINC )
2198       DO 140 IN = 1, NIDIM