From 73ce77edc1ae354d8d3c6848b8aa50372327b3b3 Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Mon, 23 Jan 2017 12:00:16 +0100 Subject: [PATCH] nano part2 --- source/unres/src_MD-M/energy_p_new_barrier.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 1.7.9.5