trim_ Function

private elemental function trim_(string) result(trim_string)

Remove trailing blanks from a varying string

Arguments

Type	Intent	Optional	Attributes		Name
type(varying_string),	intent(in)			::	string

Return Value type(varying_string)

Source Code

  elemental function trim_ (string) result (trim_string)

    type(varying_string), intent(in) :: string
    type(varying_string)             :: trim_string



    trim_string = TRIM(char(string))

! Finish

    return

  end function trim_