ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2025-01-13 14:40:35 +05:00
Code Issues Packages Projects Releases Wiki Activity

parallel computing

Browse Source
This commit is contained in:
Joachim Schoeberl 2012-02-12 02:25:26 +00:00
parent d705856ed0
commit 6770f8f1aa
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ng/ngappinit.cpp
View File

@ -66,11 +66,12 @@ bool shellmode = false;
int main(int argc, char ** argv)
{
#ifdef PARALLEL
// MPI_Init(&argc, &argv);
int required = MPI_THREAD_MULTIPLE;
// int required = 0;
int provided;
MPI_Init_thread(&argc, &argv, required, &provided);
@ -140,7 +141,7 @@ int main(int argc, char ** argv)
if (verbose)
cout << "NETGENDIR = " << ngdir << endl;
if ( netgen::id == 0 )
{

4
ng/parallelfunc.cpp
View File

@ -98,8 +98,6 @@ void ParallelRun()
MPI_Comm_size(MPI_COMM_WORLD, &ntasks);
MPI_Comm_rank(MPI_COMM_WORLD, &id);
bool test = true;
// testout = new ostream(0);
@ -195,9 +193,9 @@ void ParallelRun()
MyMPI_Recv (curDrawable, 0, MPI_TAG_VIS);
MyMPI_Recv (contextid, 0, MPI_TAG_VIS);
display = XOpenDisplay (displname.c_str());
/*
PrintMessage (3, "displ - name = ", displname);
PrintMessage (3, "display = ", display,