From afec4447f4d195291d203d2217f242f20812a3e3 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Tue, 26 Sep 2017 16:57:47 +0200 Subject: [PATCH] imax0 not in gfortran --- source/unres/src_MD/energy_p_new_barrier.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/unres/src_MD/energy_p_new_barrier.F b/source/unres/src_MD/energy_p_new_barrier.F index ff669d4..2f41df9 100644 --- a/source/unres/src_MD/energy_p_new_barrier.F +++ b/source/unres/src_MD/energy_p_new_barrier.F @@ -4932,7 +4932,7 @@ c & " ithet_end",ithet_end 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 -- 1.7.9.5