File: examine.c

package info (click to toggle)
mpich 1.1.0-3
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 22,116 kB
  • ctags: 27,349
  • sloc: ansic: 193,435; sh: 11,172; fortran: 6,545; makefile: 5,801; cpp: 5,020; tcl: 3,548; asm: 3,536; csh: 1,079; java: 614; perl: 183; awk: 168; sed: 70; f90: 62
file content (108 lines) | stat: -rw-r--r-- 3,159 bytes parent folder | download | duplicates (2)
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);
}