From: Adam Sieradzan <adasko@piasek2.(none)>
Date: Tue, 16 Jul 2013 19:01:25 +0000 (+0200)
Subject: NIE PEWNE ZMIANY ZWERYFIKUJ!!
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=7d06b1abfc970dfbe0f82b95c6e20f411547d65e

NIE PEWNE ZMIANY ZWERYFIKUJ!!
---

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 fa388be..b651f0a 100644
--- a/source/unres/src_MD-M/energy_p_new_barrier.F
+++ b/source/unres/src_MD-M/energy_p_new_barrier.F
@@ -296,6 +296,8 @@ C
       energia(17)=estr
       energia(20)=Uconst+Uconst_back
       energia(21)=esccor
+c    Here are the energies showed per procesor if the are more processors 
+c    per molecule then we sum it up in sum_energy subroutine 
 c      print *," Processor",myrank," calls SUM_ENERGY"
       call sum_energy(energia,.true.)
 c      print *," Processor",myrank," left SUM_ENERGY"