X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2FCOMMON.DISTFIT;h=9f2a3024ddec9f234608c23c51443bdf92698174;hb=a30bd29e64da2aa47b84963fdd0bf4192ead2738;hp=044225b485e7439478f1dd2e793d7fe0c955ae67;hpb=020e579626d686ec20ecd9f0cc4c8313f474e152;p=unres.git

diff --git a/source/unres/src-HCD-5D/COMMON.DISTFIT b/source/unres/src-HCD-5D/COMMON.DISTFIT
index 044225b..9f2a302 100644
--- a/source/unres/src-HCD-5D/COMMON.DISTFIT
+++ b/source/unres/src-HCD-5D/COMMON.DISTFIT
@@ -1,14 +1,10 @@
+      integer maxres22
 c      parameter (maxres22=maxres*(maxres+1)/2)
       parameter (maxres22=1)
       double precision w,d0,DRDG,DD,H,XX
-      integer nbfrag,bfrag,nhfrag,hfrag,bvar_frag,hvar_frag,nhpb0,
-     1        lvar_frag,svar_frag,avar_frag
-      COMMON /c_frag/ nbfrag,bfrag(4,maxres/3),nhfrag,hfrag(2,maxres/3)
-      COMMON /frag/ bvar_frag(mxio,6),hvar_frag(mxio,3),
-     1              lvar_frag(mxio,3),svar_frag(mxio,3),
-     2              avar_frag(mxio,5)
       COMMON /WAGI/ w(MAXRES22),d0(MAXRES22)
-      COMMON /POCHODNE/ NX,NY,DRDG(MAXRES22,MAXRES),DD(MAXRES22),                 
+      integer nx,ny,mask
+      COMMON /POCHODNE/ NX,NY,DRDG(MAXRES22,MAXRES),DD(MAXRES22),
      1 H(MAXRES,MAXRES),XX(MAXRES)         
       COMMON /frozen/ mask(maxres)
       COMMON /store0/ nhpb0