slen_trim Function

public elemental function slen_trim(self) result(l)

Arguments

Type IntentOptional AttributesName
class(string), intent(in) :: self

The string.

Return Value integer

String length.

Description

Return the length of a string, ignoring any trailing blanks.

Called By

proc~~slen_trim~~CalledByGraph proc~slen_trim slen_trim interface~len_trim len_trim interface~len_trim->proc~slen_trim
Help

Source Code

  elemental function slen_trim(self) result(l)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Return the length of a string, ignoring any trailing blanks.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string), intent(in) :: self !< The string.
  integer                   :: l    !< String length.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(self%raw)) then
    l = len_trim(string=self%raw)
  else
    l = 0
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction slen_trim