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
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
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=nnt
+ i=move_res(0.D0*deg2rad,180.D0*deg2rad,imov)
print *,'RETURNED ',i
print *,(R(i,3)/vbl,i=0,2)