From ff73ddbe323f5af85e31af14caa0ee6fc162a94a Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Fri, 23 Nov 2012 15:03:30 +0100 Subject: [PATCH] gfortran foxes in src_CSA/energy_p_new_barrier.F, src_CSA_DiL/energy_p_new_barrier.F, src_MD-M/local_move.f --- source/unres/src_CSA/energy_p_new_barrier.F | 2 +- source/unres/src_CSA_DiL/energy_p_new_barrier.F | 2 +- source/unres/src_MD-M/local_move.f | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/source/unres/src_CSA/energy_p_new_barrier.F b/source/unres/src_CSA/energy_p_new_barrier.F index 821d8f7..015a2b3 100644 --- a/source/unres/src_CSA/energy_p_new_barrier.F +++ b/source/unres/src_CSA/energy_p_new_barrier.F @@ -8133,7 +8133,7 @@ c---------------------------------------------------------------------------- include 'COMMON.GEO' logical swap double precision vv(2),pizda(2,2),auxmat(2,2),auxvec(2), - & auxvec1(2),auxvec2(1),auxmat1(2,2) + & auxvec1(2),auxvec2(2),auxmat1(2,2) logical lprn common /kutas/ lprn CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC diff --git a/source/unres/src_CSA_DiL/energy_p_new_barrier.F b/source/unres/src_CSA_DiL/energy_p_new_barrier.F index c1e8ad3..44de1a8 100644 --- a/source/unres/src_CSA_DiL/energy_p_new_barrier.F +++ b/source/unres/src_CSA_DiL/energy_p_new_barrier.F @@ -8166,7 +8166,7 @@ c---------------------------------------------------------------------------- include 'COMMON.GEO' logical swap double precision vv(2),pizda(2,2),auxmat(2,2),auxvec(2), - & auxvec1(2),auxvec2(1),auxmat1(2,2) + & auxvec1(2),auxvec2(2),auxmat1(2,2) logical lprn common /kutas/ lprn CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC diff --git a/source/unres/src_MD-M/local_move.f b/source/unres/src_MD-M/local_move.f index d02a9d1..3c15bc0 100644 --- a/source/unres/src_MD-M/local_move.f +++ b/source/unres/src_MD-M/local_move.f @@ -129,7 +129,7 @@ c$$$ endif c$$$ endif c The actual move, on residue i - iretcode=move_res(min,max,i,c) ! Discard iretcode + iretcode=move_res(min,max,i) ! Discard iretcode i=i+1 if (i.le.j) then @@ -150,7 +150,7 @@ c$$$ endif c$$$ endif c The actual move, on residue j - iretcode=move_res(min,max,j,c) ! Discard iretcode + iretcode=move_res(min,max,j) ! Discard iretcode j=j-1 endif enddo -- 1.7.9.5