dbcsr_ibcast_any Subroutine

public subroutine dbcsr_ibcast_any(base, source, grp, request)

Bcast function of encapsulated data.

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_data_obj), intent(in) :: base
integer, intent(in) :: source
integer, intent(in) :: grp
integer, intent(inout) :: request

Contents

Source Code


Source Code

   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