write_line Subroutine

private subroutine write_line(self, unit, form, iostat, iomsg)

Type Bound

string

Arguments

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

Calls

proc~~write_line~~CallsGraph proc~write_line string%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_line~~CalledByGraph proc~write_line string%write_line proc~write_lines string%write_lines proc~write_lines->proc~write_line proc~write_lines~3 write_lines proc~write_lines~3->proc~write_line proc~write_lines~4 write_lines proc~write_lines~4->proc~write_line proc~write_file string%write_file proc~write_file->proc~write_lines proc~write_file~3 write_file proc~write_file~3->proc~write_lines~3 proc~write_file~4 write_file proc~write_file~4->proc~write_lines~4 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~1107 volatile_doctest program~volatile_doctest~1107->proc~write_file program~volatile_doctest~1125 volatile_doctest program~volatile_doctest~1125->proc~write_file 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_line(self, unit, form, iostat, iomsg)
   !< Write line (record) to a connected unit.
   !<
   !< @note If the connected unit is unformatted a `new_line()` character is added at the end (if necessary) to mark the end of line.
   !<
   !< @note There is no doctests, this being tested by means of [[string:write_file]] doctests.
   class(string),    intent(in)              :: self    !< The string.
   integer,          intent(in)              :: unit    !< Logical unit.
   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.
   type(string)                              :: form_   !< Format of unit, local variable.
   integer                                   :: iostat_ !< IO status code, local variable.
   character(len=:), allocatable             :: iomsg_  !< IO status message, local variable.

   iostat_ = 0
   iomsg_ = repeat(' ', 99) ; if (present(iomsg)) iomsg_ = iomsg
   if (allocated(self%raw)) then
      form_ = 'FORMATTED' ; if (present(form)) form_ = form ; form_ = form_%upper()
      select case(form_%chars())
      case('FORMATTED')
         write(unit, "(A)", iostat=iostat_, iomsg=iomsg_) self%raw
      case('UNFORMATTED')
         if (self%end_with(new_line('a'))) then
            write(unit, iostat=iostat_, iomsg=iomsg_) self%raw
         else
            write(unit, iostat=iostat_, iomsg=iomsg_) self%raw//new_line('a')
         endif
      endselect
   endif
   if (present(iostat)) iostat = iostat_
   if (present(iomsg)) iomsg = iomsg_
   endsubroutine write_line