X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2FCOMMON.VAR;h=326d6ec45b23ebb9e7364914982097e5c7d4d444;hb=e7fd0c7782f6f624b41009800df8e3d5e0e9add5;hp=ad412d08ca0c50528424af1d56f52e5e6a1d21ad;hpb=cbcf38ac52347785aa4f396df25fb408f6424707;p=unres.git diff --git a/source/cluster/wham/src/COMMON.VAR b/source/cluster/wham/src/COMMON.VAR index ad412d0..326d6ec 100644 --- a/source/cluster/wham/src/COMMON.VAR +++ b/source/cluster/wham/src/COMMON.VAR @@ -2,14 +2,15 @@ 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, + & costtab,sinttab,cost2tab,sint2tab,tauangle,omicron, & 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 + & ialph(maxres,2),ivar(4*maxres2),ntheta,nphi,nside,nvar, + & omicron(2,maxres),tauangle(3,maxres) C Angles from experimental structure common /varref/ vbld_ref(maxres), & theta_ref(maxres),phi_ref(maxres),