From eb8b18913b41e4b1cc5ae52105817a8e0d331fc4 Mon Sep 17 00:00:00 2001
From: sjplimp <sjplimp@f3b2605a-c512-4ea7-a41b-209d697bcdaa>
Date: Wed, 26 Nov 2014 16:03:06 +0000
Subject: [PATCH] git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@12798
 f3b2605a-c512-4ea7-a41b-209d697bcdaa

---
 src/USER-MISC/fix_pimd.cpp | 26 +++++---------------------
 1 file changed, 5 insertions(+), 21 deletions(-)

diff --git a/src/USER-MISC/fix_pimd.cpp b/src/USER-MISC/fix_pimd.cpp
index 7d7ea265bb..5a9adc4736 100644
--- a/src/USER-MISC/fix_pimd.cpp
+++ b/src/USER-MISC/fix_pimd.cpp
@@ -653,31 +653,15 @@ void FixPIMD::comm_exec(double **ptr)
     for(int i=0; i<nsend; i++)
     {
       int index = atom->map(tag_send[i]);
-    
-#define ERR_HEAD "FEYNMAN|"
-#define ERR_LAST "Aborted in \"fix pimd\""
-#define _ECHO if(universe->me==0 && screen) fprintf(screen,
-#define _END );
 
       if(index<0)
       {
-        _ECHO "%s Error: Atom %d is missing at world [%d] rank [%d] required by  rank [%d].\n",
-          ERR_HEAD, tag_send[i], universe->iworld, comm->me, plan_recv[iplan] _END
+        char error_line[256];
+      
+        sprintf(error_line, "Atom %d is missing at world [%d] rank [%d] required by  rank [%d].\n",
+          tag_send[i], universe->iworld, comm->me, plan_recv[iplan]);
 	  
-/* --------------------------------------------------------------------------------------------------- */
-
-  char fname[100];
-  sprintf(fname,"err_%d_%d.xyz", universe->iworld, comm->me);
-  FILE *fp = fopen(fname,"w");
-  int n = atom->nlocal + atom->nghost;
-  fprintf(fp,"%d\n\n", n);
-  for(int i=0; i<atom->nlocal; i++) fprintf(fp, "O  %lf %lf %lf %d\n", atom->x[i][0], atom->x[i][1], atom->x[i][2],atom->tag[i]);
-  for(int i=nlocal; i<n; i++) fprintf(fp, "H  %lf %lf %lf %d\n", atom->x[i][0], atom->x[i][1], atom->x[i][2],atom->tag[i]);
-  fclose(fp);
-  
-/* --------------------------------------------------------------------------------------------------- */
-	  
-        error->universe_one(FLERR,ERR_LAST);
+        error->universe_one(FLERR,error_line);
       }
     
       memcpy(wrap_ptr, ptr[index], ncpy);