Checks whether this process is part of the message passing environment
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mp_obj), | intent(in) | :: | mp_env |
FUNCTION dbcsr_mp_active(mp_env) RESULT(active)
!! Checks whether this process is part of the message passing environment
TYPE(dbcsr_mp_obj), INTENT(IN) :: mp_env
LOGICAL :: active
active = ASSOCIATED(mp_env%mp)
END FUNCTION dbcsr_mp_active