le_string_char Function

private elemental function le_string_char(lhs, rhs) result(is_le)

Compare two character sequences for being less or equal. In this version the left-hand side character sequences is by a string.

Arguments

Type IntentOptional Attributes Name
type(string_type), intent(in) :: lhs
character(len=*), intent(in) :: rhs

Return Value logical


Called by

proc~~le_string_char~~CalledByGraph proc~le_string_char le_string_char interface~operator(lt=) operator(<=) interface~operator(lt=)->proc~le_string_char

Source Code

elemental function le_string_char(lhs, rhs) result(is_le)
   type(string_type), intent(in) :: lhs
   character(len=*), intent(in) :: rhs
   logical :: is_le

   is_le = .not. (lhs > rhs)

end function le_string_char