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