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;h=aafba26456434bd64e88cdd7600098857971afde;hp=3ad8f52e85551d69db313640f985798df078c34a;hb=48f04f24e913a3e10867d2038b30efcd48a60a9f;hpb=4ed0b0657cdb9599bd714a010134061c94f509cc

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 3ad8f52..aafba26 100644
--- a/source/unres/src_MD-M/energy_p_new_barrier.F
+++ b/source/unres/src_MD-M/energy_p_new_barrier.F
@@ -3463,7 +3463,7 @@ c        end if
         num_cont_hb(i)=num_conti
       enddo
       do i=iturn4_start,iturn4_end
-        if (i.le.1) cycle
+        if (i.lt.1) cycle
         if (itype(i).eq.ntyp1 .or. itype(i+1).eq.ntyp1
 C changes suggested by Ana to avoid out of bounds
 c     & .or.((i+5).gt.nres)