X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2FCOMMON.VAR;fp=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2FCOMMON.VAR;h=2b11894077b83afd40f6327529293860c592fff6;hb=d101c97dea752458d76055fdbae49c26fff03c1f;hp=0000000000000000000000000000000000000000;hpb=325eda160c9ad2982501e091ca40606a29043712;p=unres.git

diff --git a/source/wham/src-NEWSC-NEWCORR/COMMON.VAR b/source/wham/src-NEWSC-NEWCORR/COMMON.VAR
new file mode 100644
index 0000000..2b11894
--- /dev/null
+++ b/source/wham/src-NEWSC-NEWCORR/COMMON.VAR
@@ -0,0 +1,17 @@
+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,tauangle,omicron
+      common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),
+     &          omicron(2,maxres),tauangle(3,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
+C Angles from experimental structure
+      common /varref/ vbld_ref(maxres),
+     &  theta_ref(maxres),phi_ref(maxres),
+     &  alph_ref(maxres),omeg_ref(maxres)