read_unformatted Subroutine

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

Arguments

Type IntentOptional AttributesName
class(string), intent(inout) :: 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.

Description

Unformatted input.


Variables

TypeVisibility AttributesNameInitial
character(kind=CK,len=100), public :: temporary

Temporary storage string.


Source Code

  subroutine read_unformatted(dtv, unit, iostat, iomsg)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Unformatted input.
  !<
  !< @bug Change temporary acks: find a more precise length of the input string and avoid the trimming!
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string),             intent(inout) :: 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.
  character(kind=CK, len=100)              :: temporary !< Temporary storage string.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  read(unit, iostat=iostat, iomsg=iomsg)temporary
  dtv%raw = trim(temporary)
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine read_unformatted