From 7d06b1abfc970dfbe0f82b95c6e20f411547d65e Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Tue, 16 Jul 2013 21:01:25 +0200 Subject: [PATCH] NIE PEWNE ZMIANY ZWERYFIKUJ!! --- 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 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" -- 1.7.9.5