ucross Function

public pure function ucross(v1, v2) result(u)

Unit vector of the cross product of two 3x1 vectors

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in), dimension(3) :: v1
real(kind=wp), intent(in), dimension(3) :: v2

Return Value real(kind=wp), dimension(3)


Calls

proc~~ucross~~CallsGraph proc~ucross ucross proc~cross cross proc~ucross->proc~cross proc~unit unit proc~ucross->proc~unit

Called by

proc~~ucross~~CalledByGraph proc~ucross ucross proc~bplane bplane proc~bplane->proc~ucross proc~solve_lambert_izzo solve_lambert_izzo proc~solve_lambert_izzo->proc~ucross proc~bplane_test bplane_test proc~bplane_test->proc~bplane proc~lambert_test lambert_test proc~lambert_test->proc~solve_lambert_izzo

Source Code

    pure function ucross(v1,v2) result(u)

    implicit none

    real(wp),dimension(3),intent(in) :: v1
    real(wp),dimension(3),intent(in) :: v2
    real(wp),dimension(3)            :: u

    u = unit(cross(v1,v2))

    end function ucross