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 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
|
/* Copyright 2007 ENSEIRB, INRIA & CNRS
**
** This file is part of the Scotch software package for static mapping,
** graph partitioning and sparse matrix ordering.
**
** This software is governed by the CeCILL-C license under French law
** and abiding by the rules of distribution of free software. You can
** use, modify and/or redistribute the software under the terms of the
** CeCILL-C license as circulated by CEA, CNRS and INRIA at the following
** URL: "http://www.cecill.info".
**
** As a counterpart to the access to the source code and rights to copy,
** modify and redistribute granted by the license, users are provided
** only with a limited warranty and the software's author, the holder of
** the economic rights, and the successive licensors have only limited
** liability.
**
** In this respect, the user's attention is drawn to the risks associated
** with loading, using, modifying and/or developing or reproducing the
** software by the user in light of its specific status of free software,
** that may mean that it is complicated to manipulate, and that also
** therefore means that it is reserved for developers and experienced
** professionals having in-depth computer knowledge. Users are therefore
** encouraged to load and test the software's suitability as regards
** their requirements in conditions enabling the security of their
** systems and/or data to be ensured and, more generally, to use and
** operate it in the same conditions as regards security.
**
** The fact that you are presently reading this means that you have had
** knowledge of the CeCILL-C license and that you accept its terms.
*/
/************************************************************/
/** **/
/** NAME : library_dgraph_stat_f.c **/
/** **/
/** AUTHOR : Francois PELLEGRINI **/
/** **/
/** FUNCTION : This file contains the Fortran API for **/
/** the distributed source graph analyzing **/
/** routine of the libSCOTCH library. **/
/** **/
/** DATES : # Version 5.0 : from : 24 jun 2007 **/
/** to 24 jun 2007 **/
/** **/
/************************************************************/
/*
** The defines and includes.
*/
#define LIBRARY
#include "module.h"
#include "common.h"
#include "scotch.h"
/**************************************/
/* */
/* These routines are the Fortran API */
/* for the graph handling routines. */
/* */
/**************************************/
/*
**
*/
FORTRAN ( \
SCOTCHFDGRAPHSTAT, scotchfdgraphstat, ( \
const SCOTCH_Dgraph * const grafptr, \
SCOTCH_Num * const velominptr, \
SCOTCH_Num * const velomaxptr, \
SCOTCH_Num * const velosumptr, \
double * veloavgptr, \
double * velodltptr, \
SCOTCH_Num * const degrminptr, \
SCOTCH_Num * const degrmaxptr, \
double * degravgptr, \
double * degrdltptr, \
SCOTCH_Num * const edlominptr, \
SCOTCH_Num * const edlomaxptr, \
SCOTCH_Num * const edlosumptr, \
double * edloavgptr, \
double * edlodltptr, \
int * const revaptr), \
(grafptr, velominptr, velomaxptr, velosumptr, \
veloavgptr, velodltptr, degrminptr, \
degrmaxptr, degravgptr, degrdltptr, \
edlominptr, edlomaxptr, edlosumptr, \
edloavgptr, edlodltptr, revaptr))
{
*revaptr = SCOTCH_dgraphStat (grafptr,
velominptr, velomaxptr, velosumptr, veloavgptr, velodltptr,
degrminptr, degrmaxptr, degravgptr, degrdltptr,
edlominptr, edlomaxptr, edlosumptr, edloavgptr, edlodltptr);
}
|