cross Function

public pure function cross(r, v) result(c)

Cross product of two real 3x1 vectors

Arguments

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

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


Source Code

    pure function cross(r,v) result(c)

    implicit none

    real(wp),dimension(3),intent(in)  :: r
    real(wp),dimension(3),intent(in)  :: v
    real(wp),dimension(3)             :: c

    c(1) = r(2)*v(3)-v(2)*r(3)
    c(2) = r(3)*v(1)-v(3)*r(1)
    c(3) = r(1)*v(2)-v(1)*r(2)

    end function cross