1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#include "mpi.h"
#include "mpeexten.h"
#include <stdio.h>
/*
This file contains routines for examinine some of the internal objects in
the MPICH implementation.
*/
/*@
MPE_Print_datatype_unpack_action - Prints the operations performed in an
unpack of a datatype
Input Parameters:
. fp - FILE pointer for output
. count - Count of datatype
. type - MPI Datatype
. in_offset,out_offset - offsets for input and output buffer. Should be
0 for most uses.
Notes:
This prints on the selected file the operations that the MPICH
implementation will take when unpacking a buffer.
@*/
int MPE_Print_datatype_unpack_action( fp, count, type, in_offset, out_offset )
FILE *fp;
int count;
MPI_Datatype type;
int in_offset, out_offset;
{
return MPIR_PrintDatatypeUnpack( fp, count, type, in_offset, out_offset );
}
/*@
MPE_Print_datatype_pack_action - Prints the operations performed in an
pack of a datatype
Input Parameters:
. fp - FILE pointer for output
. count - Count of datatype
. type - MPI Datatype
. in_offset,out_offset - offsets for input and output buffer. Should be
0 for most uses.
Notes:
This prints on the selected file the operations that the MPICH
implementation will take when packing a buffer.
@*/
int MPE_Print_datatype_pack_action( fp, count, type, in_offset, out_offset )
FILE *fp;
int count;
MPI_Datatype type;
int in_offset, out_offset;
{
return MPIR_PrintDatatypePack ( fp, count, type, in_offset, out_offset );
}
/* Fortran interfaces to these */
#ifdef POINTER_64_BITS
extern void *MPIR_ToPointer();
extern int MPIR_FromPointer();
extern void MPIR_RmPointer();
#else
#define MPIR_ToPointer(a) (a)
#define MPIR_FromPointer(a) (int)(a)
#define MPIR_RmPointer(a)
#endif
#ifdef FORTRANCAPS
#define mpe_print_datatype_unpack_action_ MPE_PRINT_DATATYPE_UNPACK_ACTION
#define mpe_print_datatype_pack_action_ MPE_PRINT_DATATYPE_PACK_ACTION
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mpe_print_datatype_unpack_action_ mpe_print_datatype_unpack_action__
#define mpe_print_datatype_pack_action_ mpe_print_datatype_pack_action__
#elif defined(FORTRANNOUNDERSCORE)
#define mpe_print_datatype_unpack_action_ mpe_print_datatype_unpack_action
#define mpe_print_datatype_pack_action_ mpe_print_datatype_pack_action
#endif
void mpe_print_datatype_unpack_action_ ANSI_ARGS(( int *, int *,
MPI_Datatype *,
int *, int *, int * ));
void mpe_print_datatype_unpack_action_( fp, count, type,
in_offset, out_offset, __ierr )
int *fp;
int *count;
MPI_Datatype *type;
int *in_offset, *out_offset, *__ierr;
{
*__ierr = MPE_Print_datatype_unpack_action( stdout, *count,*type,
*in_offset, *out_offset);
}
void mpe_print_datatype_pack_action_ ANSI_ARGS(( int *, int *, MPI_Datatype *,
int *, int *, int * ));
void mpe_print_datatype_pack_action_( fp, count, type,
in_offset, out_offset, __ierr )
int *fp;
int *count;
MPI_Datatype *type;
int *in_offset, *out_offset, *__ierr;
{
*__ierr = MPE_Print_datatype_pack_action( stdout, *count,*type,
*in_offset, *out_offset);
}
|
