From 66df3475dae368169e5210f0ecff9a54a15dd039 Mon Sep 17 00:00:00 2001 From: Adam Kazimierz Sieradzan Date: Sat, 31 Aug 2013 05:32:31 -0400 Subject: [PATCH] wylaczenie diagnostyki --- source/unres/src_MD/energy_p_new_barrier.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/unres/src_MD/energy_p_new_barrier.F b/source/unres/src_MD/energy_p_new_barrier.F index b45c847..4f753e4 100644 --- a/source/unres/src_MD/energy_p_new_barrier.F +++ b/source/unres/src_MD/energy_p_new_barrier.F @@ -4928,11 +4928,11 @@ C enddo enddo 10 continue - lprn1=.true. +c lprn1=.true. if (lprn1) write (iout,'(a4,i2,3f8.1,9h ethetai ,f10.5)') & 'ebe', i,theta(i)*rad2deg,phii*rad2deg, & phii1*rad2deg,ethetai - lprn1=.false. +c lprn1=.false. etheta=etheta+ethetai if (i.gt.3) gloc(i-3,icg)=gloc(i-3,icg)+wang*dephii if (i.lt.nres) gloc(i-2,icg)=gloc(i-2,icg)+wang*dephii1 -- 1.7.9.5