option_eq_string Function

  1. finer_option_t.F90
  2. finer_option_t
  3. option_eq_string

private elemental function option_eq_string(lhs, rhs) result(is_it)

Equal to string logical operator.

Arguments

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

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

Right hand side.

Return Value logical

Opreator test result.


Contents

Source Code

option_eq_string

Source Code

  elemental function option_eq_string(lhs, rhs) result(is_it)
  !< Equal to string logical operator.
  class(option), intent(in) :: lhs   !< Left hand side.
  type(string),  intent(in) :: rhs   !< Right hand side.
  logical                   :: is_it !< Opreator test result.

  is_it = lhs%oname == rhs
  endfunction option_eq_string