gfortran foxes in src_CSA/energy_p_new_barrier.F, src_CSA_DiL/energy_p_new_barrier...

[unres.git] / source / unres / src_MD-M / local_move.f

diff --git a/source/unres/src_MD-M/local_move.f b/source/unres/src_MD-M/local_move.f
index d02a9d1..3c15bc0 100644 (file)
--- 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