Charm++: Charm Source Code Documentation

00001 /*
00002  * frename.c
00003  *
00004  * This file contains some renaming routines to deal with different
00005  * Fortran compilers.
00006  *
00007  * Started 6/1/98
00008  * George
00009  *
00010  * $Id$
00011  *
00012  */
00013 
00014 #include <parmetislib.h>
00015 
00016 
00017 
00018 /*************************************************************************
00019 * Renaming macro (at least to save some typing :))  
00020 **************************************************************************/
00021 #define FRENAME(name0, name1, name2, name3, name4, dargs, cargs)   \
00022   void name1 dargs { name0 cargs; }                          \
00023   void name2 dargs { name0 cargs; }                          \
00024   void name3 dargs { name0 cargs; }                          \
00025   void name4 dargs { name0 cargs; }
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 /*************************************************************************
00035 * Renames for Release 3.0 API
00036 **************************************************************************/
00037 FRENAME(ParMETIS_V3_AdaptiveRepart, 
00038         PARMETIS_V3_ADAPTIVEREPART,
00039         parmetis_v3_adaptiverepart,
00040         parmetis_v3_adaptiverepart_,
00041         parmetis_v3_adaptiverepart__,
00042         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt,
00043          idxtype *vsize, idxtype *adjwgt, int *wgtflag, int *numflag, int *ncon,
00044          int *nparts, floattype *tpwgts, floattype *ubvec, floattype *ipc2redist,
00045          int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00046         (vtxdist, xadj, adjncy, vwgt, vsize, adjwgt, wgtflag, numflag, ncon,
00047          nparts, tpwgts, ubvec, ipc2redist, options, edgecut, part, comm)
00048 )
00049 
00050 FRENAME(ParMETIS_V3_PartGeomKway,
00051         PARMETIS_V3_PARTGEOMKWAY,
00052         parmetis_v3_partgeomkway,
00053         parmetis_v3_partgeomkway_,
00054         parmetis_v3_partgeomkway__,
00055         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, 
00056          idxtype *adjwgt, int *wgtflag, int *numflag, int *ndims, floattype *xyz, 
00057          int *ncon, int *nparts, floattype *tpwgts, floattype *ubvec, int *options, 
00058          int *edgecut, idxtype *part, MPI_Comm *comm),
00059         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, ndims, xyz, 
00060          ncon, nparts, tpwgts, ubvec, options, edgecut, part, comm)
00061 )
00062          
00063 FRENAME(ParMETIS_V3_PartGeom,
00064         PARMETIS_V3_PARTGEOM,
00065         parmetis_v3_partgeom,
00066         parmetis_v3_partgeom_,
00067         parmetis_v3_partgeom__,
00068         (idxtype *vtxdist, int *ndims, floattype *xyz, idxtype *part, MPI_Comm *comm),
00069         (vtxdist, ndims, xyz, part, comm)
00070 )
00071 
00072 FRENAME(ParMETIS_V3_PartKway,
00073         PARMETIS_V3_PARTKWAY,
00074         parmetis_v3_partkway,
00075         parmetis_v3_partkway_,
00076         parmetis_v3_partkway__,
00077         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00078          int *wgtflag, int *numflag, int *ncon, int *nparts, floattype *tpwgts, floattype *ubvec, 
00079          int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00080         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, ncon, nparts, tpwgts, 
00081          ubvec, options, edgecut, part, comm)
00082 )
00083 
00084 FRENAME(ParMETIS_V3_Mesh2Dual,
00085         PARMETIS_V3_MESH2DUAL,
00086         parmetis_v3_mesh2dual,
00087         parmetis_v3_mesh2dual_,
00088         parmetis_v3_mesh2dual__,
00089         (idxtype *elmdist, idxtype *eptr, idxtype *eind, int *numflag, int *ncommonnodes, 
00090          idxtype **xadj, idxtype **adjncy, MPI_Comm *comm),
00091         (elmdist, eptr, eind, numflag, ncommonnodes, xadj, adjncy, comm)
00092 )
00093 
00094 FRENAME(ParMETIS_V3_PartMeshKway,
00095         PARMETIS_V3_PARTMESHKWAY, 
00096         parmetis_v3_partmeshkway,
00097         parmetis_v3_partmeshkway_,
00098         parmetis_v3_partmeshkway__,
00099         (idxtype *elmdist, idxtype *eptr, idxtype *eind, idxtype *elmwgt, int *wgtflag, 
00100          int *numflag, int *ncon, int *ncommonnodes, int *nparts, floattype *tpwgts, 
00101          floattype *ubvec, int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00102         (elmdist, eptr, eind, elmwgt, wgtflag, numflag, ncon, ncommonnodes, nparts, tpwgts, 
00103          ubvec, options, edgecut, part, comm)
00104 )
00105          
00106 FRENAME(ParMETIS_V3_NodeND,
00107         PARMETIS_V3_NODEND,
00108         parmetis_v3_nodend,
00109         parmetis_v3_nodend_,
00110         parmetis_v3_nodend__,
00111         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, int *numflag, int *options, 
00112          idxtype *order, idxtype *sizes, MPI_Comm *comm),
00113         (vtxdist, xadj, adjncy, numflag, options, order, sizes, comm)
00114 )
00115 
00116 FRENAME(ParMETIS_V3_RefineKway,
00117         PARMETIS_V3_REFINEKWAY,
00118         parmetis_v3_refinekway,
00119         parmetis_v3_refinekway_,
00120         parmetis_v3_refinekway__,
00121         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00122          int *wgtflag, int *numflag, int *ncon, int *nparts, floattype *tpwgts, floattype *ubvec, 
00123          int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00124         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, ncon, nparts, tpwgts, 
00125          ubvec, options, edgecut, part, comm)
00126 )
00127 
00128 
00129 /*************************************************************************
00130 * Renames for Release 2.0 API
00131 **************************************************************************/
00132 FRENAME(ParMETIS_PartKway,
00133         PARMETIS_PARTKWAY,
00134         parmetis_partkway,
00135         parmetis_partkway_,
00136         parmetis_partkway__,
00137         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00138          int *wgtflag, int *numflag, int *nparts, int *options, int *edgecut, idxtype *part, 
00139          MPI_Comm *comm),
00140         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, nparts, options, edgecut, 
00141          part, comm)
00142 )
00143          
00144 FRENAME(ParMETIS_PartGeomKway,
00145         PARMETIS_PARTGEOMKWAY,
00146         parmetis_partgeomkway,
00147         parmetis_partgeomkway_,
00148         parmetis_partgeomkway__,
00149         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00150          int *wgtflag, int *numflag, int *ndims, floattype *xyz, int *nparts, int *options, 
00151          int *edgecut, idxtype *part, MPI_Comm *comm),
00152         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, ndims, xyz, nparts, options, 
00153          edgecut, part, comm)
00154 ) 
00155          
00156 FRENAME(ParMETIS_PartGeom,
00157         PARMETIS_PARTGEOM,
00158         parmetis_partgeom,
00159         parmetis_partgeom_,
00160         parmetis_partgeom__,
00161         (idxtype *vtxdist, int *ndims, floattype *xyz, idxtype *part, MPI_Comm *comm),
00162         (vtxdist, ndims, xyz, part, comm)
00163 )
00164 
00165 FRENAME(ParMETIS_PartGeomRefine,
00166         PARMETIS_PARTGEOMREFINE,
00167         parmetis_partgeomrefine,
00168         parmetis_partgeomrefine_,
00169         parmetis_partgeomrefine__,
00170         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00171          int *wgtflag, int *numflag, int *ndims, floattype *xyz, int *options, int *edgecut, 
00172          idxtype *part, MPI_Comm *comm),
00173         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, ndims, xyz, options, 
00174          edgecut, part, comm)
00175 )
00176 
00177 FRENAME(ParMETIS_RefineKway,
00178         PARMETIS_REFINEKWAY,
00179         parmetis_refinekway,
00180         parmetis_refinekway_,
00181         parmetis_refinekway__,
00182         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00183          int *wgtflag, int *numflag, int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00184         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, options, edgecut, part, comm)
00185 )
00186 
00187 FRENAME(ParMETIS_RepartLDiffusion,
00188         PARMETIS_REPARTLDIFUSSION,
00189         parmetis_repartldiffusion,
00190         parmetis_repartldiffusion_,
00191         parmetis_repartldiffusion__,
00192         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00193          int *wgtflag, int *numflag, int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00194         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, options, edgecut, part, comm)
00195 )
00196 
00197 FRENAME(ParMETIS_RepartGDiffusion,
00198         PARMETIS_REPARTGDIFFUSION,
00199         parmetis_repartgdiffusion,
00200         parmetis_repartgdiffusion_,
00201         parmetis_repartgdiffusion__,
00202         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00203          int *wgtflag, int *numflag, int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00204         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, options, edgecut, part, comm)
00205 )
00206 
00207 FRENAME(ParMETIS_RepartRemap,
00208         PARMETIS_REPARTREMAP,
00209         parmetis_repartremap,
00210         parmetis_repartremap_,
00211         parmetis_repartremap__,
00212         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00213          int *wgtflag, int *numflag, int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00214         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, options, edgecut, part, comm)
00215 )
00216 
00217 FRENAME(ParMETIS_RepartMLRemap,
00218         PARMETIS_REPARTMLREMAP,
00219         parmetis_repartmlremap,
00220         parmetis_repartmlremap_,
00221         parmetis_repartmlremap__,
00222         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, idxtype *vwgt, idxtype *adjwgt, 
00223          int *wgtflag, int *numflag, int *options, int *edgecut, idxtype *part, MPI_Comm *comm),
00224         (vtxdist, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, options, edgecut, part, comm)
00225 )
00226 
00227 FRENAME(ParMETIS_NodeND,
00228         PARMETIS_NODEND,
00229         parmetis_nodend,
00230         parmetis_nodend_,
00231         parmetis_nodend__,
00232         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, int *numflag, int *options, 
00233          idxtype *order, idxtype *sizes, MPI_Comm *comm),
00234         (vtxdist, xadj, adjncy, numflag, options, order, sizes, comm)
00235 )
00236 
00237 FRENAME(ParMETIS_SerialNodeND,
00238         PARMETIS_SERIALNODEND,
00239         parmetis_serialnodend,
00240         parmetis_serialnodend_,
00241         parmetis_serialnodend__,
00242         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, int *numflag, int *options, 
00243          idxtype *order, idxtype *sizes, MPI_Comm *comm),
00244         (vtxdist, xadj, adjncy, numflag, options, order, sizes, comm)
00245 )
00246 
00247 
00248 
00249 
00250 /*************************************************************************
00251 * Renames for Release 1.0 API
00252 **************************************************************************/
00253 FRENAME(PARKMETIS,
00254         PARKMETIS_,
00255         parkmetis,
00256         parkmetis_,
00257         parkmetis__,
00258         (idxtype *vtxdist, idxtype *xadj, idxtype *vwgt, idxtype *adjncy, idxtype *adjwgt, 
00259          idxtype *part, int *options, MPI_Comm comm),
00260         (vtxdist, xadj, vwgt, adjncy, adjwgt, part, options, comm)
00261 )
00262 
00263 FRENAME(PARGKMETIS,
00264         PARGKMETIS_,
00265         pargkmetis,
00266         pargkmetis_,
00267         pargkmetis__,
00268         (idxtype *vtxdist, idxtype *xadj, idxtype *vwgt, idxtype *adjncy, idxtype *adjwgt,
00269          int ndims, floattype *xyz, idxtype *part, int *options, MPI_Comm comm),
00270         (vtxdist, xadj, vwgt, adjncy, adjwgt, ndims, xyz, part, options, comm)
00271 )       
00272 
00273 FRENAME(PARGRMETIS,
00274         PARGRMETIS_,
00275         pargrmetis,
00276         pargrmetis_,
00277         pargrmetis__,
00278         (idxtype *vtxdist, idxtype *xadj, idxtype *vwgt, idxtype *adjncy, idxtype *adjwgt,
00279          int ndims, floattype *xyz, idxtype *part, int *options, MPI_Comm comm),
00280         (vtxdist, xadj, vwgt, adjncy, adjwgt, ndims, xyz, part, options, comm)
00281 )
00282 
00283 FRENAME(PARGMETIS,
00284         PARGMETIS_,
00285         pargmetis,
00286         pargmetis_,
00287         pargmetis__,
00288         (idxtype *vtxdist, idxtype *xadj, idxtype *adjncy, int ndims, floattype *xyz,
00289          idxtype *part, int *options, MPI_Comm comm),
00290         (vtxdist, xadj, adjncy, ndims, xyz, part, options, comm)
00291 )
00292 
00293 FRENAME(PARRMETIS,
00294         PARRMETIS_,
00295         parrmetis,
00296         parrmetis_,
00297         parrmetis__,
00298         (idxtype *vtxdist, idxtype *xadj, idxtype *vwgt, idxtype *adjncy, idxtype *adjwgt, 
00299          idxtype *part, int *options, MPI_Comm comm),
00300         (vtxdist, xadj, vwgt, adjncy, adjwgt, part, options, comm)
00301 )
00302 
00303 FRENAME(PARUAMETIS,
00304         PARUAMETIS_,
00305         paruametis,
00306         paruametis_,
00307         paruametis__,
00308         (idxtype *vtxdist, idxtype *xadj, idxtype *vwgt, idxtype *adjncy, idxtype *adjwgt, 
00309          idxtype *part, int *options, MPI_Comm comm),
00310         (vtxdist, xadj, vwgt, adjncy, adjwgt, part, options, comm)
00311 )
00312 
00313 FRENAME(PARDAMETIS,
00314         PARDAMETIS_,
00315         pardametis,
00316         pardametis_,
00317         pardametis__,
00318         (idxtype *vtxdist, idxtype *xadj, idxtype *vwgt, idxtype *adjncy, idxtype *adjwgt,
00319          idxtype *part, int *options, MPI_Comm comm),
00320         (vtxdist, xadj, vwgt, adjncy, adjwgt, part, options, comm)
00321 )
00322
libs/ck-libs/parmetis/ParMETISLib/frename.c
