* real_scalar operator.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(integrand_oscillation), | intent(in) | :: | lhs | Left hand side. | ||
| real(kind=R_P), | intent(in) | :: | rhs | Right hand side. | 
Operator result.
   pure function integrand_multiply_real_scalar(lhs, rhs) result(opr)
   !< `* real_scalar` operator.
   class(integrand_oscillation), intent(in) :: lhs    !< Left hand side.
   real(R_P),                    intent(in) :: rhs    !< Right hand side.
   real(R_P), allocatable                   :: opr(:) !< Operator result.
   opr = lhs%U * rhs
   endfunction integrand_multiply_real_scalar