59 Teuchos::RCP<Teuchos::Comm<int> > comm =
60 Teuchos::createMpiComm<int>(Teuchos::rcp(
new Teuchos::OpaqueWrapper<MPI_Comm>(mpicomm)));
61 Teuchos::FancyOStream out(Teuchos::rcpFromRef(std::cout));
62 out.setShowProcRank(
true);
63 out.setOutputToRootOnly(-1);
68 out <<
"PID = " << getpid() << std::endl;
70 if (comm->getRank() == 0)