soa_check_field_count Subroutine

public subroutine soa_check_field_count(name, actual, expected, err)

Verify that a field record read back holds the expected element count.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

Field name, for the message.
integer(kind=default_int), intent(in) :: actual

Elements found in the record.
integer(kind=default_int), intent(in) :: expected

Elements the prologue said the container has.
type(error_t), intent(inout) :: err

Error state, ERROR_VALIDATION on a mismatch.

Calls

proc~~soa_check_field_count~~CallsGraph proc~soa_check_field_count soa_check_field_count interface~to_char to_char proc~soa_check_field_count->interface~to_char proc~error_set error_t%error_set proc~soa_check_field_count->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

Called by

proc~~soa_check_field_count~~CalledByGraph proc~soa_check_field_count soa_check_field_count proc~soa_read_int32_field soa_read_int32_field proc~soa_read_int32_field->proc~soa_check_field_count proc~soa_read_int64_field soa_read_int64_field proc~soa_read_int64_field->proc~soa_check_field_count proc~soa_read_logical_field soa_read_logical_field proc~soa_read_logical_field->proc~soa_check_field_count proc~soa_read_real_dp_field soa_read_real_dp_field proc~soa_read_real_dp_field->proc~soa_check_field_count proc~soa_read_real_sp_field soa_read_real_sp_field proc~soa_read_real_sp_field->proc~soa_check_field_count interface~soa_read_field soa_read_field interface~soa_read_field->proc~soa_read_int32_field interface~soa_read_field->proc~soa_read_int64_field interface~soa_read_field->proc~soa_read_logical_field interface~soa_read_field->proc~soa_read_real_dp_field interface~soa_read_field->proc~soa_read_real_sp_field proc~particle_soa_deserialize particle_soa_t%particle_soa_deserialize proc~particle_soa_deserialize->interface~soa_read_field

Source Code

   subroutine soa_check_field_count(name, actual, expected, err)
      !! Verify that a field record read back holds the expected element count.
      character(len=*), intent(in) :: name
         !! Field name, for the message.
      integer(default_int), intent(in) :: actual
         !! Elements found in the record.
      integer(default_int), intent(in) :: expected
         !! Elements the prologue said the container has.
      type(error_t), intent(inout) :: err
         !! Error state, `ERROR_VALIDATION` on a mismatch.

      if (actual /= expected) then
         call err%set(ERROR_VALIDATION, "soa field '"//name//"' holds "//to_char(int(actual, int64))// &
                      " elements, expected "//to_char(int(expected, int64)))
      end if
   end subroutine soa_check_field_count