vector_sub_R8P Function

  1. vecfor_R4P.F90
  2. vecfor_R4P
  3. vector_sub_R8P

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

Operator - real(R8P).

 type(vector_R4P) :: pt(0:1)
 character(4) :: res(3)
 pt(1) = 1 * ex_R4P + 2 * ey_R4P + 1 * ez_R4P
 pt(0) = pt(1) - 2._R8P
 res(1) = trim(adjustl(str('(F4.1)',pt(0)%x)))
 res(2) = trim(adjustl(str('(F4.1)',pt(0)%y)))
 res(3) = trim(adjustl(str('(F4.1)',pt(0)%z)))
 print "(A4,1X,A3,1X,A4)", res(1), res(2), res(3)

Arguments

TypeIntentOptionalAttributesName
class(vector_R4P), intent(in) :: lhs

Left hand side.
real(kind=R8P), intent(in) :: rhs

Right hand side.

Return Value type(vector_R4P)

Operator result.


Contents

None