From: Adam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Date: Tue, 12 Jan 2016 12:31:30 +0000 (+0100)
Subject: adding common shield
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=d174d7fb88aee4a9122f02ebcda537b868723498

adding common shield
---

diff --git a/source/wham/src-M/COMMON.SHIELD b/source/wham/src-M/COMMON.SHIELD
new file mode 100644
index 0000000..1f96c94
--- /dev/null
+++ b/source/wham/src-M/COMMON.SHIELD
@@ -0,0 +1,14 @@
+       double precision VSolvSphere,VSolvSphere_div,long_r_sidechain,
+     & short_r_sidechain,fac_shield,grad_shield_side,grad_shield,
+     & buff_shield,wshield,grad_shield_loc            
+       integer  ishield_list,shield_list,ees0plist
+       common /shield/ VSolvSphere,VSolvSphere_div,buff_shield,
+     & long_r_sidechain(ntyp),
+     & 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),
+     & ishield_list(maxres),shield_list(maxcont,maxres),
+     & ees0plist(maxcont,maxres)
+
+
+