[MOAB-dev] r3790 - in MOAB/trunk: src/parallel test/parallel

[tautges at mcs.anl.gov]

Author: tautges
Date: 2010-04-18 08:59:39 -0500 (Sun, 18 Apr 2010)
New Revision: 3790

Modified:
   MOAB/trunk/src/parallel/ReadParallel.cpp
   MOAB/trunk/test/parallel/mbparallelcomm_test.cpp
Log:
A little more detailed error output when a file wasn't read or the # partition sets
is too few for the # procs.



Modified: MOAB/trunk/src/parallel/ReadParallel.cpp
===================================================================
--- MOAB/trunk/src/parallel/ReadParallel.cpp	2010-04-17 15:34:44 UTC (rev 3789)
+++ MOAB/trunk/src/parallel/ReadParallel.cpp	2010-04-18 13:59:39 UTC (rev 3790)
@@ -547,7 +547,10 @@
       // than number of procs
     if (myPcomm->partition_sets().size() < (unsigned int) proc_sz) {
       result = MB_FAILURE;
-      RR("Number of procs greater than number of partitions.");
+      std::ostringstream ostr;
+      ostr << "Too few parts; P = " << proc_rk << ", tag = " << ptag 
+           << ", # sets = " << myPcomm->partition_sets().size() << std::endl;
+      RR(ostr.str().c_str());
     }
     
     Range tmp_sets;

Modified: MOAB/trunk/test/parallel/mbparallelcomm_test.cpp
===================================================================
--- MOAB/trunk/test/parallel/mbparallelcomm_test.cpp	2010-04-17 15:34:44 UTC (rev 3789)
+++ MOAB/trunk/test/parallel/mbparallelcomm_test.cpp	2010-04-18 13:59:39 UTC (rev 3790)
@@ -371,6 +371,7 @@
   else {
     result = mbImpl->load_file(filenames[0].c_str(), 0, 
                                options.str().c_str());
+    RRA("Failed to load file.");
     pcs[0] = ParallelComm::get_pcomm(mbImpl, 0);
     assert(pcs[0]);
   }