From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Wed, 3 Apr 2019 12:15:55 +0000 (+0200)
Subject: initialize eliptran=0
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=43546f2354ba486ce5cf4a8c41b4592f4aec2f35

initialize eliptran=0
---

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