From 43546f2354ba486ce5cf4a8c41b4592f4aec2f35 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Wed, 3 Apr 2019 14:15:55 +0200 Subject: [PATCH] initialize eliptran=0 --- source/unres/src_MD-M/energy_p_new_barrier.F | 2 ++ 1 file changed, 2 insertions(+) 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 37f648f..757aa09 100644 --- a/source/unres/src_MD-M/energy_p_new_barrier.F +++ b/source/unres/src_MD-M/energy_p_new_barrier.F @@ -295,6 +295,8 @@ C based on partition function C print *,"przed lipidami" if (wliptran.gt.0) then call Eliptransfer(eliptran) + else + eliptran=0.0d0 endif C print *,"za lipidami" if (AFMlog.gt.0) then -- 1.7.9.5