projects / unres.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: d2ee52e)
nano part2
authorAdam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Mon, 23 Jan 2017 11:00:16 +0000 (12:00 +0100)
committerAdam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Mon, 23 Jan 2017 11:00:16 +0000 (12:00 +0100)
source/unres/src_MD-M/energy_p_new_barrier.F patch | blob | history

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 (file)
--- 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
UNRESPACK 3.x