Changeset 1656

Timestamp:

03/13/08 16:27:32 (2 years ago)

Author:

tautges

Message:

Adding option string to newMesh call in partest to tell it to initialize in parallel; also adding parsing of that option in iMesh implementation.

Location:

MOAB/trunk/tools/iMesh

Files:

• iMesh_MOAB.cpp (modified) (3 diffs)
• partest.cpp (modified) (2 diffs)

MOAB/trunk/tools/iMesh/iMesh_MOAB.cpp

@@ -4 +4 @@
 #include "MBCN.hpp"
 #include "MeshTopoUtil.hpp"
+#include "FileOptions.hpp"
+
+#ifdef USE_MPI    
+#include "mpi.h"
+#endif
 
 #include <iostream>
@@ -13 +18 @@
   bool haveDeletedEntities;
 public:
-  MBiMesh() : haveDeletedEntities(false) {}
+  MBiMesh(int proc_rank = 0, int proc_size = 0) 
+      : MBCore(proc_rank, proc_size), haveDeletedEntities(false)
+    {}
+
   virtual ~MBiMesh();
   bool have_deleted_ents( bool reset ) {
@@ -233 +241 @@
                    iMesh_Instance *instance, int *err, int options_len) 
 {
-  MBInterface* core = new MBiMesh();
+  std::string tmp_options(options, options_len);
+  FileOptions opts(tmp_options.c_str());
+
+  MBInterface* core;
+
+  MBErrorCode result = opts.get_null_option("PARALLEL");
+  if (MB_SUCCESS == result) {
+#ifdef USE_MPI    
+    int rank, size;
+    MPI_Comm_rank(MPI_COMM_WORLD, &rank); 
+    MPI_Comm_size(MPI_COMM_WORLD, &size); 
+    core = new MBiMesh(rank, size);
+#else
+    mError->set_last_error( "PARALLEL option not valid, this instance"
+                            " compiled for serial execution.\n" );
+    *err = MB_NOT_IMPLEMENTED;
+    return;
+#endif
+  }
+  else core = new MBiMesh();
+
   *instance = reinterpret_cast<iMesh_Instance>(core);
   if (0 == *instance) {

MOAB/trunk/tools/iMesh/partest.cpp

@@ -5 +5 @@
 
 
-#define IMESH_ASSERT(ierr) if (ierr!=0) printf("imesh asser\n");
+#define IMESH_ASSERT(ierr) if (ierr!=0) printf("imesh assert\n");
 #define IMESH_NULL 0
 
@@ -17 +17 @@
 
   imesh = IMESH_NULL;
-  iMesh_newMesh("", &imesh, &ierr, 0);
+  iMesh_newMesh("PARALLEL", &imesh, &ierr, 8);
   IMESH_ASSERT(ierr);