/[escript]/trunk/paso/src/Paso_MPI.h
ViewVC logotype

Annotation of /trunk/paso/src/Paso_MPI.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1028 - (hide annotations)
Wed Mar 14 00:15:24 2007 UTC (12 years, 11 months ago) by gross
File MIME type: text/plain
File size: 791 byte(s)
modifications to be compliant with _WIN32. The substitutes for asinh, acosh, atanh are still missing (erf will through an exception)
1 bcumming 731 #ifndef INC_MPI
2     #define INC_MPI
3    
4     #include "Common.h"
5    
6 bcumming 790 #ifdef PASO_MPI
7 ksteube 971
8 bcumming 790 #include "mpi_C.h"
9    
10 bcumming 731 #define PASO_MPI_TODO { fprintf( stdout, "\nTODO : %s:%d\n", __FILE__, __LINE__); MPI_Finalize(); exit(1); }
11 bcumming 751 #define PASO_INFO_ERRORMSG( err, msg ) { char _msg__[256]; sprintf( _msg__, "%s : %s:%d\n", msg, __FILE__, __LINE__ ); Paso_setError( err, _msg__ ); }
12 bcumming 731
13     /* Datatypes */
14     struct Paso_MPIInfo{
15     dim_t reference_counter;
16     int size;
17     int rank;
18     MPI_Comm comm;
19     };
20    
21     typedef struct Paso_MPIInfo Paso_MPIInfo;
22    
23     /* Function prototypes */
24     Paso_MPIInfo* Paso_MPIInfo_alloc( MPI_Comm comm );
25     void Paso_MPIInfo_dealloc( Paso_MPIInfo* );
26     Paso_MPIInfo *Paso_MPIInfo_getReference( Paso_MPIInfo* in );
27     int Paso_MPI_initialized( void );
28    
29 gross 1028 #endif /* INC_PASO_MPI */
30 ksteube 971
31 gross 1028 #endif /* PASO_MPI */

  ViewVC Help
Powered by ViewVC 1.1.26