git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@26 f3b2605a-c512-4ea7-a41b-209d697bcdaa

2006-09-27 19:51:33 +00:00
parent 3422cb245c
commit 222c95507e
536 changed files with 108384 additions and 0 deletions
--- a/src/error.cpp
+++ b/src/error.cpp
@ -0,0 +1,106 @@
+/* ----------------------------------------------------------------------
+   LAMMPS - Large-scale Atomic/Molecular Massively Parallel Simulator
+   www.cs.sandia.gov/~sjplimp/lammps.html
+   Steve Plimpton, sjplimp@sandia.gov, Sandia National Laboratories
+
+   Copyright (2003) Sandia Corporation.  Under the terms of Contract
+   DE-AC04-94AL85000 with Sandia Corporation, the U.S. Government retains
+   certain rights in this software.  This software is distributed under 
+   the GNU General Public License.
+
+   See the README file in the top-level LAMMPS directory.
+------------------------------------------------------------------------- */
+
+#include "mpi.h"
+#include "stdlib.h"
+#include "error.h"
+#include "universe.h"
+#include "memory.h"
+#include "output.h"
+
+/* ----------------------------------------------------------------------
+   called by all procs in universe
+   close all output, screen, and log files in world and universe
+------------------------------------------------------------------------- */
+
+void Error::universe_all(char *str)
+{
+  MPI_Barrier(universe->uworld);
+
+  if (universe->me == 0) {
+    if (universe->uscreen) fprintf(universe->uscreen,"ERROR: %s\n",str);
+    if (universe->ulogfile) fprintf(universe->ulogfile,"ERROR: %s\n",str);
+  }
+
+  if (output) delete output;
+  if (universe->nworlds > 1) {
+    if (screen && screen != stdout) fclose(screen);
+    if (logfile) fclose(logfile);
+  }
+  if (universe->ulogfile) fclose(universe->ulogfile);
+
+  MPI_Finalize();
+  exit(1);
+}
+
+/* ----------------------------------------------------------------------
+   called by one proc in universe
+------------------------------------------------------------------------- */
+
+void Error::universe_one(char *str)
+{
+  if (universe->uscreen)
+    fprintf(universe->uscreen,"ERROR on proc %d: %s\n",universe->me,str);
+  MPI_Abort(universe->uworld,1);
+}
+
+/* ----------------------------------------------------------------------
+   called by all procs in one world
+   close all output, screen, and log files in world
+------------------------------------------------------------------------- */
+
+void Error::all(char *str)
+{
+  MPI_Barrier(world);
+
+  int me;
+  MPI_Comm_rank(world,&me);
+
+  if (me == 0) {
+    if (screen) fprintf(screen,"ERROR: %s\n",str);
+    if (logfile) fprintf(logfile,"ERROR: %s\n",str);
+  }
+
+  if (output) delete output;
+  if (screen && screen != stdout) fclose(screen);
+  if (logfile) fclose(logfile);
+
+  MPI_Finalize();
+  exit(1);
+}
+
+/* ----------------------------------------------------------------------
+   called by one proc in world
+   write to world screen only if non-NULL on this proc
+   always write to universe screen 
+------------------------------------------------------------------------- */
+
+void Error::one(char *str)
+{
+  int me;
+  MPI_Comm_rank(world,&me);
+  if (screen) fprintf(screen,"ERROR on proc %d: %s\n",me,str);
+  if (universe->nworlds > 1)
+    fprintf(universe->uscreen,"ERROR on proc %d: %s\n",universe->me,str);
+  MPI_Abort(world,1);
+}
+
+/* ----------------------------------------------------------------------
+   called by one proc in world
+   only write to screen if non-NULL on this proc since could be file 
+------------------------------------------------------------------------- */
+
+void Error::warning(char *str)
+{
+  if (screen) fprintf(screen,"WARNING: %s\n",str);
+}