cross Function

private pure function cross(a, b) result(axb)

Vector cross product.

Arguments

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

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


Called by

proc~~cross~~CalledByGraph proc~cross cross proc~axis_angle_rotation axis_angle_rotation proc~axis_angle_rotation->proc~cross proc~normal normal proc~normal->proc~cross proc~generate_circle stl_file%generate_circle proc~generate_circle->proc~axis_angle_rotation proc~write_ascii_stl_file stl_file%write_ascii_stl_file proc~write_ascii_stl_file->proc~normal proc~write_binary_stl_file stl_file%write_binary_stl_file proc~write_binary_stl_file->proc~normal proc~add_cone stl_file%add_cone proc~add_cone->proc~generate_circle proc~add_cylinder stl_file%add_cylinder proc~add_cylinder->proc~generate_circle proc~add_arrow stl_file%add_arrow proc~add_arrow->proc~add_cone proc~add_arrow->proc~add_cylinder proc~add_curve stl_file%add_curve proc~add_curve->proc~add_cylinder proc~add_axes stl_file%add_axes proc~add_axes->proc~add_arrow

Source Code

    pure function cross(a,b) result(axb)

    implicit none

    real(wp),dimension(3) :: axb
    real(wp),dimension(3),intent(in) :: a
    real(wp),dimension(3),intent(in) :: b

    axb(1) = a(2)*b(3) - a(3)*b(2)
    axb(2) = a(3)*b(1) - a(1)*b(3)
    axb(3) = a(1)*b(2) - a(2)*b(1)

    end function cross