X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fenergy_p_new_barrier.F;h=e6275dd781153a082a4f18611c6814cffe1f7cd8;hb=73ce77edc1ae354d8d3c6848b8aa50372327b3b3;hp=a675f1fae1ee056a6e53f4daa2a5a6e78f36ef1b;hpb=d2ee52eab91e6055d9cd36a42447313d73b00ea1;p=unres.git

diff --git a/source/unres/src_MD-M/energy_p_new_barrier.F b/source/unres/src_MD-M/energy_p_new_barrier.F
index a675f1f..e6275dd 100644
--- a/source/unres/src_MD-M/energy_p_new_barrier.F
+++ b/source/unres/src_MD-M/energy_p_new_barrier.F
@@ -12512,7 +12512,8 @@ C simple Kihara potential
       include 'COMMON.CONTROL'
       include 'COMMON.SPLITELE'
       include 'COMMON.SBRIDGE'
-      double precision tub_r,vectube(3),enetube(maxres*2)
+      double precision tub_r,vectube(3),enetube(maxres*2),
+     & enecavtube(maxres*2)
       Etube=0.0d0
       do i=itube_start,itube_end
         enetube(i)=0.0d0