src/ffs/ffs_direct.c
static int ffs_direct_delete(ffs_ensemble_t * old, ffs_trial_arg_t * trial,
			     int interface) {
  int n;
  int pid;
  int mpi_errnol = 0;
  const char * stub = NULL;

  MPI_Comm comm;

  dbg_return_if(old == NULL, -1);
  dbg_return_if(trial == NULL, -1);

  proxy_id(trial->proxy, &pid);
  proxy_comm(trial->proxy, &comm);

  if (pid == 0) {
    for (n = 0; n < old->nsuccess; n++) {
      stub = util_filename_stub(trial->inst_id, interface, old->traj[n]);
      mpi_errnol = proxy_state(trial->proxy, SIM_STATE_DELETE, stub);
      dbg_ifm(mpi_errnol, "Failed to remove file %s", stub);
    }
  }

  /* An error may have occured removing a file, but we should try to
   * continue */

  return 0;
}
/*****************************************************************************
 *
 *  ffs_direct_delete
 *
 *  Delete the files associated with an interface (first proxy only).
 *
 *****************************************************************************/
ffs_direct_delete
Delete the files associated with an interface (first proxy only).
ffs_direct_delete Delete the files associated with an interface ( first proxy only ) .
static int ffs_direct_delete(ffs_ensemble_t * old, ffs_trial_arg_t * trial,
			     int interface) {
  int n;
  int pid;
  int mpi_errnol = 0;
  const char * stub = NULL;
  MPI_Comm comm;
  dbg_return_if(old == NULL, -1);
  dbg_return_if(trial == NULL, -1);
  proxy_id(trial->proxy, &pid);
  proxy_comm(trial->proxy, &comm);
  if (pid == 0) {
    for (n = 0; n < old->nsuccess; n++) {
      stub = util_filename_stub(trial->inst_id, interface, old->traj[n]);
      mpi_errnol = proxy_state(trial->proxy, SIM_STATE_DELETE, stub);
      dbg_ifm(mpi_errnol, "Failed to remove file %s", stub);
    }
  }
  return 0;
}
static int ffs_direct_delete ( ffs_ensemble_t * old , ffs_trial_arg_t * trial , int interface ) { int n ; int pid ; int mpi_errnol = 0 ; const char * stub = NULL ; MPI_Comm comm ; dbg_return_if ( old == NULL , -1 ) ; dbg_return_if ( trial == NULL , -1 ) ; proxy_id ( trial -> proxy , & pid ) ; proxy_comm ( trial -> proxy , & comm ) ; if ( pid == 0 ) { for ( n = 0 ; n < old -> nsuccess ; n ++ ) { stub = util_filename_stub ( trial -> inst_id , interface , old -> traj [ n ] ) ; mpi_errnol = proxy_state ( trial -> proxy , SIM_STATE_DELETE , stub ) ; dbg_ifm ( mpi_errnol , " " , stub ) ; } } return 0 ; }
ffs_direct_delete
  Delete the files associated with an interface (first proxy only).
ffs_direct_delete Delete the files associated with an interface ( first proxy only ) .
/* An error may have occured removing a file, but we should try to
   * continue */