double precision PMFtab(0:maxHdim,maxT_h,maxR,max_parm),delta_q
      integer tmin(0:maxT_h,maxR,max_parm),tmax(maxT_h,maxR,max_parm)
      common /PMF/ PMFtab,delta_q,tmin,tmax