Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(string_t), | intent(inout) | :: | string |
subroutine remove_newline_characters(string)
type(string_t), intent(inout) :: string
integer :: feed,length
character(*), parameter :: CRLF = new_line('a')//achar(13)
character(*), parameter :: SPACE = ' '
call remove_characters_in_set(string%s,set=CRLF,replace_with=SPACE)
end subroutine remove_newline_characters