mpe_graphicsf.c

fortran并行计算包

void mpe_update_( MPE_Fint *graph, MPE_Fint *__ierr )
{
    *__ierr = MPE_Update( MPE_XGraph_f2c(*graph) );
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_close_graphics_ PMPE_CLOSE_GRAPHICS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_close_graphics_ pmpe_close_graphics__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_close_graphics_ pmpe_close_graphics
#else
#define mpe_close_graphics_ pmpe_close_graphics_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_close_graphics_ MPE_CLOSE_GRAPHICS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_close_graphics_ mpe_close_graphics__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_close_graphics_ mpe_close_graphics
#endif
#endif

void mpe_close_graphics_( MPE_Fint *, MPE_Fint * );
void mpe_close_graphics_( MPE_Fint *graph, MPE_Fint *__ierr )
{
    MPE_XGraph local_graph;

    local_graph = MPE_XGraph_f2c( *graph );

    *__ierr = MPE_Close_graphics( &local_graph );

#ifdef POINTER_64_BITS
    /* We could update the list of objects by removing *graph from the
       list pointed at by MPE_fort_head */
#endif
    *graph = 0;
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_make_color_array_ PMPE_MAKE_COLOR_ARRAY
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_make_color_array_ pmpe_make_color_array__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_make_color_array_ pmpe_make_color_array
#else
#define mpe_make_color_array_ pmpe_make_color_array_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_make_color_array_ MPE_MAKE_COLOR_ARRAY
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_make_color_array_ mpe_make_color_array__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_make_color_array_ mpe_make_color_array
#endif
#endif

void mpe_make_color_array_( MPE_Fint *, MPE_Fint *,
                            MPE_Fint *, MPE_Fint * );
void mpe_make_color_array_( MPE_Fint *graph, MPE_Fint *ncolors,
                            MPE_Fint *array, MPE_Fint *__ierr )
{
    MPE_Color *local_array;
    int       Ncolors;
    int       ii;

    Ncolors = (int)*ncolors;
    local_array = ( MPE_Color * ) MALLOC( Ncolors * sizeof( MPE_Color ) );

    *__ierr = MPE_Make_color_array( MPE_XGraph_f2c(*graph), Ncolors,
                                    local_array );

    for ( ii = 0; ii < Ncolors; ii++ )
        array[ ii ] = MPE_Color_c2f( local_array[ ii ] );
    if ( local_array )
        FREE( local_array );
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_num_colors_ PMPE_NUM_COLORS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_num_colors_ pmpe_num_colors__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_num_colors_ pmpe_num_colors
#else
#define mpe_num_colors_ pmpe_num_colors_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_num_colors_ MPE_NUM_COLORS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_num_colors_ mpe_num_colors__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_num_colors_ mpe_num_colors
#endif
#endif

void mpe_num_colors_( MPE_Fint *, MPE_Fint *, MPE_Fint * );
void mpe_num_colors_( MPE_Fint *graph, MPE_Fint *ncolors, MPE_Fint *__ierr )
{
    int local_ncolors;
    *__ierr = MPE_Num_colors( MPE_XGraph_f2c(*graph), &local_ncolors );
                              *ncolors = (MPE_Fint) local_ncolors;
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_draw_circle_ PMPE_DRAW_CIRCLE
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_draw_circle_ pmpe_draw_circle__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_draw_circle_ pmpe_draw_circle
#else
#define mpe_draw_circle_ pmpe_draw_circle_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_draw_circle_ MPE_DRAW_CIRCLE
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_draw_circle_ mpe_draw_circle__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_draw_circle_ mpe_draw_circle
#endif
#endif

void mpe_draw_circle_( MPE_Fint *, MPE_Fint *, MPE_Fint *,
                       MPE_Fint *, MPE_Fint *, MPE_Fint * );
void mpe_draw_circle_( MPE_Fint *graph, MPE_Fint *centerx, MPE_Fint *centery,
                       MPE_Fint *radius, MPE_Fint *color, MPE_Fint *__ierr )
{
    *__ierr = MPE_Draw_circle( MPE_XGraph_f2c(*graph),
                               (int)*centerx, (int)*centery,
                               (int)*radius, MPE_Color_f2c(*color) );
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_fill_circle_ PMPE_FILL_CIRCLE
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_fill_circle_ pmpe_fill_circle__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_fill_circle_ pmpe_fill_circle
#else
#define mpe_fill_circle_ pmpe_fill_circle_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_fill_circle_ MPE_FILL_CIRCLE
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_fill_circle_ mpe_fill_circle__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_fill_circle_ mpe_fill_circle
#endif
#endif

void mpe_fill_circle_( MPE_Fint *, MPE_Fint *, MPE_Fint *,
                       MPE_Fint *, MPE_Fint *, MPE_Fint * );
void mpe_fill_circle_( MPE_Fint *graph, MPE_Fint *centerx, MPE_Fint *centery,
                       MPE_Fint *radius, MPE_Fint *color, MPE_Fint *__ierr )
{
    *__ierr = MPE_Fill_circle( MPE_XGraph_f2c(*graph),
                               (int)*centerx, (int)*centery,
                               (int)*radius, MPE_Color_f2c(*color) );
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_draw_string_ PMPE_DRAW_STRING
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_draw_string_ pmpe_draw_string__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_draw_string_ pmpe_draw_string
#else
#define mpe_draw_string_ pmpe_draw_string_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_draw_string_ MPE_DRAW_STRING
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_draw_string_ mpe_draw_string__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_draw_string_ mpe_draw_string
#endif
#endif

void mpe_draw_string_( MPE_Fint *, MPE_Fint *, MPE_Fint *,
                       MPE_Fint *, char *, MPE_Fint *,
                       MPE_Fint string_len );
void mpe_draw_string_( MPE_Fint *graph, MPE_Fint *x, MPE_Fint *y,
                       MPE_Fint *color, char *string, MPE_Fint *__ierr,
                       MPE_Fint string_len )
{
    char *local_string;
    int local_string_len;
    int ii;
	
    /* trim the trailing blanks in string */
    for ( ii = (int) string_len-1; ii >=0; ii-- )
        if ( string[ii] != ' ' ) break;
    if ( ii < 0 )
        ii = 0;
    local_string_len = ii + 1;
    local_string = (char *) MALLOC( (local_string_len+1) * sizeof(char) );
    strncpy( local_string, string, local_string_len );
    local_string[ local_string_len ] = '\0';

    *__ierr = MPE_Draw_string( MPE_XGraph_f2c(*graph), (int)*x, (int)*y,
                               MPE_Color_f2c(*color), local_string );

    if ( local_string )
        FREE( local_string );
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_draw_logic_ PMPE_DRAW_LOGIC
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_draw_logic_ pmpe_draw_logic__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_draw_logic_ pmpe_draw_logic
#else
#define mpe_draw_logic_ pmpe_draw_logic_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_draw_logic_ MPE_DRAW_LOGIC
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_draw_logic_ mpe_draw_logic__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_draw_logic_ mpe_draw_logic
#endif
#endif

void mpe_draw_logic_( MPE_Fint *, MPE_Fint *, MPE_Fint * );
void mpe_draw_logic_( MPE_Fint *graph, MPE_Fint *function, MPE_Fint *__ierr )
{
    *__ierr = MPE_Draw_logic( MPE_XGraph_f2c(*graph), (int)*function );
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_line_thickness_ PMPE_LINE_THICKNESS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_line_thickness_ pmpe_line_thickness__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_line_thickness_ pmpe_line_thickness
#else
#define mpe_line_thickness_ pmpe_line_thickness_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_line_thickness_ MPE_LINE_THICKNESS
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_line_thickness_ mpe_line_thickness__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_line_thickness_ mpe_line_thickness
#endif
#endif

void mpe_line_thickness_( MPE_Fint *, MPE_Fint *,
                          MPE_Fint * );
void mpe_line_thickness_( MPE_Fint *graph, MPE_Fint *thickness,
                          MPE_Fint *__ierr )
{
    *__ierr = MPE_Line_thickness( MPE_XGraph_f2c(*graph), (int)*thickness );
}

#ifdef MPI_BUILD_PROFILING
#ifdef F77_NAME_UPPER
#define mpe_add_rgb_color_ PMPE_ADD_RGB_COLOR
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_add_rgb_color_ pmpe_add_rgb_color__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_add_rgb_color_ pmpe_add_rgb_color
#else
#define mpe_add_rgb_color_ pmpe_add_rgb_color_
#endif
#else
#ifdef F77_NAME_UPPER
#define mpe_add_rgb_color_ MPE_ADD_RGB_COLOR
#elif defined(F77_NAME_LOWER_2USCORE)
#define mpe_add_rgb_color_ mpe_add_rgb_color__
#elif !defined(F77_NAME_LOWER_USCORE)
#define mpe_add_rgb_color_ mpe_add_rgb_color
#endif
#endif

void mpe_add_rgb_color_( MPE_Fint *, MPE_Fint *, MPE_Fint *,
                         MPE_Fint *, MPE_Fint *, MPE_Fint * );
void mpe_add_rgb_color_( MPE_Fint *graph, MPE_Fint *red, MPE_Fint *green,
                         MPE_Fint *blue, MPE_Fint *mapping, MPE_Fint *__ierr )
{
     MPE_Color local_mapping;

     local_mapping = MPE_Color_f2c( *mapping );

     *__ierr = MPE_Add_RGB_color( MPE_XGraph_f2c(*graph),
                                 (int)*red, (int) *green, (int) *blue,
                                 &local_mapping );

     *mapping = local_mapping;
}