working cluster for nano parameters

[unres.git] / source / cluster / wham / src-M / COMMON.CHAIN

diff --git a/source/cluster/wham/src-M/COMMON.CHAIN b/source/cluster/wham/src-M/COMMON.CHAIN
index d3f4c54..293ea94 100644 (file)
--- a/source/cluster/wham/src-M/COMMON.CHAIN
+++ b/source/cluster/wham/src-M/COMMON.CHAIN
@@ -10,3 +10,14 @@
      &  chain_rep(3,maxres2+2,maxsym), nsup,nstart_sup,
      &  nstart_seq,
      &  nend_sup, chain_length,tabperm(maxperm,maxsym)
+      double precision boxxsize,boxysize,boxzsize,enecut,sscut,sss,
+     & sssgrad,
+     & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick,
+     & tubecenter,tubeR0,
+     & buftubebot, buftubetop,bordtubebot,bordtubetop,tubebufthick
+
+      common /box/  boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad,
+     & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick
+      common /tube/ tubecenter(3),tubeR0,
+     & buftubebot, buftubetop,bordtubebot,bordtubetop,tubebufthick
+