- integer ntheta,nphi,nside,nvar,ialph,ivar
- double precision theta,phi,alph,omeg,vbld,vbld_ref,
- & theta_ref,phi_ref,alph_ref,omeg_ref,
- & costtab,sinttab,cost2tab,sint2tab,
- & xxtab,yytab,zztab
+ integer ntheta,nphi,nside,nvar,Origin,nstore,ialph,ivar,
+ & mask_theta,mask_phi,mask_side
+ double precision theta,phi,alph,omeg,varsave,esave,varall,vbld,
+ & vbld_ref,theta_ref,phi_ref,alph_ref,omeg_ref,
+ & thetaref,phiref,costtab,sinttab,cost2tab,sint2tab,
+ & xxtab,yytab,zztab,xxref,yyref,zzref,omicron,tauangle