strip_char Function

private pure function strip_char(string) result(stripped_string)

Remove leading and trailing whitespace characters.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string

Return Value character(len=:), allocatable


Called by

proc~~strip_char~~CalledByGraph proc~strip_char strip_char interface~strip strip interface~strip->proc~strip_char proc~strip_string strip_string interface~strip->proc~strip_string proc~parse_int_int32_char parse_int_int32_char proc~parse_int_int32_char->interface~strip proc~parse_integer_wide parse_integer_wide proc~parse_int_int32_char->proc~parse_integer_wide proc~parse_integer_wide->interface~strip proc~parse_real_sp_char parse_real_sp_char proc~parse_real_sp_char->interface~strip proc~parse_real_wide parse_real_wide proc~parse_real_sp_char->proc~parse_real_wide proc~parse_real_wide->interface~strip proc~strip_string->interface~strip interface~parse_int parse_int interface~parse_int->proc~parse_int_int32_char proc~parse_int_int32_string parse_int_int32_string interface~parse_int->proc~parse_int_int32_string proc~parse_int_int64_char parse_int_int64_char interface~parse_int->proc~parse_int_int64_char proc~parse_int_int64_string parse_int_int64_string interface~parse_int->proc~parse_int_int64_string interface~parse_real parse_real interface~parse_real->proc~parse_real_sp_char proc~parse_real_dp_char parse_real_dp_char interface~parse_real->proc~parse_real_dp_char proc~parse_real_dp_string parse_real_dp_string interface~parse_real->proc~parse_real_dp_string proc~parse_real_sp_string parse_real_sp_string interface~parse_real->proc~parse_real_sp_string proc~parse_int_int32_string->proc~parse_int_int32_char proc~parse_int_int64_char->proc~parse_integer_wide proc~parse_int_int64_string->proc~parse_integer_wide proc~parse_real_dp_char->proc~parse_real_wide proc~parse_real_dp_string->proc~parse_real_wide proc~parse_real_sp_string->proc~parse_real_sp_char proc~cli_get_int32 cli_t%cli_get_int32 proc~cli_get_int32->interface~parse_int proc~cli_get_int64 cli_t%cli_get_int64 proc~cli_get_int64->interface~parse_int proc~cli_get_real_dp cli_t%cli_get_real_dp proc~cli_get_real_dp->interface~parse_real proc~cli_get_real_sp cli_t%cli_get_real_sp proc~cli_get_real_sp->interface~parse_real

Variables

Type Visibility Attributes Name Initial
integer, private :: first
integer, private :: last

Source Code

   pure function strip_char(string) result(stripped_string)
      character(len=*), intent(in) :: string
      character(len=:), allocatable :: stripped_string
      integer :: first, last

      first = verify(string, whitespace)
      if (first == 0) then
         stripped_string = ""
      else
         last = verify(string, whitespace, back=.true.)
         stripped_string = string(first:last)
      end if

   end function strip_char