*
      integer     nint_phot_cell_mc
      parameter ( nint_phot_cell_mc = 5)
      integer     ncoef_phot_cell_mc
      parameter ( ncoef_phot_cell_mc = 3 )
      integer     dcorr_phot_cell_mc
      parameter ( dcorr_phot_cell_mc = 16 )
*
      real
     +        coef_phot_cell_mc(nint_phot_cell_mc,ncoef_phot_cell_mc),
     +        corr_phot_cell_mc(dcorr_phot_cell_mc,dcorr_phot_cell_mc)
*
      real  a, b, c, d, e, f, sfactor
      real  dpi
      parameter(dpi = 6.2831853072)
*
      common /phot_cell_cbk_mc/ coef_phot_cell_mc, corr_phot_cell_mc,
     &      a(0:1), b(0:1), c(0:1), d(0:1), e(0:1), f(0:1), sfactor(0:1)
*
      save   /phot_cell_cbk_mc/
*
c vfk 10 june 96 hadron parameters
      real  ah, bh, ch, dh, eh, fh
      data  ah, bh, ch, dh, eh, fh
     &     /1.7763, .53170, -1.4753, .2480, .69901, .1167/
      save  ah, bh, ch, dh, eh, fh
*