X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MIN%2Fenergy_p_new_barrier.F;h=740912a11179f0b70acb92b5a06870865630086a;hb=76fa4df385e79ad50135ce02d30e7c2e75c4d6d0;hp=8943726e927c924ff8db5f0137f3835ee074e1c3;hpb=128007e1e8fec392aa570ad80bb1a08c25465400;p=unres.git

diff --git a/source/unres/src_MIN/energy_p_new_barrier.F b/source/unres/src_MIN/energy_p_new_barrier.F
index 8943726..740912a 100644
--- a/source/unres/src_MIN/energy_p_new_barrier.F
+++ b/source/unres/src_MIN/energy_p_new_barrier.F
@@ -4709,7 +4709,7 @@ C
           sinkt(k)=dsin(k*theti2)
         enddo
 C        if (i.gt.3) then
-        if (i.gt.3 .and. itype(imax0(i-3,1)).ne.ntyp1) then
+        if (i.gt.3 .and. itype(max0(i-3,1)).ne.ntyp1) then
 #ifdef OSF
           phii=phi(i)
           if (phii.ne.phii) phii=150.0