print off

[unres.git] / source / unres / src_MD-M / energy_p_new_barrier.F

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 (file)
--- 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