X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Flocal_move.f;h=763d3cc821dfd76db68258f1b1a3ee0ba19acb3e;hb=ed61b513686e36bded0e03e1e6e66d7d21d4981f;hp=d02a9d1f73ba2b3800de0219d428ffab19c56f51;hpb=d6bb3f3ccaa1703cb7cb5d12dd1e4d1db23e0b7c;p=unres.git

diff --git a/source/unres/src_CSA_DiL/local_move.f b/source/unres/src_CSA_DiL/local_move.f
index d02a9d1..763d3cc 100644
--- a/source/unres/src_CSA_DiL/local_move.f
+++ b/source/unres/src_CSA_DiL/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
@@ -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)