euclidean_inner_product Function

public pure function euclidean_inner_product(u, v) result(inner_product)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in), DIMENSION(3) :: u
double precision, intent(in), DIMENSION(3) :: v

Return Value double precision


Called by

proc~~euclidean_inner_product~~CalledByGraph proc~euclidean_inner_product euclidean_inner_product proc~compute_boost_matrices compute_boost_matrices proc~compute_boost_matrices->proc~euclidean_inner_product proc~construct_boost construct_boost proc~construct_boost->proc~euclidean_inner_product interface~compute_boost_matrices compute_boost_matrices interface~compute_boost_matrices->proc~compute_boost_matrices

Contents

Source Code

euclidean_inner_product

Source Code

  PURE FUNCTION euclidean_inner_product( u, v ) RESULT( inner_product )

    IMPLICIT NONE

    DOUBLE PRECISION, DIMENSION(3), INTENT(IN):: u
    DOUBLE PRECISION, DIMENSION(3), INTENT(IN):: v
    DOUBLE PRECISION:: inner_product

    inner_product= u(1)*v(1) + u(2)*v(2) + u(3)*v(3)

  END FUNCTION euclidean_inner_product