character_le_string Function

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

Arguments

Type IntentOptional AttributesName
character(kind=CK,len=*), intent(in) :: lhs

Left hand side.

class(string), intent(in) :: rhs

Right hand side.

Return Value logical

Opreator test result.

Description

Lower equal than to character (inverted) logical operator.


Source Code

  elemental function character_le_string(lhs, rhs) result(is_it)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Lower equal than to character (inverted) logical operator.
  !---------------------------------------------------------------------------------------------------------------------------------
  character(kind=CK, len=*), intent(in) :: lhs   !< Left hand side.
  class(string),             intent(in) :: rhs   !< Right hand side.
  logical                               :: is_it !< Opreator test result.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  is_it = lhs <= rhs%raw
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction character_le_string