Operator =
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(non_dimensional_numbers_object), | intent(inout) | :: | lhs | Left hand side. |
||
type(non_dimensional_numbers_object), | intent(in) | :: | rhs | Right hand side. |
pure subroutine adim_assign_adim(lhs, rhs)
!< Operator `=`.
class(non_dimensional_numbers_object), intent(inout) :: lhs !< Left hand side.
type(non_dimensional_numbers_object), intent(in) :: rhs !< Right hand side.
lhs%error = rhs%error
lhs%Re = rhs%Re
lhs%Fr = rhs%Fr
lhs%We = rhs%We
lhs%Ma = rhs%Ma
lhs%Pr = rhs%Pr
lhs%L0 = rhs%L0
lhs%r0 = rhs%r0
lhs%v0 = rhs%v0
lhs%c0 = rhs%c0
lhs%mu0 = rhs%mu0
lhs%f0 = rhs%f0
lhs%k0 = rhs%k0
lhs%Dt0 = rhs%Dt0
lhs%p0 = rhs%p0
lhs%a0 = rhs%a0
lhs%T0 = rhs%T0
lhs%E0 = rhs%E0
lhs%q0 = rhs%q0
lhs%Re_inv = rhs%Re_inv
lhs%Fr2_inv = rhs%Fr2_inv
lhs%PrRe_inv = rhs%PrRe_inv
endsubroutine adim_assign_adim