X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2FCOMMON.VAR;h=dfc172461bb90455722762d63eebc3ecfdb4e1fd;hb=61fae8832983d4a71eb8efc042d3e0ba5087740c;hp=ad412d08ca0c50528424af1d56f52e5e6a1d21ad;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git

diff --git a/source/wham/src/COMMON.VAR b/source/wham/src/COMMON.VAR
index ad412d0..dfc1724 100644
--- a/source/wham/src/COMMON.VAR
+++ b/source/wham/src/COMMON.VAR
@@ -1,16 +1,26 @@
 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
+      integer ntheta,nphi,nside,nvar,Origin,nstore,ialph,ivar,
+     &        mask_theta,mask_phi,mask_side
+      double precision theta,phi,alph,omeg,varsave,esave,varall,vbld,
+     &  vbld_ref,theta_ref,phi_ref,alph_ref,omeg_ref,
+     &          thetaref,phiref,costtab,sinttab,cost2tab,sint2tab,
+     &          xxtab,yytab,zztab,xxref,yyref,zzref,omicron,tauangle
       common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),
-     &          vbld(2*maxres),
+     &          omicron(2,maxres),tauangle(3,maxres),
+     &          vbld(2*maxres),thetaref(maxres),phiref(maxres),
      &          costtab(maxres), sinttab(maxres), cost2tab(maxres),
      &          sint2tab(maxres),xxtab(maxres),yytab(maxres),
-     &          zztab(maxres),
+     &          zztab(maxres),xxref(maxres),yyref(maxres),zzref(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)
+C Store the angles and variables corresponding to old conformations (for use
+C in MCM).
+      common /oldgeo/ varsave(maxvar,maxsave),esave(maxsave),
+     &  Origin(maxsave),nstore
+C freeze some variables
+      logical mask_r
+      common /restr/ varall(maxvar),mask_r,mask_theta(maxres),
+     &               mask_phi(maxres),mask_side(maxres)