R8P_mul_vector

private elemental function R8P_mul_vector(lhs, rhs) result(opr)

Operator real(R8P) *.

 type(vector_R8P) :: pt(0:1)
 pt(1) = 1 * ex_R8P + 2 * ey_R8P + 1 * ez_R8P
 pt(0) = 2._R8P * pt(1)
 print "(3(F3.1,1X))", abs(pt(0)%x), abs(pt(0)%y), abs(pt(0)%z)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8P),	intent(in)			::	lhs	Left hand side.
class(vector_R8P),	intent(in)			::	rhs	Right hand side.

Return Value type(vector_R8P)

Operator result.

None

R8P_mul_vector Function

Contents

private elemental function R8P_mul_vector(lhs, rhs) result(opr)

Arguments

Return Value type(vector_R8P)

Contents