X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.VAR;fp=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.VAR;h=0000000000000000000000000000000000000000;hp=71158b8698418b411f2ca26384572410bd65a903;hb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a;hpb=a0e685f844163003749ba91dfbf4644bcc8cfa30

diff --git a/source/unres/src_CSA_DiL/COMMON.VAR b/source/unres/src_CSA_DiL/COMMON.VAR
deleted file mode 100644
index 71158b8..0000000
--- a/source/unres/src_CSA_DiL/COMMON.VAR
+++ /dev/null
@@ -1,20 +0,0 @@
-C Store the geometric variables in the following COMMON block.
-      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,
-     &          thetaref,phiref,costtab,sinttab,cost2tab,sint2tab,
-     &          xxtab,yytab,zztab,xxref,yyref,zzref
-      common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),
-     &          vbld(2*maxres),thetaref(maxres),phiref(maxres),
-     &          costtab(maxres), sinttab(maxres), cost2tab(maxres),
-     &          sint2tab(maxres),xxtab(maxres),yytab(maxres),
-     &          zztab(maxres),xxref(maxres),yyref(maxres),zzref(maxres),
-     &          ialph(maxres,2),ivar(4*maxres2),ntheta,nphi,nside,nvar
-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)