cdata_section_chunk Subroutine

public subroutine cdata_section_chunk(chunk)

Arguments

Type IntentOptional Attributes Name
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