1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | int
saf_setProps_LibComm(SAF_LibProps *properties, /* The library property list which will be modified by this function
(See Properties). */
MPI_Comm communicator /*The new MPI communicator.*/
)
{
SAF_ENTER_NOINIT(saf_setProps_LibComm, SAF_PRECONDITION_ERROR);
SAF_LibProps *p = properties;
SAF_REQUIRE(p, SAF_LOW_CHK_COST, SAF_PRECONDITION_ERROR,
_saf_errmsg("PROPERTIES must be a valid library properties handle"));
p->LibComm = communicator;
SAF_LEAVE(SAF_SUCCESS);
}
|