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