Skip to content

# publicespressomd/espresso

### Subversion checkout URL

You can clone with HTTPS or Subversion.

Fetching contributors…

Cannot retrieve contributors at this time

file 88 lines (73 sloc) 2.643 kb
 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 /* Copyright (C) 2010,2012 The ESPResSo project Copyright (C) 2002,2003,2004,2005,2006,2007,2008,2009,2010 Max-Planck-Institute for Polymer Research, Theory Group This file is part of ESPResSo. ESPResSo is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. ESPResSo is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . *//** \file errorhandling.c Implementation of \ref errorhandling.h "errorhandling.h".*/#include #include #include #include "utils.h"#include "errorhandling.h"#include "communication.h"/******************* exported variables **********************//** buffer for error messages during the integration process. NULL if no errors occured. */char *error_msg;int n_error_msg = 0;/******************* exported functions **********************/char *runtime_error(int errlen){  /* the true length of the string will be in general shorter than n_error_msg, at least if numbers are involved */  int curend = error_msg ? strlen(error_msg) : 0;  n_error_msg = curend + errlen + 1;   error_msg = realloc(error_msg, n_error_msg);  return error_msg + curend;}int check_runtime_errors(){  int n_all_error_msg;  MPI_Allreduce(&n_error_msg, &n_all_error_msg, 1, MPI_INT, MPI_SUM, comm_cart);  return n_all_error_msg;}void errexit(){#ifdef FORCE_CORE  core();#endif  exit(1);}static void sigint_handler(int sig) {  /* without this exit handler the nodes might exit asynchronously * without calling MPI_Finalize, which may cause MPI to hang * (e.g. this handler makes CTRL-c work properly with poe) * * NOTE: mpirun installs its own handler for SIGINT/SIGTERM * and takes care of proper cleanup and exit */  char *errtxt;  static int numcalls = 0;  if (numcalls++ > 0) exit(sig); // catch sig only once  /* we use runtime_error to indicate that sig was called; * upon next call of mpi_gather_runtime_errors all nodes * will clean up and exit. */  errtxt = runtime_error(64);  ERROR_SPRINTF(errtxt, "{000 caught signal %d} ",sig);}void register_sigint_handler(){  signal(SIGINT, sigint_handler);}
Something went wrong with that request. Please try again.