Release the MPI communicator.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(mp_comm_type), | intent(inout) | :: | mp_comm |
SUBROUTINE dbcsr_t_nd_mp_free(mp_comm) !! Release the MPI communicator. TYPE(mp_comm_type), INTENT(INOUT) :: mp_comm CALL mp_comm_free(mp_comm) END SUBROUTINE dbcsr_t_nd_mp_free