soa_field_tag Function

private pure function soa_field_tag(field_kind) result(tag)

pic_serialize record tag a field kind is stored as, or -1 if the kind is unknown. A logical field maps onto the int32 tag.

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: field_kind

Return Value integer(kind=int32)


Called by

proc~~soa_field_tag~~CalledByGraph proc~soa_field_tag soa_field_tag proc~soa_stream_bytes soa_stream_bytes proc~soa_stream_bytes->proc~soa_field_tag proc~particle_soa_serialized_bytes particle_soa_t%particle_soa_serialized_bytes proc~particle_soa_serialized_bytes->proc~soa_stream_bytes

Source Code

   pure function soa_field_tag(field_kind) result(tag)
      !! `pic_serialize` record tag a field kind is stored as, or -1 if the
      !! kind is unknown. A `logical` field maps onto the `int32` tag.
      integer(int32), intent(in) :: field_kind
      integer(int32) :: tag

      select case (field_kind)
      case (SOA_FIELD_INT32, SOA_FIELD_LOGICAL)
         tag = PIC_TAG_INT32
      case (SOA_FIELD_INT64)
         tag = PIC_TAG_INT64
      case (SOA_FIELD_REAL_SP)
         tag = PIC_TAG_REAL_SP
      case (SOA_FIELD_REAL_DP)
         tag = PIC_TAG_REAL_DP
      case default
         tag = -1_int32
      end select
   end function soa_field_tag