xmousef.c

fortran并行计算包

/*
   (C) 2001 by Argonne National Laboratory.
       See COPYRIGHT in top-level directory.
*/
/* xmouse.c */
/* Fortran interface file */
#include <stdio.h>
#include "mpe_conf.h"
#include "mpe_graphics_conf.h"
#include "mpe_graphics.h"

#include "mpetools.h"
#include "basex11.h"
#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_get_mouse_press_ PMPE_GET_MOUSE_PRESS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_get_mouse_press_ pmpe_get_mouse_press__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_get_mouse_press_ pmpe_get_mouse_press
#else
#define mpe_get_mouse_press_ pmpe_get_mouse_press_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_get_mouse_press_ MPE_GET_MOUSE_PRESS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_get_mouse_press_ mpe_get_mouse_press__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_get_mouse_press_ mpe_get_mouse_press
#endif
#endif


void mpe_get_mouse_press_( MPE_XGraph*, int*, int*, int*, int* );
void 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 F77_NAME_UPPER
#define mpe_iget_mouse_press_ PMPE_IGET_MOUSE_PRESS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_iget_mouse_press_ pmpe_iget_mouse_press__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_iget_mouse_press_ pmpe_iget_mouse_press
#else
#define mpe_iget_mouse_press_ pmpe_iget_mouse_press_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_iget_mouse_press_ MPE_IGET_MOUSE_PRESS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_iget_mouse_press_ mpe_iget_mouse_press__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_iget_mouse_press_ mpe_iget_mouse_press
#endif
#endif

void mpe_iget_mouse_press_( MPE_XGraph*, int*, int*, int*, int*, int* );
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);
}