X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FCOMMON.SHIELD;fp=source%2Funres%2Fsrc_MD-M%2FCOMMON.SHIELD;h=7974844676f4d8754b19190e12b2c109c7755730;hb=e910def1e1c1c0f0b35e8ce1cbf2a9ee59628771;hp=0000000000000000000000000000000000000000;hpb=d101c97dea752458d76055fdbae49c26fff03c1f;p=unres.git diff --git a/source/unres/src_MD-M/COMMON.SHIELD b/source/unres/src_MD-M/COMMON.SHIELD new file mode 100644 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) + +