write_formatted Subroutine

private subroutine write_formatted(dtv, unit, iotype, v_list, iostat, iomsg)

Arguments

Type IntentOptional AttributesName
class(string), intent(in) :: dtv

The string.

integer, intent(in) :: unit

Logical unit.

character(kind=CK,len=*), intent(in) :: iotype

Edit descriptor.

integer, intent(in) :: v_list(:)

Edit descriptor list.

integer, intent(out) :: iostat

IO status code.

character(kind=CK,len=*), intent(inout) :: iomsg

IO status message.

Description

Formatted output.


Source Code

  subroutine write_formatted(dtv, unit, iotype, v_list, iostat, iomsg)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Formatted output.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string),             intent(in)    :: dtv       !< The string.
  integer,                   intent(in)    :: unit      !< Logical unit.
  character(kind=CK, len=*), intent(in)    :: iotype    !< Edit descriptor.
  integer,                   intent(in)    :: v_list(:) !< Edit descriptor list.
  integer,                   intent(out)   :: iostat    !< IO status code.
  character(kind=CK, len=*), intent(inout) :: iomsg     !< IO status message.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(dtv%raw)) then
    write(unit, "(A)", iostat=iostat, iomsg=iomsg)dtv%raw
  else
    write(unit, "(A)", iostat=iostat, iomsg=iomsg)''
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine write_formatted