write_unformatted Subroutine

  1. stringifor_string_t.F90
  2. stringifor_string_t
  3. write_unformatted

private subroutine write_unformatted(dtv, unit, iostat, iomsg)

Arguments

TypeIntentOptionalAttributesName
class(string), intent(in) :: dtv
integer, intent(in) :: unit
integer, intent(out) :: iostat
character(kind=CK,len=*), intent(inout) :: iomsg

Contents

Source Code

write_unformatted

Source Code

   subroutine write_unformatted(dtv, unit, iostat, iomsg)
   !< Unformatted output.
   class(string),             intent(in)    :: dtv    !< The string.
   integer,                   intent(in)    :: unit   !< Logical unit.
   integer,                   intent(out)   :: iostat !< IO status code.
   character(kind=CK, len=*), intent(inout) :: iomsg  !< IO status message.

   if (allocated(dtv%raw)) then
     write(unit, iostat=iostat, iomsg=iomsg)dtv%raw
   else
     write(unit, iostat=iostat, iomsg=iomsg)''
   endif
   endsubroutine write_unformatted