converter = converter assignment.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(dBm_to_mW), | intent(inout) | :: | lhs | Left hand side. |
||
| class(uom_converter), | intent(in) | :: | rhs | Right hand side. |
pure subroutine assign_converter(lhs, rhs)
!---------------------------------------------------------------------------------------------------------------------------------
!< `converter = converter` assignment.
!---------------------------------------------------------------------------------------------------------------------------------
class(dBm_to_mW), intent(inout) :: lhs !< Left hand side.
class(uom_converter), intent(in) :: rhs !< Right hand side.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
select type(rhs)
class is (dBm_to_mW)
lhs = rhs
endselect
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine assign_converter