Operator =.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(conservative_compressible), | intent(inout) | :: | lhs | Left hand side. |
||
| class(conservative_object), | intent(in) | :: | rhs | Right hand side. |
pure subroutine cons_assign_cons(lhs, rhs)
!< Operator `=`.
class(conservative_compressible), intent(inout) :: lhs !< Left hand side.
class(conservative_object), intent(in) :: rhs !< Right hand side.
select type(rhs)
class is (conservative_compressible)
lhs%density = rhs%density
lhs%momentum = rhs%momentum
lhs%energy = rhs%energy
endselect
endsubroutine cons_assign_cons