-// Copyright (C) 2007-2012 CEA/DEN, EDF R&D
+// Copyright (C) 2007-2016 CEA/DEN, EDF R&D
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
-// version 2.1 of the License.
+// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
#include <vector>
#include <iostream>
-namespace ParaMEDMEM
+namespace MEDCoupling
{
typedef struct
{
};
- inline void MPIAccess::trace( bool trace )
+ inline void MPIAccess::trace( bool atrace )
{
- _trace = trace ;
+ _trace = atrace ;
}
// Delete the structure Request corresponding to RequestId identifier after
}
// Returns true if the tag MPITag corresponds to a TimeMessage
- inline bool MPIAccess::isTimeMessage( int MPITag ) const
+ inline bool MPIAccess::isTimeMessage( int aMPITag ) const
{
- return ((MPITag%MODULO_TAG) == _message_time) ;
- }
-
- // Returns the MPI size of a TimeMessage
- inline MPI_Aint MPIAccess::timeExtent() const
- {
- MPI_Aint extent ;
- MPI_Type_extent( _MPI_TIME , &extent ) ;
- return extent ;
- }
-
- // Returns the MPI size of a MPI_INT
- inline MPI_Aint MPIAccess::intExtent() const
- {
- MPI_Aint extent ;
- MPI_Type_extent( MPI_INT , &extent ) ;
- return extent ;
- }
-
- // Returns the MPI size of a MPI_DOUBLE
- inline MPI_Aint MPIAccess::doubleExtent() const
- {
- MPI_Aint extent ;
- MPI_Type_extent( MPI_DOUBLE , &extent ) ;
- return extent ;
+ return ((aMPITag%MODULO_TAG) == _message_time) ;
}
// Returns the MPI size of the MPI_Datatype datatype
- inline MPI_Aint MPIAccess::extent( MPI_Datatype datatype ) const
+ inline MPI_Aint MPIAccess::extent( MPI_Datatype adatatype ) const
{
- if ( datatype == _MPI_TIME )
+ if ( adatatype == _MPI_TIME )
return timeExtent() ;
- if ( datatype == MPI_INT )
+ if ( adatatype == MPI_INT )
return intExtent() ;
- if ( datatype == MPI_DOUBLE )
+ if ( adatatype == MPI_DOUBLE )
return doubleExtent() ;
return 0 ;
}
struct RequestStruct *aRequestStruct = _map_of_request_struct[ RequestId ] ;
if ( aRequestStruct )
return aRequestStruct->MPIDatatype;
- return (MPI_Datatype ) NULL ;
+ return MPI_DATATYPE_NULL;
}
// Returns the size of the receiving message of the request corresponding to
// Returns the _MessageIdent enum value corresponding to the MPI_Datatype datatype
// Look at MPIAccess::NewSendTag/NewRecvTag in MPIAccess.cxx
- inline _MessageIdent MPIAccess::methodId( MPI_Datatype datatype ) const
+ inline _MessageIdent MPIAccess::methodId( MPI_Datatype adatatype ) const
{
_MessageIdent aMethodIdent ;
- if ( datatype == _MPI_TIME )
+ if ( adatatype == _MPI_TIME )
aMethodIdent = _message_time;
- else if ( datatype == MPI_INT )
+ else if ( adatatype == MPI_INT )
aMethodIdent = _message_int ;
- else if ( datatype == MPI_DOUBLE )
+ else if ( adatatype == MPI_DOUBLE )
aMethodIdent = _message_double ;
else
aMethodIdent = _message_unknown ;