write_unformatted Subroutine

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

Write the character sequence hold by the string to a connected unformatted unit.

Arguments

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

Calls

proc~~write_unformatted~~CallsGraph proc~write_unformatted write_unformatted interface~slen slen proc~write_unformatted->interface~slen proc~maybe maybe proc~write_unformatted->proc~maybe proc~len_string len_string interface~slen->proc~len_string

Called by

proc~~write_unformatted~~CalledByGraph proc~write_unformatted write_unformatted interface~write (unformatted) write (unformatted) interface~write (unformatted)->proc~write_unformatted

Source Code

subroutine write_unformatted(string, unit, iostat, iomsg)
   type(string_type), intent(in) :: string
   integer, intent(in) :: unit
   integer, intent(out) :: iostat
   character(len=*), intent(inout) :: iomsg

   write (unit, iostat=iostat, iomsg=iomsg) int(slen(string), long)
   if (iostat == 0) then
      write (unit, iostat=iostat, iomsg=iomsg) maybe(string)
   end if

end subroutine write_unformatted