dotproduct – VecFor

private elemental function dotproduct(lhs, rhs) result(dot)

Compute the scalar (dot) product.

${\rm D}= x_1 \cdot x_2 + y_1 \cdot y_2 + z_1 \cdot z_2$ where $x_i$ , $y_i$ and $z_i$ $i=1,2$ are the components of the vectors.

 type(vector_R4P) :: pt(1:2)
 pt(1) = ex_R4P
 pt(2) = ey_R4P
 print "(F3.1)", pt(1).dot.pt(2)

Type	Intent	Optional	Attributes		Name
class(vector_R4P),	intent(in)			::	lhs	Left hand side.
type(vector_R4P),	intent(in)			::	rhs	Right hand side.

Dot product.

None