C Store the geometric variables in the following COMMON block.
      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
      common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),
     &          vbld(2*maxres),
     &          costtab(maxres), sinttab(maxres), cost2tab(maxres),
     &          sint2tab(maxres),xxtab(maxres),yytab(maxres),
     &          zztab(maxres),
     &          ialph(maxres,2),ivar(4*maxres2),ntheta,nphi,nside,nvar
C Angles from experimental structure
      common /varref/ vbld_ref(maxres),
     &  theta_ref(maxres),phi_ref(maxres),
     &  alph_ref(maxres),omeg_ref(maxres)