~ubuntu-branches/ubuntu/trusty/scotch/trusty

« back to all changes in this revision

Viewing changes to src/libscotch/library_dgraph_stat_f.c

  • Committer: Bazaar Package Importer
  • Author(s): Christophe Prud'homme
  • Date: 2008-01-25 09:13:53 UTC
  • Revision ID: james.westby@ubuntu.com-20080125091353-zghdao60dfsyc2bt
Tags: upstream-5.0.1.dfsg
ImportĀ upstreamĀ versionĀ 5.0.1.dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
/* Copyright 2007 ENSEIRB, INRIA & CNRS
 
2
**
 
3
** This file is part of the Scotch software package for static mapping,
 
4
** graph partitioning and sparse matrix ordering.
 
5
**
 
6
** This software is governed by the CeCILL-C license under French law
 
7
** and abiding by the rules of distribution of free software. You can
 
8
** use, modify and/or redistribute the software under the terms of the
 
9
** CeCILL-C license as circulated by CEA, CNRS and INRIA at the following
 
10
** URL: "http://www.cecill.info".
 
11
** 
 
12
** As a counterpart to the access to the source code and rights to copy,
 
13
** modify and redistribute granted by the license, users are provided
 
14
** only with a limited warranty and the software's author, the holder of
 
15
** the economic rights, and the successive licensors have only limited
 
16
** liability.
 
17
** 
 
18
** In this respect, the user's attention is drawn to the risks associated
 
19
** with loading, using, modifying and/or developing or reproducing the
 
20
** software by the user in light of its specific status of free software,
 
21
** that may mean that it is complicated to manipulate, and that also
 
22
** therefore means that it is reserved for developers and experienced
 
23
** professionals having in-depth computer knowledge. Users are therefore
 
24
** encouraged to load and test the software's suitability as regards
 
25
** their requirements in conditions enabling the security of their
 
26
** systems and/or data to be ensured and, more generally, to use and
 
27
** operate it in the same conditions as regards security.
 
28
** 
 
29
** The fact that you are presently reading this means that you have had
 
30
** knowledge of the CeCILL-C license and that you accept its terms.
 
31
*/
 
32
/************************************************************/
 
33
/**                                                        **/
 
34
/**   NAME       : library_dgraph_stat_f.c                 **/
 
35
/**                                                        **/
 
36
/**   AUTHOR     : Francois PELLEGRINI                     **/
 
37
/**                                                        **/
 
38
/**   FUNCTION   : This file contains the Fortran API for  **/
 
39
/**                the distributed source graph analyzing  **/
 
40
/**                routine of the libSCOTCH library.       **/
 
41
/**                                                        **/
 
42
/**   DATES      : # Version 5.0  : from : 24 jun 2007     **/
 
43
/**                                 to     24 jun 2007     **/
 
44
/**                                                        **/
 
45
/************************************************************/
 
46
 
 
47
/*
 
48
**  The defines and includes.
 
49
*/
 
50
 
 
51
#define LIBRARY
 
52
 
 
53
#include "module.h"
 
54
#include "common.h"
 
55
#include "scotch.h"
 
56
 
 
57
/**************************************/
 
58
/*                                    */
 
59
/* These routines are the Fortran API */
 
60
/* for the graph handling routines.   */
 
61
/*                                    */
 
62
/**************************************/
 
63
 
 
64
/*
 
65
**
 
66
*/
 
67
 
 
68
FORTRAN (                                       \
 
69
SCOTCHFDGRAPHSTAT, scotchfdgraphstat, (         \
 
70
const SCOTCH_Dgraph * const grafptr,            \
 
71
SCOTCH_Num * const          velominptr,         \
 
72
SCOTCH_Num * const          velomaxptr,         \
 
73
SCOTCH_Num * const          velosumptr,         \
 
74
double *                    veloavgptr,         \
 
75
double *                    velodltptr,         \
 
76
SCOTCH_Num * const          degrminptr,         \
 
77
SCOTCH_Num * const          degrmaxptr,         \
 
78
double *                    degravgptr,         \
 
79
double *                    degrdltptr,         \
 
80
SCOTCH_Num * const          edlominptr,         \
 
81
SCOTCH_Num * const          edlomaxptr,         \
 
82
SCOTCH_Num * const          edlosumptr,         \
 
83
double *                    edloavgptr,         \
 
84
double *                    edlodltptr,         \
 
85
int * const                 revaptr),           \
 
86
(grafptr, velominptr, velomaxptr, velosumptr,   \
 
87
 veloavgptr, velodltptr, degrminptr,            \
 
88
 degrmaxptr, degravgptr, degrdltptr,            \
 
89
 edlominptr, edlomaxptr, edlosumptr,            \
 
90
 edloavgptr, edlodltptr, revaptr))
 
91
{
 
92
  *revaptr = SCOTCH_dgraphStat (grafptr,
 
93
                                velominptr, velomaxptr, velosumptr, veloavgptr, velodltptr,
 
94
                                degrminptr, degrmaxptr, degravgptr, degrdltptr,
 
95
                                edlominptr, edlomaxptr, edlosumptr, edloavgptr, edlodltptr);
 
96
}