1 C Store the geometric variables in the following COMMON block.
2 integer ntheta,nphi,nside,nvar,ialph,ivar,ntor_var,nbacktor_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),
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)