assign_option Subroutine

  1. finer_option_t.F90
  2. finer_option_t
  3. assign_option

private elemental subroutine assign_option(lhs, rhs)

Assignment between two options.

Arguments

TypeIntentOptionalAttributesName
class(option), intent(inout) :: lhs

Left hand side.
type(option), intent(in) :: rhs

Rigth hand side.

Contents

Source Code

assign_option

Source Code

  elemental subroutine assign_option(lhs, rhs)
  !< Assignment between two options.
  class(option), intent(inout) :: lhs !< Left hand side.
  type(option),  intent(in)    :: rhs !< Rigth hand side.

  if (rhs%oname%is_allocated()) lhs%oname = rhs%oname
  if (rhs%ovals%is_allocated()) lhs%ovals = rhs%ovals
  if (rhs%ocomm%is_allocated()) lhs%ocomm = rhs%ocomm
  endsubroutine assign_option