cdata_section_chunk Subroutine

  1. m_psml_parsing_helpers.F90
  2. m_psml_parsing_helpers
  3. cdata_section_chunk

public subroutine cdata_section_chunk(chunk)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: chunk

Contents

Source Code

cdata_section_chunk

Source Code

subroutine cdata_section_chunk(chunk)
  
character(len=*), intent(in) :: chunk

if (len_trim(chunk) == 0) RETURN     ! skip empty chunk

if (in_input_file) then
   call safe_str_assign(ifp%buffer,ifp%buffer // chunk)
endif

end subroutine cdata_section_chunk