source/wham/src-M/COMMON.VAR

   1 C Store the geometric variables in the following COMMON block.
   2       integer ntheta,nphi,nside,nvar,ialph,ivar
   3       double precision theta,phi,alph,omeg,vbld,vbld_ref,
   4      &  theta_ref,phi_ref,alph_ref,omeg_ref,
   5      &  costtab,sinttab,cost2tab,sint2tab,tauangle,omicron,
   6      &          xxtab,yytab,zztab
   7       common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),
   8      &          vbld(2*maxres),
   9      &          costtab(maxres), sinttab(maxres), cost2tab(maxres),
  10      &          sint2tab(maxres),xxtab(maxres),yytab(maxres),
  11      &          zztab(maxres),
  12      &          ialph(maxres,2),ivar(4*maxres2),ntheta,nphi,nside,nvar,
  13      &          omicron(2,maxres),tauangle(3,maxres)
  14 C Angles from experimental structure
  15       common /varref/ vbld_ref(maxres),
  16      &  theta_ref(maxres),phi_ref(maxres),
  17      &  alph_ref(maxres),omeg_ref(maxres)