section_eq_character Function

  1. finer_section_t.f90
  2. finer_section_t
  3. section_eq_character

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

Equal to character logical operator.

Arguments

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

Left hand side.
character(kind=CK,len=*), intent(in) :: rhs

Right hand side.

Return Value logical

Opreator test result.


Contents

Source Code

section_eq_character

Source Code

  elemental function section_eq_character(lhs, rhs) result(is_it)
  !< Equal to character logical operator.
  class(section),            intent(in) :: lhs   !< Left hand side.
  character(kind=CK, len=*), intent(in) :: rhs   !< Right hand side.
  logical                               :: is_it !< Opreator test result.

  is_it = lhs%sname == rhs
  endfunction section_eq_character