Traces

diff --git a/src/ParaMEDMEM/MPI_Access.cxx b/src/ParaMEDMEM/MPI_Access.cxx
index 50a22e77d8140ba2b3756ade1c2f24629d05b537..70d0ca6115e8b55ab6e0c2af4598bf4cefd04a0c 100644 (file)
--- a/src/ParaMEDMEM/MPI_Access.cxx
+++ b/src/ParaMEDMEM/MPI_Access.cxx
@@ -281,6 +281,10 @@ int MPI_Access::Send(void* buffer, int count, MPI_Datatype datatype, int target,
     DeleteRequest( RequestId ) ;
     sts = _CommInterface.send(buffer, count, datatype, target, MPItag,
                               *_IntraCommunicator ) ;
+    if ( _Trace )
+      cout << "MPI_Access::Send" << _MyRank << " SendRequestId "
+           << RequestId << " count " << count << " target " << target
+           << " MPItag " << MPItag << endl ;
   }
   return sts ;
 }
@@ -308,6 +312,10 @@ int MPI_Access::Recv(void* buffer, int count, MPI_Datatype datatype, int source,
     if ( OutCount != NULL ) {
       *OutCount = outcount ;
     }
+    if ( _Trace )
+      cout << "MPI_Access::Recv" << _MyRank << " RecvRequestId "
+           << RequestId << " count " << count << " source " << source
+           << " MPItag " << MPItag << endl ;
     DeleteRequest( RequestId ) ;
   }
   return sts ;
@@ -325,6 +333,15 @@ int MPI_Access::ISend(void* buffer, int count, MPI_Datatype datatype, int target
       aTimeMsg->tag = MPItag ;
     }
     MPI_Request *aSendRequest = MPIRequest( RequestId ) ;
+    if ( _Trace ) {
+      cout << "MPI_Access::ISend" << _MyRank << " ISendRequestId "
+           << RequestId << " count " << count << " target " << target
+           << " MPItag " << MPItag << endl ;
+      if ( MPItag == 1 )
+        cout << "MPI_Access::ISend" << _MyRank << " time "
+             << ((TimeMessage *)buffer)->time << " " << ((TimeMessage *)buffer)->deltatime
+             << endl ;
+    }
     sts = _CommInterface.Isend(buffer, count, datatype, target, MPItag,
                                 *_IntraCommunicator , aSendRequest) ;
   }
@@ -339,6 +356,15 @@ int MPI_Access::IRecv(void* buffer, int count, MPI_Datatype datatype, int source
     _MessageIdent aMethodIdent = MethodId( datatype ) ;
     int MPItag = NewRecvTag( datatype, source , aMethodIdent , true , RequestId ) ;
     MPI_Request *aRecvRequest = MPIRequest( RequestId ) ;
+    if ( _Trace ) {
+      cout << "MPI_Access::IRecv" << _MyRank << " IRecvRequestId "
+           << RequestId << " count " << count << " source " << source
+           << " MPItag " << MPItag << endl ;
+      if ( MPItag == 1 )
+        cout << "MPI_Access::ISend" << _MyRank << " time "
+             << ((TimeMessage *)buffer)->time << " " << ((TimeMessage *)buffer)->deltatime
+             << endl ;
+    }
     sts = _CommInterface.Irecv(buffer, count, datatype, source, MPItag,
                                 *_IntraCommunicator , aRecvRequest) ;
   }