source/maxlik/src_MD_T_maxlik-NEWCORR-PMF/COMMON.VAR

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