X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fenergy_p_new_barrier.F;fp=source%2Funres%2Fsrc_MD-M%2Fenergy_p_new_barrier.F;h=2eac6d343f594ff0d9573f2d007bd98c62195f15;hp=443471d7601ecc37d4dc4ece97fd323f29b76a1f;hb=2155d857532cb508950e657cf12424f4a0da1b1f;hpb=0f881114c90e71a886f1c0d1fcdf573e9d3d7b77

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 443471d..2eac6d3 100644
--- a/source/unres/src_MD-M/energy_p_new_barrier.F
+++ b/source/unres/src_MD-M/energy_p_new_barrier.F
@@ -6397,7 +6397,7 @@ C
 c      time11=dexp(-2*time)
 c      time12=1.0d0
       etheta=0.0D0
-     write (*,'(a,i2)') 'EBEND ICG=',icg
+C     write (*,'(a,i2)') 'EBEND ICG=',icg
       do i=ithet_start,ithet_end
         if (i.le.2) cycle
         if ((itype(i-1).eq.ntyp1).or.itype(i-2).eq.ntyp1