From ffc9cfa2ea9290f79c5ac1b1cbec231c6d305671 Mon Sep 17 00:00:00 2001
From: sjplimp <sjplimp@f3b2605a-c512-4ea7-a41b-209d697bcdaa>
Date: Thu, 6 May 2010 17:49:46 +0000
Subject: [PATCH] git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@4094
 f3b2605a-c512-4ea7-a41b-209d697bcdaa

---
 src/fix_evaporate.cpp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/fix_evaporate.cpp b/src/fix_evaporate.cpp
index 31e15d73ef..28e89dc035 100644
--- a/src/fix_evaporate.cpp
+++ b/src/fix_evaporate.cpp
@@ -194,7 +194,7 @@ void FixEvaporate::pre_exchange()
 
   // atomic deletions
   // choose atoms randomly across all procs and mark them for deletion
-  // shrink list of eligible candidates as my atoms get marked
+  // shrink eligible list as my atoms get marked
 
   if (molflag == 0) {
     for (i = 0; i < nwhack; i++) {
@@ -235,7 +235,7 @@ void FixEvaporate::pre_exchange()
       // bcast mol ID to delete all atoms from
       // only delete original iatom if mol ID = 0
 
-      MPI_Allreduce(&me,&proc,1,MPI_INT,MPI_SUM,world);
+      MPI_Allreduce(&me,&proc,1,MPI_INT,MPI_MAX,world);
       MPI_Bcast(&imolecule,1,MPI_INT,proc,world);
       ndelone = 0;
       for (i = 0; i < nlocal; i++) {
@@ -253,7 +253,7 @@ void FixEvaporate::pre_exchange()
       i = 0;
       while (i < ncount) {
 	if (mark[list[i]]) {
-	  list[i] = list[ncount];
+	  list[i] = list[ncount-1];
 	  ncount--;
 	} else i++;
       }