From d174d7fb88aee4a9122f02ebcda537b868723498 Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Tue, 12 Jan 2016 13:31:30 +0100 Subject: [PATCH] adding common shield --- source/wham/src-M/COMMON.SHIELD | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 source/wham/src-M/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) + + + -- 1.7.9.5