File: mpe_counterf.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 (26 lines) | stat: -rw-r--r-- 659 bytes parent folder | download | duplicates (3)
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
/* mpe_counter.c */
/* Fortran interface file for sun4 */
#ifndef DEBUG_ALL
#define DEBUG_ALL
#endif
#include <stdio.h>
#include "mpe.h"
 int  mpe_counter_create_( oldcomm, smaller_comm, counter_comm)
MPI_Comm  *oldcomm,  *smaller_comm,  *counter_comm;
{
return MPE_Counter_create(*oldcomm,
	(MPI_Comm* )*((int*)smaller_comm),
	(MPI_Comm* )*((int*)counter_comm));
}
 int  mpe_counter_free_(counter_comm, smaller_comm)
MPI_Comm *counter_comm;
MPI_Comm *smaller_comm;
{
return MPE_Counter_free(*counter_comm,*smaller_comm);
}
 int  mpe_counter_nxtval_(counter_comm, value)
MPI_Comm *counter_comm;
int *value;
{
return MPE_Counter_nxtval(*counter_comm,value);
}