introduction of shielding effect (volume of overlap)

[unres.git] / source / unres / src_MD-M / COMMON.SHIELD

diff --git a/source/unres/src_MD-M/COMMON.SHIELD b/source/unres/src_MD-M/COMMON.SHIELD
new file mode 100644 (file)
index 0000000..7974844
--- /dev/null
+++ b/source/unres/src_MD-M/COMMON.SHIELD
@@ -0,0 +1,9 @@
+       double precision VSolvSphere,VSolvSphere_div,long_r_sidechain,
+     & short_r_sidechain,fac_shield            
+       integer  ishield_list,shield_list
+       common /shield/ VSolvSphere,VSolvSphere_div,
+     & long_r_sidechain(ntyp),
+     & short_r_sidechain(ntyp),fac_shield(maxres),
+     & ishield_list(maxres),shield_list(maxres)
+
+