"Przygotowanie CSA do D i L aminokwasow"

[unres.git] / source / unres / src_CSA_DiL / COMMON.CSA

diff --git a/source/unres/src_CSA_DiL/COMMON.CSA b/source/unres/src_CSA_DiL/COMMON.CSA
new file mode 100644 (file)
index 0000000..9c117c0
--- /dev/null
+++ b/source/unres/src_CSA_DiL/COMMON.CSA
@@ -0,0 +1,11 @@
+      integer ngroup,igroup,ntotgr,numch,irestart,ndiff,nbankm,iucut
+      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,nbankm,iucut
+      logical ldih_bias,tm_score
+      common/dih_control/rdih_bias,ldih_bias,tm_score
+      common/diffcuta/ diffcut
+