      program dyndim
      parameter (numr=      47, maxr=      47)
      parameter (numi=      22, maxi=      22)
      dimension  R(maxr), RN(numr), I(maxi), in(numi)
      dimension  j(numr), k(numi)
      common / real / r, rn, mmaxr, nnumr
      common / integer / i, in, j, k, mmaxi, nnumi
      mmaxr = maxr
      mmaxi = maxi
      nnumr = numr
      nnumi = numi
