Operator =
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(block_signature_object), | intent(inout) | :: | lhs | Left hand side. |
||
type(block_signature_object), | intent(in) | :: | rhs | Right hand side. |
pure subroutine block_d_assign_block_d(lhs, rhs)
!< Operator `=`.
class(block_signature_object), intent(inout) :: lhs !< Left hand side.
type(block_signature_object), intent(in) :: rhs !< Right hand side.
lhs%id = rhs%id
lhs%level = rhs%level
lhs%gc = rhs%gc
lhs%ni = rhs%ni
lhs%nj = rhs%nj
lhs%nk = rhs%nk
lhs%emin = rhs%emin
lhs%emax = rhs%emax
lhs%is_cartesian = rhs%is_cartesian
lhs%is_null_x = rhs%is_null_x
lhs%is_null_y = rhs%is_null_y
lhs%is_null_z = rhs%is_null_z
endsubroutine block_d_assign_block_d