write_lines Subroutine

public subroutine write_lines(unit, lines, form, iostat, iomsg)

Write lines (records) to a connected-formatted unit.

Note

There is no doctests, this being tested by means of write_file doctests.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit

Logical unit.
type(string), intent(in) :: lines(1:)

The lines.
character(len=*), intent(in), optional :: form

Format of unit.
integer, intent(out), optional :: iostat

IO status code.
character(len=*), intent(inout), optional :: iomsg

IO status message.

Calls

proc~~write_lines~~CallsGraph proc~write_lines write_lines proc~write_line string%write_line proc~write_lines->proc~write_line proc~chars string%chars proc~write_line->proc~chars proc~end_with string%end_with proc~write_line->proc~end_with proc~upper string%upper proc~write_line->proc~upper

Called by

proc~~write_lines~~CalledByGraph proc~write_lines write_lines proc~write_file write_file proc~write_file->proc~write_lines program~stringifor_test_csv_naive_parser stringifor_test_csv_naive_parser program~stringifor_test_csv_naive_parser->proc~write_file program~volatile_doctest~17 volatile_doctest program~volatile_doctest~17->proc~write_file

Source Code

   subroutine write_lines(unit, lines, form, iostat, iomsg)
   !< Write lines (records) to a connected-formatted unit.
   !<
   !< @note There is no doctests, this being tested by means of [[write_file]] doctests.
   integer,          intent(in)              :: unit      !< Logical unit.
   type(string),     intent(in)              :: lines(1:) !< The lines.
   character(len=*), intent(in),    optional :: form      !< Format of unit.
   integer,          intent(out),   optional :: iostat    !< IO status code.
   character(len=*), intent(inout), optional :: iomsg     !< IO status message.
   integer                                   :: l         !< Counter.

   do l=1, size(lines, dim=1)
      call lines(l)%write_line(unit=unit, form=form, iostat=iostat, iomsg=iomsg)
   enddo
   endsubroutine write_lines