integer maxdim, maxarr
      parameter (maxdim = 100 + 200,
     x           maxarr = maxdim + 100)
      end