X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Flocal_move.f;h=763d3cc821dfd76db68258f1b1a3ee0ba19acb3e;hb=ed61b513686e36bded0e03e1e6e66d7d21d4981f;hp=3c15bc004704dcd4665f2e5ecc8ba36517be7fc6;hpb=d6bb3f3ccaa1703cb7cb5d12dd1e4d1db23e0b7c;p=unres.git diff --git a/source/unres/src_MD-M/local_move.f b/source/unres/src_MD-M/local_move.f index 3c15bc0..763d3cc 100644 --- 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)