1 double precision zz,y,yc,diff,h,w,thet_point,pmf_thet,wthet_PMF
2 integer npoint,np,npel,nthet_point
3 common /deriv/ zz(8,maxpoint),y(4,maxpoint),
4 & yc(4,maxpoint),diff(4,maxpoint),h(maxvar,maxvar),
5 & w(4,maxpoint),npoint,np(-2:2,-2:2),npel(-2:2,-2:2)
6 common /PMFtheta/ thet_point(180,0:ntyp),pmf_thet(180,0:ntyp),
7 & wthet_PMF,nthet_point(0:ntyp)