parm

      block data kparm
      implicit real*8 (a-h,o-z)
      parameter (nprecd=2)
      common / block1 / heat, speed, rxx, ryy, dzz
      common / block2 / xcent, ycent
      common / block3 / insd
      common / block4 / d_in, id_f, t0_f, frate
      data  heat /  1.79227E+03 /
      data speed /  1.51750E+00 /
      data   dzz /  2.48112E+00 /
      data  insd /    13 /
      data  d_in /  3.93700E+02 /
      data  id_f /    18 /
      data  t0_f /  2.99820E+02 /
      data frate /  9.14400E-01 /
      end