serialize_close Subroutine

public subroutine serialize_close(unit, err)

Close a unit previously opened by one of the open helpers.

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(in) :: unit

Unit to close.
type(error_t), intent(inout) :: err

Error state, ERROR_IO if the close failed.

Calls

proc~~serialize_close~~CallsGraph proc~serialize_close serialize_close proc~check_io check_io proc~serialize_close->proc~check_io interface~to_char to_char proc~check_io->interface~to_char proc~error_set error_t%error_set proc~check_io->proc~error_set proc~to_char_char to_char_char interface~to_char->proc~to_char_char proc~to_char_dp to_char_dp interface~to_char->proc~to_char_dp proc~to_char_int32 to_char_int32 interface~to_char->proc~to_char_int32 proc~to_char_int64 to_char_int64 interface~to_char->proc~to_char_int64 proc~to_char_logical to_char_logical interface~to_char->proc~to_char_logical proc~to_char_matrix_dp to_char_matrix_dp interface~to_char->proc~to_char_matrix_dp proc~to_char_matrix_int32 to_char_matrix_int32 interface~to_char->proc~to_char_matrix_int32 proc~to_char_matrix_int64 to_char_matrix_int64 interface~to_char->proc~to_char_matrix_int64 proc~to_char_matrix_sp to_char_matrix_sp interface~to_char->proc~to_char_matrix_sp proc~to_char_sp to_char_sp interface~to_char->proc~to_char_sp proc~to_char_vector_dp to_char_vector_dp interface~to_char->proc~to_char_vector_dp proc~to_char_vector_int32 to_char_vector_int32 interface~to_char->proc~to_char_vector_int32 proc~to_char_vector_int64 to_char_vector_int64 interface~to_char->proc~to_char_vector_int64 proc~to_char_vector_sp to_char_vector_sp interface~to_char->proc~to_char_vector_sp

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: ios

Source Code

   subroutine serialize_close(unit, err)
      !! Close a unit previously opened by one of the open helpers.
      integer(default_int), intent(in) :: unit
         !! Unit to close.
      type(error_t), intent(inout) :: err
         !! Error state, `ERROR_IO` if the close failed.

      integer(default_int) :: ios

      close (unit, iostat=ios)
      call check_io(ios, "failed to close serialized stream", err)
   end subroutine serialize_close