#include "scotch.h"
#include "metis.h" /* Our "metis.h" file */
/**************************************/
/* */
/* These routines are the Fortran API */
/* for the graph ordering routines. */
/* */
/**************************************/
/*
**
*/
FORTRAN ( \
METISNAMEU(METIS_EDGEND), METISNAMEL(metis_edgend), ( \
const SCOTCH_Num * const n, \
const SCOTCH_Num * const xadj, \
const SCOTCH_Num * const adjncy, \
const SCOTCH_Num * const numflag, \
const SCOTCH_Num * const options, \
SCOTCH_Num * const perm, \
SCOTCH_Num * const iperm), \
(n, xadj, adjncy, numflag, options, perm, iperm))
{
METISNAMEU(METIS_EdgeND) (n, xadj, adjncy, numflag, options, perm, iperm);
}
/*
**
*/
#include "scotch.h"
#include "metis.h" /* Our "metis.h" file */
/**************************************/
/* */
/* These routines are the Fortran API */
/* for the graph ordering routines. */
/* */
/**************************************/
/*
**
*/
FORTRAN ( \
METISNAMEU(METIS_PARTGRAPHKWAY), METISNAMEL(metis_partgraphkway), ( \
const int * const n, \
const int * const xadj, \
const int * const adjncy, \
const int * const vwgt, \
const int * const adjwgt, \
const int * const wgtflag, \
const int * const numflag, \
const int * const nparts, \
const int * const options, \
int * const edgecut, \
int * const part), \
(n, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, nparts, options, edgecut, part))
{
METISNAMEU(METIS_PartGraphKway) (n, xadj, adjncy, vwgt, adjwgt, wgtflag, numflag, nparts, options, edgecut, part);
}