len_trim_string Function

private elemental function len_trim_string(string) result(length)

Returns the length of the character sequence without trailing spaces represented by the string.

Arguments

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

Return Value integer


Called by

proc~~len_trim_string~~CalledByGraph proc~len_trim_string len_trim_string interface~len_trim len_trim interface~len_trim->proc~len_trim_string

Source Code

elemental function len_trim_string(string) result(length)
   type(string_type), intent(in) :: string
   integer :: length

   length = merge(len_trim(string%raw), 0, allocated(string%raw))

end function len_trim_string