minkowski_inner_product Function

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

Arguments

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

Return Value double precision


Called by

proc~~minkowski_inner_product~~CalledByGraph proc~minkowski_inner_product minkowski_inner_product proc~minkowski_sqnorm minkowski_sqnorm proc~minkowski_sqnorm->proc~minkowski_inner_product

Contents

Source Code

minkowski_inner_product

Source Code

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

    IMPLICIT NONE

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

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

  END FUNCTION minkowski_inner_product