gfortran fixes in local_move.f, energy_p_new.F & initialize_p.F

[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 3c15bc0..763d3cc 100644 (file)
--- a/source/unres/src_MD-M/local_move.f
+++ b/source/unres/src_MD-M/local_move.f
@@ -960,7 +960,9 @@ c      print *,'NO MOVES FOUND, BEST PHI IS',phi*rad2deg
           R(j,i)=vbl*R(j,i)
         enddo
       enddo
-      i=move_res(R(0,1),0.D0*deg2rad,180.D0*deg2rad)
+c      i=move_res(R(0,1),0.D0*deg2rad,180.D0*deg2rad)
+      imov=2
+      i=move_res(0.D0*deg2rad,180.D0*deg2rad,imov)
       print *,'RETURNED ',i
       print *,(R(i,3)/vbl,i=0,2)