Changeset aa42a9 for src/bin/mpqc/mpqc.cc

Timestamp:

Jul 6, 2012, 5:47:36 PM (13 years ago)

Author:

Frederik Heber <heber@…>

Children:

36d8ab

Parents:

62dabe

Message:

Extracted getting of MPI Message group into own function.

File:

• src/bin/mpqc/mpqc.cc (modified) (2 diffs)

src/bin/mpqc/mpqc.cc

@@ -292 +292 @@
 }
 
+/** Gets the MPI Message group.
+ *
+ * \param grp reference to obtained group
+ * \param argc argument count
+ * \param argv argument array
+ */
+void getMessageGroup(Ref<MessageGrp> &grp, int argc, char **argv)
+{
+#if defined(HAVE_MPI) && defined(ALWAYS_USE_MPI)
+  grp = new MPIMessageGrp(&argc, &argv);
+#endif
+  if (grp.null()) grp = MessageGrp::initial_messagegrp(argc, argv);
+  if (grp.nonnull())
+    MessageGrp::set_default_messagegrp(grp);
+  else
+    grp = MessageGrp::get_default_messagegrp();
+}
+
 int
 try_main(int argc, char *argv[])
@@ -357 +375 @@
   // get the message group.  first try the commandline and environment
   Ref<MessageGrp> grp;
-#if defined(HAVE_MPI) && defined(ALWAYS_USE_MPI)
-  grp = new MPIMessageGrp(&argc, &argv);
-#endif
-  if (grp.null()) grp = MessageGrp::initial_messagegrp(argc, argv);
-  if (grp.nonnull())
-    MessageGrp::set_default_messagegrp(grp);
-  else
-    grp = MessageGrp::get_default_messagegrp();
+  getMessageGroup(grp, argc, argv);
 
   if (object_input == 0 && generic_input == 0) {