Creates an MPI combined type from the given anytype.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_data_obj), | intent(in) | :: | data_area |
Data area of any type |
Type descriptor
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