Operator =.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(eos_compressible), | intent(inout) | :: | lhs | Left hand side. |
||
| class(eos_object), | intent(in) | :: | rhs | Right hand side. |
pure subroutine eos_assign_eos(lhs, rhs)
!< Operator `=`.
class(eos_compressible), intent(inout) :: lhs !< Left hand side.
class(eos_object), intent(in) :: rhs !< Right hand side.
select type(rhs)
class is (eos_compressible)
lhs%cp_ = rhs%cp_
lhs%cv_ = rhs%cv_
lhs%g_ = rhs%g_
lhs%R_ = rhs%R_
lhs%delta_ = rhs%delta_
lhs%eta_ = rhs%eta_
lhs%gm1_ = rhs%gm1_
lhs%gp1_ = rhs%gp1_
endselect
endsubroutine eos_assign_eos