assign_I1P Subroutine

private elemental subroutine assign_I1P(lhs, rhs)

Operator = integer(I4P).

 type(vector) :: pt
 pt = 1_I1P
 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=I1P), intent(in) :: rhs

Right hand side.


Contents

None