1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
 int
 saf_declare_coords(SAF_ParMode pmode,   /* The parallel mode. */
                    SAF_Field *field     /* The field to be characterized as a coordinate field. */
                    )
 {
     SAF_ENTER(saf_declare_coords, SAF_PRECONDITION_ERROR);

     SAF_REQUIRE(_saf_valid_pmode(pmode), SAF_LOW_CHK_COST, SAF_PRECONDITION_ERROR,
                 _saf_errmsg("PMODE must be valid"));
     if (!_saf_is_participating_proc(pmode)) SAF_RETURN(-1);

     /* Set the is coord field for this field record to true */
     SAF_DIRTY(field, pmode);
     SS_FIELD(field)->is_coord_field = TRUE;

     SAF_LEAVE(SAF_SUCCESS);
 }