AFM cleaning with pgi compiler

[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
index 77126a2..56a1c71 100644 (file)
--- a/source/unres/src_MD-M/COMMON.SHIELD
+++ b/source/unres/src_MD-M/COMMON.SHIELD
@@ -5,9 +5,9 @@
        common /shield/ VSolvSphere,VSolvSphere_div,buff_shield,
      & long_r_sidechain(ntyp),
      & short_r_sidechain(ntyp),fac_shield(maxres),
-     & grad_shield_side(3,15,-1:maxres),grad_shield(3,-1:maxres),
-     &  grad_shield_loc(3,15,-1:maxres),
-     & ishield_list(maxres),shield_list(15,maxres),
+     & 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)