X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-newcorr%2FCOMMON.CSA;fp=source%2Funres%2Fsrc_MD-M-newcorr%2FCOMMON.CSA;h=273a26868b5ca176d544754038128c92bade234d;hb=d101c97dea752458d76055fdbae49c26fff03c1f;hp=0000000000000000000000000000000000000000;hpb=325eda160c9ad2982501e091ca40606a29043712;p=unres.git

diff --git a/source/unres/src_MD-M-newcorr/COMMON.CSA b/source/unres/src_MD-M-newcorr/COMMON.CSA
new file mode 100644
index 0000000..273a268
--- /dev/null
+++ b/source/unres/src_MD-M-newcorr/COMMON.CSA
@@ -0,0 +1,11 @@
+      integer ngroup,igroup,ntotgr,numch,irestart,ndiff
+      double precision diffcut
+      common/alphaa/ ngroup(mxgr),igroup(3,mxang,mxgr),ntotgr,numch
+      common/csa_input/cut1,cut2,eglob_csa,estop,jstart,jend,
+     & n1,n2,n3,n4,n5,n6,n7,n8,n9,n14,n15,n16,n17,n18,n0,
+     & is1,is2,nseed,ntotal,icmax,nstmax,irestart,nran0,nran1,irr,
+     & nglob_csa,nmin_csa,ndiff
+      logical ldih_bias
+      common/dih_control/rdih_bias,ldih_bias
+      common/diffcuta/ diffcut
+