ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-12-26 05:50:32 +05:00
Code Issues Packages Projects Releases Wiki Activity

mpi

Browse Source
This commit is contained in:
Joachim Schoeberl 2012-06-16 12:10:38 +00:00
parent d950e91a73
commit 35b373ba36
1 changed files with 4 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ng/parallelfunc.cpp
View File

@ -1,5 +1,3 @@
#define NGSOLVE
#ifdef PARALLEL
#include "dlfcn.h"
@ -73,6 +71,7 @@ void Parallel_Exit();
namespace netgen {
extern AutoPtr<Mesh> mesh;
extern VisualSceneMesh vsmesh;
extern Flags parameters;
}
using namespace netgen;
@ -90,23 +89,14 @@ void ParallelRun()
MPI_Comm_size(MPI_COMM_WORLD, &ntasks);
MPI_Comm_rank(MPI_COMM_WORLD, &id);
// testout = new ostream(0);
testout = new ofstream (string("testout_proc") + id );
if (parameters.StringFlagDefined ("testout"))
testout = new ofstream (string("testout_proc") + id );
while ( true )
{
#ifdef SCALASCA
#pragma pomp inst begin (message)
#endif
// MyMPI_Recv ( message, 0, MPI_TAG_CMD );
message = MyMPI_RecvCmd();
#ifdef SCALASCA
#pragma pomp inst end (message)
#endif
if ( message.compare(0, 3, "ngs") == 0 )
{
// PrintMessage ( 1, "Starting NgSolve routine ", message ) ;