From: Adam Kazimierz Sieradzan Date: Sat, 31 Aug 2013 09:32:31 +0000 (-0400) Subject: wylaczenie diagnostyki X-Git-Tag: v.3.2~4^2 X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=66df3475dae368169e5210f0ecff9a54a15dd039 wylaczenie diagnostyki --- 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