write_lines Subroutine

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

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit
type(string), intent(in) :: lines(1:)
character(len=*), intent(in), optional :: form
integer, intent(out), optional :: iostat
character(len=*), intent(inout), optional :: iomsg

Calls

proc~~write_lines~3~~CallsGraph proc~write_lines~3 write_lines proc~write_line string%write_line proc~write_lines~3->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~2 string%upper proc~write_line->proc~upper~2

Called by

proc~~write_lines~3~~CalledByGraph proc~write_lines~3 write_lines proc~write_file~3 write_file proc~write_file~3->proc~write_lines~3 program~stringifor_test_csv_naive_parser stringifor_test_csv_naive_parser program~stringifor_test_csv_naive_parser->proc~write_file~3 program~stringifor_test_csv_naive_parser~2 stringifor_test_csv_naive_parser program~stringifor_test_csv_naive_parser~2->proc~write_file~3 program~volatile_doctest~26 volatile_doctest program~volatile_doctest~26->proc~write_file~3 program~volatile_doctest~664 volatile_doctest program~volatile_doctest~664->proc~write_file~3

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