parallel bug fix

This commit is contained in:
Joachim Schoeberl 2011-06-30 13:53:35 +00:00
parent a64aa8226e
commit a19fe515b0

View File

@ -951,7 +951,7 @@ namespace netgen
{ {
FlatArray<PointIndex> verts = verts_of_proc[dest]; FlatArray<PointIndex> verts = verts_of_proc[dest];
MyMPI_ISend ( "vertex", dest ); MyMPI_Send ("vertex", dest);
MyMPI_ISend (verts, dest); MyMPI_ISend (verts, dest);
@ -1043,7 +1043,7 @@ namespace netgen
for ( int dest = 1; dest < ntasks; dest ++ ) for ( int dest = 1; dest < ntasks; dest ++ )
{ {
MyMPI_ISend ( "volumeelements", dest); MyMPI_Send ( "volumeelements", dest);
MyMPI_ISend ( elementarrays[dest], dest, sendrequest[dest] ); MyMPI_ISend ( elementarrays[dest], dest, sendrequest[dest] );
} }