soa_write_prologue Subroutine

public subroutine soa_write_prologue(unit, schema, n, err)

Write the stream header, the schema record and the element count.

Call this once on a freshly opened stream unit, before any field record.

Arguments

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

Stream unit opened for unformatted stream writing.
character(len=*), intent(in) :: schema

The container’s schema string.
integer(kind=default_int), intent(in) :: n

Number of live elements about to be written.
type(error_t), intent(inout) :: err

Error state.

Calls

proc~~soa_write_prologue~~CallsGraph proc~soa_write_prologue soa_write_prologue interface~to_char to_char proc~soa_write_prologue->interface~to_char interface~write_array write_array proc~soa_write_prologue->interface~write_array proc~error_has_error error_t%error_has_error proc~soa_write_prologue->proc~error_has_error proc~error_set error_t%error_set proc~soa_write_prologue->proc~error_set proc~write_header write_header proc~soa_write_prologue->proc~write_header 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 proc~write_char_record write_char_record interface~write_array->proc~write_char_record proc~write_int32_array write_int32_array interface~write_array->proc~write_int32_array proc~write_int64_array write_int64_array interface~write_array->proc~write_int64_array proc~write_real_dp_array write_real_dp_array interface~write_array->proc~write_real_dp_array proc~write_real_sp_array write_real_sp_array interface~write_array->proc~write_real_sp_array proc~check_io check_io proc~write_header->proc~check_io proc~check_io->interface~to_char proc~check_io->proc~error_set proc~write_char_record->proc~check_io proc~error_get_code error_t%error_get_code proc~write_char_record->proc~error_get_code proc~error_wrap error_t%error_wrap proc~write_char_record->proc~error_wrap proc~write_record_header write_record_header proc~write_char_record->proc~write_record_header proc~write_int32_array->proc~check_io proc~write_int32_array->proc~error_get_code proc~write_int32_array->proc~error_wrap proc~write_int32_array->proc~write_record_header proc~write_int64_array->proc~check_io proc~write_int64_array->proc~error_get_code proc~write_int64_array->proc~error_wrap proc~write_int64_array->proc~write_record_header proc~write_real_dp_array->proc~check_io proc~write_real_dp_array->proc~error_get_code proc~write_real_dp_array->proc~error_wrap proc~write_real_dp_array->proc~write_record_header proc~write_real_sp_array->proc~check_io proc~write_real_sp_array->proc~error_get_code proc~write_real_sp_array->proc~error_wrap proc~write_real_sp_array->proc~write_record_header proc~error_wrap->proc~error_has_error proc~clip_tail clip_tail proc~error_wrap->proc~clip_tail proc~write_record_header->proc~check_io

Called by

proc~~soa_write_prologue~~CalledByGraph proc~soa_write_prologue soa_write_prologue proc~particle_soa_serialize particle_soa_t%particle_soa_serialize proc~particle_soa_serialize->proc~soa_write_prologue

Source Code

   subroutine soa_write_prologue(unit, schema, n, err)
      !! Write the stream header, the schema record and the element count.
      !!
      !! Call this once on a freshly opened stream unit, before any field
      !! record.
      integer(default_int), intent(in) :: unit
         !! Stream unit opened for unformatted stream writing.
      character(len=*), intent(in) :: schema
         !! The container's schema string.
      integer(default_int), intent(in) :: n
         !! Number of live elements about to be written.
      type(error_t), intent(inout) :: err
         !! Error state.

      if (n < 0) then
         call err%set(ERROR_VALIDATION, "soa: cannot serialize a negative element count "// &
                      to_char(int(n, int64)))
         return
      end if

      call write_header(unit, err)
      if (err%has_error()) return
      call write_array(unit, schema, err)
      if (err%has_error()) return
      call write_array(unit, [int(n, int64)], err)
   end subroutine soa_write_prologue