ge_string_string Function

private elemental function ge_string_string(lhs, rhs) result(is_ge)

Compare two character sequences for being greater or equal. In this version both character sequences are by a string.

Arguments

Type IntentOptional Attributes Name
type(string_type), intent(in) :: lhs
type(string_type), intent(in) :: rhs

Return Value logical


Called by

proc~~ge_string_string~~CalledByGraph proc~ge_string_string ge_string_string interface~operator(gt=) operator(>=) interface~operator(gt=)->proc~ge_string_string

Source Code

elemental function ge_string_string(lhs, rhs) result(is_ge)
   type(string_type), intent(in) :: lhs
   type(string_type), intent(in) :: rhs
   logical :: is_ge

   is_ge = .not. (rhs > lhs)

end function ge_string_string