File: xmousef.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 (73 lines) | stat: -rw-r--r-- 1,933 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
/* xmouse.c */
/* Fortran interface file */
#include <stdio.h>
#include "mpe.h"

#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

#include "mpetools.h"
#include "basex11.h"
#include "mpe.h"
#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define mpe_get_mouse_press_ PMPE_GET_MOUSE_PRESS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mpe_get_mouse_press_ pmpe_get_mouse_press__
#elif !defined(FORTRANUNDERSCORE)
#define mpe_get_mouse_press_ pmpe_get_mouse_press
#else
#define mpe_get_mouse_press_ pmpe_get_mouse_press_
#endif
#else
#ifdef FORTRANCAPS
#define mpe_get_mouse_press_ MPE_GET_MOUSE_PRESS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mpe_get_mouse_press_ mpe_get_mouse_press__
#elif !defined(FORTRANUNDERSCORE)
#define mpe_get_mouse_press_ mpe_get_mouse_press
#endif
#endif


 mpe_get_mouse_press_( graph, x, y, button, __ierr )
MPE_XGraph*graph;
int *x, *y, *button;
int *__ierr;
{
*__ierr = MPE_Get_mouse_press(*graph,x,y,button);
}
#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define mpe_iget_mouse_press_ PMPE_IGET_MOUSE_PRESS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mpe_iget_mouse_press_ pmpe_iget_mouse_press__
#elif !defined(FORTRANUNDERSCORE)
#define mpe_iget_mouse_press_ pmpe_iget_mouse_press
#else
#define mpe_iget_mouse_press_ pmpe_iget_mouse_press_
#endif
#else
#ifdef FORTRANCAPS
#define mpe_iget_mouse_press_ MPE_IGET_MOUSE_PRESS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mpe_iget_mouse_press_ mpe_iget_mouse_press__
#elif !defined(FORTRANUNDERSCORE)
#define mpe_iget_mouse_press_ mpe_iget_mouse_press
#endif
#endif

 void mpe_iget_mouse_press_( graph, x, y, button, wasPressed, __ierr )
MPE_XGraph*graph;
int *x, *y, *button, *wasPressed;
int *__ierr;
{
*__ierr = MPE_Iget_mouse_press(*graph,x,y,button,wasPressed);
}