43 #ifndef PANZER_PAUSE_TO_ATTACH 44 #define PANZER_PAUSE_TO_ATTACH 46 #include "Teuchos_RCP.hpp" 47 #include "Teuchos_DefaultMpiComm.hpp" 48 #include "Teuchos_FancyOStream.hpp" 52 #include <sys/types.h> 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)
void pauseToAttach(MPI_Comm mpicomm)