introduction of infinite cylinder potential - currently without PBC

[unres.git] / source / unres / src_MD-M / gradient_p.F

diff --git a/source/unres/src_MD-M/gradient_p.F b/source/unres/src_MD-M/gradient_p.F
index 4cfa18b..1d8f3d1 100644 (file)
--- a/source/unres/src_MD-M/gradient_p.F
+++ b/source/unres/src_MD-M/gradient_p.F
@@ -405,6 +405,8 @@ C end of zero grad for shielding
           gliptranx(j,i)=0.0d0
           gradafm(j,i)=0.0d0
           grad_shield(j,i)=0.0d0
+          gg_tube(j,i)=0.0d0
+          gg_tube_sc(j,i)=0.0d0
 C grad_shield_side is Cbeta sidechain gradient
           do kk=1,maxshieldlist
            grad_shield_side(j,kk,i)=0.0d0