removal of CSA from MD version of code

[unres.git] / source / unres / src_MD / COMMON.DISTFIT

diff --git a/source/unres/src_MD/COMMON.DISTFIT b/source/unres/src_MD/COMMON.DISTFIT
index 044225b..683228a 100644 (file)
--- a/source/unres/src_MD/COMMON.DISTFIT
+++ b/source/unres/src_MD/COMMON.DISTFIT
@@ -4,9 +4,9 @@ c      parameter (maxres22=maxres*(maxres+1)/2)
       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)
+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)