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 vector_module::ucross proc~cross vector_module::cross proc~ucross->proc~cross proc~unit vector_module::unit proc~ucross->proc~unit

Called by

proc~~ucross~~CalledByGraph proc~ucross vector_module::ucross proc~bplane bplane_module::bplane proc~bplane->proc~ucross proc~solve_lambert_izzo lambert_module::solve_lambert_izzo proc~solve_lambert_izzo->proc~ucross proc~bplane_test bplane_module::bplane_test proc~bplane_test->proc~bplane proc~lambert_test lambert_module::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