qreal64 * qreal128 operator.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(qreal64), | intent(in) | :: | lhs | Left hand side. |
||
| type(qreal128), | intent(in) | :: | rhs | Right hand side. |
Operator result.
function qreal64_mul_qreal128(lhs, rhs) result(opr)
!---------------------------------------------------------------------------------------------------------------------------------
!< `qreal64 * qreal128` operator.
!---------------------------------------------------------------------------------------------------------------------------------
type(qreal64), intent(in) :: lhs !< Left hand side.
type(qreal128), intent(in) :: rhs !< Right hand side.
type(qreal128) :: opr !< Operator result.
type(qreal128) :: tmp !< Temporary buffer with high precision.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
tmp = lhs
opr = tmp * rhs
!---------------------------------------------------------------------------------------------------------------------------------
endfunction qreal64_mul_qreal128