X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-NEWSC%2FCOMMON.DISTFIT;fp=source%2Funres%2Fsrc_MD-NEWSC%2FCOMMON.DISTFIT;h=683228a832e6ffd70ff6ab95067775d2c98e3513;hb=7308760ff07636ef6b1ee28d8c3a67a23c14b34b;hp=0000000000000000000000000000000000000000;hpb=9a54ab407f6d0d9d564d52763b3e2136450b9ffc;p=unres.git

diff --git a/source/unres/src_MD-NEWSC/COMMON.DISTFIT b/source/unres/src_MD-NEWSC/COMMON.DISTFIT
new file mode 100644
index 0000000..683228a
--- /dev/null
+++ b/source/unres/src_MD-NEWSC/COMMON.DISTFIT
@@ -0,0 +1,14 @@
+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)
+csa      COMMON /frag/ bvar_frag(mxio,6),hvar_frag(mxio,3),
+csa     1              lvar_frag(mxio,3),svar_frag(mxio,3),
+csa     2              avar_frag(mxio,5)
+      COMMON /WAGI/ w(MAXRES22),d0(MAXRES22)
+      COMMON /POCHODNE/ NX,NY,DRDG(MAXRES22,MAXRES),DD(MAXRES22),                 
+     1 H(MAXRES,MAXRES),XX(MAXRES)         
+      COMMON /frozen/ mask(maxres)
+      COMMON /store0/ nhpb0