Bcast function of encapsulated data.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_data_obj), | intent(in) | :: | base | |||
integer, | intent(in) | :: | source | |||
integer, | intent(in) | :: | grp | |||
integer, | intent(inout) | :: | request |
SUBROUTINE dbcsr_ibcast_any(base, source, grp, request)
!! Bcast function of encapsulated data.
TYPE(dbcsr_data_obj), INTENT(IN) :: base
INTEGER, INTENT(IN) :: source, grp
INTEGER, INTENT(INOUT) :: request
SELECT CASE (dbcsr_data_get_type(base))
CASE (dbcsr_type_real_4)
CALL mp_ibcast(base%d%r_sp, source, grp, request)
CASE (dbcsr_type_real_8)
CALL mp_ibcast(base%d%r_dp, source, grp, request)
CASE (dbcsr_type_complex_4)
CALL mp_ibcast(base%d%c_sp, source, grp, request)
CASE (dbcsr_type_complex_8)
CALL mp_ibcast(base%d%c_dp, source, grp, request)
CASE default
DBCSR_ABORT("Incorrect data type")
END SELECT
END SUBROUTINE dbcsr_ibcast_any