small chanegs in nanotube + working wham for lipid

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

diff --git a/source/wham/src-M/COMMON.SHIELD b/source/wham/src-M/COMMON.SHIELD
index 1f96c94..ac7ac98 100644 (file)
--- a/source/wham/src-M/COMMON.SHIELD
+++ b/source/wham/src-M/COMMON.SHIELD
@@ -1,9 +1,11 @@
        double precision VSolvSphere,VSolvSphere_div,long_r_sidechain,
      & short_r_sidechain,fac_shield,grad_shield_side,grad_shield,
-     & buff_shield,wshield,grad_shield_loc            
+     & buff_shield,wshield,grad_shield_loc,lipscale,sslipi,sslipj,
+     & ssgradlipi,ssgradlipj
        integer  ishield_list,shield_list,ees0plist
        common /shield/ VSolvSphere,VSolvSphere_div,buff_shield,
-     & long_r_sidechain(ntyp),
+     & long_r_sidechain(ntyp),sslipi,sslipj,
+     & ssgradlipi,ssgradlipj,lipscale,
      & short_r_sidechain(ntyp),fac_shield(maxres),wshield,
      & grad_shield_side(3,maxcont,-1:maxres),grad_shield(3,-1:maxres),
      &  grad_shield_loc(3,maxcont,-1:maxres),