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 861df2f..293ea94 100644 (file)
--- a/source/cluster/wham/src-M/COMMON.CHAIN
+++ b/source/cluster/wham/src-M/COMMON.CHAIN
@@ -12,7 +12,12 @@
      &  nend_sup, chain_length,tabperm(maxperm,maxsym)
       double precision boxxsize,boxysize,boxzsize,enecut,sscut,sss,
      & sssgrad,
-     & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick
+     & 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