Fixed typo in sample_target_velocity.

This commit is contained in:
Paul Romano 2011-12-15 13:52:52 -06:00
parent ecca5388a1
commit 50fbdd9ea6

View file

@ -1023,7 +1023,7 @@ contains
! determine velocity vector of target nucleus
v_target(1) = u*vt
v_target(2) = v*vt
v_target(3) = W*vt
v_target(3) = w*vt
end subroutine sample_target_velocity