chomp_string Function

private pure function chomp_string(string) result(chomped_string)

Uses

  • proc~~chomp_string~~UsesGraph proc~chomp_string chomp_string module~pic_string_type pic_string_type proc~chomp_string->module~pic_string_type module~pic_ascii pic_ascii module~pic_string_type->module~pic_ascii module~pic_optional_value pic_optional_value module~pic_string_type->module~pic_optional_value module~pic_types pic_types module~pic_string_type->module~pic_types module~pic_ascii->module~pic_types module~pic_optional_value->module~pic_types iso_c_binding iso_c_binding module~pic_types->iso_c_binding iso_fortran_env iso_fortran_env module~pic_types->iso_fortran_env

Remove trailing characters in set from string. Default character set variant where trailing whitespace is removed.

Arguments

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

Return Value type(string_type)


Called by

proc~~chomp_string~~CalledByGraph proc~chomp_string chomp_string interface~chomp chomp interface~chomp->proc~chomp_string proc~chomp_set_string_char chomp_set_string_char interface~chomp->proc~chomp_set_string_char proc~chomp_substring_char_string chomp_substring_char_string interface~chomp->proc~chomp_substring_char_string proc~chomp_substring_string_char chomp_substring_string_char interface~chomp->proc~chomp_substring_string_char proc~chomp_substring_string_string chomp_substring_string_string interface~chomp->proc~chomp_substring_string_string proc~chomp_set_string_char->interface~chomp proc~chomp_substring_char_string->interface~chomp proc~chomp_substring_string_char->interface~chomp proc~chomp_substring_string_string->interface~chomp

Variables

Type Visibility Attributes Name Initial
integer, private :: last

Source Code

   pure function chomp_string(string) result(chomped_string)
      ! Avoid polluting the module scope and use the assignment only in this scope
      use pic_string_type, only: assignment(=)
      type(string_type), intent(in) :: string
      type(string_type) :: chomped_string
      integer :: last

      last = verify(string, whitespace, back=.true.)
      chomped_string = char(string, 1, last)
   end function chomp_string