assign_I4P Subroutine

private elemental subroutine assign_I4P(lhs, rhs)

Operator = integer(I4P).

 type(vector) :: pt
 pt = 1_I4P
 print "(3(F3.1,1X))", abs(pt%x), abs(pt%y), abs(pt%z)

Arguments

TypeIntentOptionalAttributesName
class(vector), intent(inout) :: lhs

Left hand side.

integer(kind=I4P), intent(in) :: rhs

Right hand side.


Contents

None