X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fenergy_p_new_barrier.F;h=890fae3b4ce24610c28965ace80a1938b464270b;hb=09cef8a826bd79949bdefd4f8b5dae831a04979e;hp=38c530654bb79276f87b5381a323411ef336a41e;hpb=2acc9917f7452c3a59a242e6033bea16f846cbfe;p=unres.git

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 38c5306..890fae3 100644
--- a/source/unres/src_MD-M/energy_p_new_barrier.F
+++ b/source/unres/src_MD-M/energy_p_new_barrier.F
@@ -5656,6 +5656,7 @@ C Set lprn=.true. for debugging
       lprn=.false.
 c     lprn=.true.
       etors_d=0.0D0
+c      write(iout,*) "a tu??"
       do i=iphid_start,iphid_end
         if (itype(i-2).eq.ntyp1 .or. itype(i-1).eq.ntyp1
      &      .or. itype(i).eq.ntyp1 .or. itype(i+1).eq.ntyp1) cycle