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

more mpi from ngcore

Browse Source
This commit is contained in:
Joachim Schoeberl 2022-04-26 16:28:43 +02:00
parent d165d67765
commit eef95eed52
3 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
libsrc/general/mpi_interface.hpp
View File

@ -94,6 +94,7 @@ namespace netgen
}
template <class T, int BASE>
[[deprecated("use ngcore - Array insterad")]]
inline void MyMPI_Recv ( NgArray <T, BASE> & s, int src, int tag, MPI_Comm comm)
{
MPI_Status status;
@ -106,6 +107,7 @@ namespace netgen
}
template <class T, int BASE>
[[deprecated("use ngcore - Array insterad")]]
inline int MyMPI_Recv ( NgArray <T, BASE> & s, int tag, MPI_Comm comm)
{
MPI_Status status;
@ -139,7 +141,8 @@ namespace netgen
*/
template <class T, int BASE>
[[deprecated("mympi_isend ngflatarray, use comm.send instead")]]
[[deprecated("mympi_isend ngflatarray, use comm.send instead")]]
[[deprecated("use ngcore - Array insterad")]]
inline MPI_Request MyMPI_ISend (NgFlatArray<T, BASE> s, int dest, int tag, MPI_Comm comm)
{
MPI_Request request;
@ -183,6 +186,7 @@ namespace netgen
*/
template <typename T>
// [[deprecated("do we need that ? ")]]
inline void MyMPI_ExchangeTable (TABLE<T> & send_data,
TABLE<T> & recv_data, int tag,
const NgMPI_Comm & comm)
@ -213,17 +217,21 @@ namespace netgen
}
[[deprecated("do we still send commands?")]]
extern void MyMPI_SendCmd (const char * cmd);
[[deprecated("do we still send commands?")]]
extern string MyMPI_RecvCmd ();
template <class T>
// [[deprecated("use comm.BCast instead")]]
inline void MyMPI_Bcast (T & s, MPI_Comm comm)
{
MPI_Bcast (&s, 1, GetMPIType<T>(), 0, comm);
}
template <class T>
// [[deprecated("use comm.BCast instead")]]
inline void MyMPI_Bcast (NgArray<T, 0> & s, NgMPI_Comm comm)
{
int size = s.Size();
@ -234,6 +242,7 @@ namespace netgen
}
template <class T>
[[deprecated("use comm.BCast instead")]]
inline void MyMPI_Bcast (NgArray<T, 0> & s, int root, MPI_Comm comm)
{
int id;

6
libsrc/meshing/parallelmesh.cpp
View File

@ -1123,8 +1123,10 @@ namespace netgen
{
NgArray<double> segmbuf;
MyMPI_Recv ( segmbuf, 0, MPI_TAG_MESH+5, comm);
// NgArray<double> segmbuf;
// MyMPI_Recv ( segmbuf, 0, MPI_TAG_MESH+5, comm);
Array<double> segmbuf;
comm.Recv (segmbuf, 0, MPI_TAG_MESH+5);
Segment seg;
int globsegi;

4
libsrc/visualization/vssolution.cpp
View File

@ -2661,7 +2661,7 @@ namespace netgen
// static int timer1 = NgProfiler::CreateTimer ("getminmax, vol");
// static int timer2 = NgProfiler::CreateTimer ("getminmax, surf");
#ifdef PARALLEL
#ifdef PARALLELGL
auto comm = mesh->GetCommunicator();
if (comm.Size() > 1)
{
@ -4535,7 +4535,7 @@ namespace netgen
glEndList ();
#ifdef PARALLELGL
#ifdef PARALLELGLGL
glFinish();
if (id > 0)
MyMPI_Send (clipplanelist_scal, 0, MPI_TAG_VIS);