write_lines Subroutine

  1. stringifor.F90
  2. stringifor
  3. write_lines

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

Arguments

Type IntentOptional AttributesName
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.

Description

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

Called By

proc~~write_lines~~CalledByGraph proc~write_lines write_lines proc~write_file write_file proc~write_file->proc~write_lines
Help

Variables

TypeVisibility AttributesNameInitial
integer, public :: l

Counter.

Source Code

  subroutine write_lines(unit, lines, form, iostat, iomsg)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Write lines (records) to a connected-formatted unit.
  !---------------------------------------------------------------------------------------------------------------------------------
  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
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine write_lines