box_product Function

public pure function box_product(a, b, c) result(d)

Computes the box product (scalar triple product) of the three vectors.

Arguments

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

Return Value real(kind=wp)


Calls

proc~~box_product~~CallsGraph proc~box_product vector_module::box_product proc~cross vector_module::cross proc~box_product->proc~cross

Source Code

    pure function box_product(a,b,c) result(d)

    implicit none

    real(wp),dimension(:),intent(in) :: a
    real(wp),dimension(:),intent(in) :: b
    real(wp),dimension(:),intent(in) :: c
    real(wp) :: d

    d = dot_product(a,cross(b,c))

    end function box_product