vector_sub_I2P

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

Operator - integer(I2P).

 type(vector_R16P) :: pt(0:1)
 pt(1) = 1 * ex_R16P + 2 * ey_R16P + 1 * ez_R16P
 pt(0) = pt(1) - 3_I2P
 print "(3(F4.1,1X))", pt(0)%x, pt(0)%y, pt(0)%z

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_R16P),	intent(in)			::	lhs	Left hand side.
integer(kind=I2P),	intent(in)			::	rhs	Right hand side.

Return Value type(vector_R16P)

Operator result.

None

vector_sub_I2P Function

Contents

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

Arguments

Return Value type(vector_R16P)

Contents