src/ffs/ffs.c
int ffs_create(MPI_Comm comm, ffs_t ** pobj) {

  ffs_t * obj = NULL;

  dbg_return_if(pobj == NULL, -1);

  obj = u_calloc(1, sizeof(ffs_t));
  mpi_err_if_any((obj == NULL), comm);

  obj->comm = comm;
  obj->t.type = -1;
  obj->lambda.type = -1;

  *pobj = obj;

  return 0;

 err:
  if (obj) u_free(obj);

  return -1;
}
/*****************************************************************************
 *
 *  ffs_create
 *
 *  We just retain a reference to the incoming communicator.
 *
 *****************************************************************************/
ffs_create
We just retain a reference to the incoming communicator.
ffs_create We just retain a reference to the incoming communicator .
int ffs_create(MPI_Comm comm, ffs_t ** pobj) {
  ffs_t * obj = NULL;
  dbg_return_if(pobj == NULL, -1);
  obj = u_calloc(1, sizeof(ffs_t));
  mpi_err_if_any((obj == NULL), comm);
  obj->comm = comm;
  obj->t.type = -1;
  obj->lambda.type = -1;
  *pobj = obj;
  return 0;
 err:
  if (obj) u_free(obj);
  return -1;
}
int ffs_create ( MPI_Comm comm , ffs_t * * pobj ) { ffs_t * obj = NULL ; dbg_return_if ( pobj == NULL , -1 ) ; obj = u_calloc ( 1 , sizeof ( ffs_t ) ) ; mpi_err_if_any ( ( obj == NULL ) , comm ) ; obj -> comm = comm ; obj -> t . type = -1 ; obj -> lambda . type = -1 ; * pobj = obj ; return 0 ; err : if ( obj ) u_free ( obj ) ; return -1 ; }
ffs_create
  We just retain a reference to the incoming communicator.
ffs_create We just retain a reference to the incoming communicator .