dbcsr_mp_type_from_anytype Function

public function dbcsr_mp_type_from_anytype(data_area) result(mp_type)

Creates an MPI combined type from the given anytype.

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_data_obj), intent(in) :: data_area

Data area of any type

Return Value type(mp_type_descriptor_type)

Type descriptor


Contents


Source Code

   FUNCTION dbcsr_mp_type_from_anytype(data_area) RESULT(mp_type)
      !! Creates an MPI combined type from the given anytype.

      TYPE(dbcsr_data_obj), INTENT(IN)                   :: data_area
         !! Data area of any type
      TYPE(mp_type_descriptor_type)                      :: mp_type
         !! Type descriptor

      SELECT CASE (data_area%d%data_type)
      CASE (dbcsr_type_int_4)
         mp_type = mp_type_make(data_area%d%i4)
      CASE (dbcsr_type_real_4)
         mp_type = mp_type_make(data_area%d%r_sp)
      CASE (dbcsr_type_real_8)
         mp_type = mp_type_make(data_area%d%r_dp)
      CASE (dbcsr_type_complex_4)
         mp_type = mp_type_make(data_area%d%c_sp)
      CASE (dbcsr_type_complex_8)
         mp_type = mp_type_make(data_area%d%c_dp)
      END SELECT
   END FUNCTION dbcsr_mp_type_from_anytype