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);
 }