& thetaref,phiref,costtab,sinttab,cost2tab,sint2tab,
& xxtab,yytab,zztab,xxref,yyref,zzref
common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),
& thetaref,phiref,costtab,sinttab,cost2tab,sint2tab,
& xxtab,yytab,zztab,xxref,yyref,zzref
common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),