1 /* Copyright 2004,2007,2010 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_geom_f.c                        **/
35 /**                                                        **/
36 /**   AUTHOR     : Francois PELLEGRINI                     **/
37 /**                                                        **/
38 /**   FUNCTION   : This file contains the Fortran API for  **/
39 /**                the graph geometry handling routines    **/
40 /**                of the libSCOTCH library.               **/
41 /**                                                        **/
42 /**   DATES      : # Version 4.0  : from : 15 jun 2005     **/
43 /**                                 to     22 dec 2005     **/
44 /**                # Version 5.1  : from : 15 apr 2010     **/
45 /**                                 to     15 apr 2010     **/
46 /**                                                        **/
47 /************************************************************/
48 
49 /*
50 **  The defines and includes.
51 */
52 
53 #define LIBRARY
54 
55 #include "module.h"
56 #include "common.h"
57 #include "scotch.h"
58 
59 /******************************************/
60 /*                                        */
61 /* These routines are the Fortran API for */
62 /* the graph geometry handling routines.  */
63 /*                                        */
64 /******************************************/
65 
66 /*
67 **
68 */
69 
70 FORTRAN (                                       \
71 SCOTCHFGEOMINIT, scotchfgeominit, (             \
72 SCOTCH_Geom * const         geomptr,            \
73 int * const                 revaptr),           \
74 (geomptr, revaptr))
75 {
76   *revaptr = SCOTCH_geomInit (geomptr);
77 }
78 
79 /*
80 **
81 */
82 
83 FORTRAN (                                       \
84 SCOTCHFGEOMEXIT, scotchfgeomexit, (             \
85 SCOTCH_Geom * const         geomptr),           \
86 (geomptr))
87 {
88   SCOTCH_geomExit (geomptr);
89 }
90 
91 /*
92 **
93 */
94 
95 FORTRAN (                                       \
96 SCOTCHFGEOMDATA, scotchfgeomdata, (             \
97 const SCOTCH_Geom * const   geomptr,            \
98 const double * const        indxptr,            \
99 SCOTCH_Num * const          dimnptr,            \
100 SCOTCH_Idx * const          geomidx),           \
101 (geomptr, indxptr, dimnptr, geomidx))
102 {
103   double *            geomtab;
104 
105   SCOTCH_geomData (geomptr, dimnptr, &geomtab);
106   *geomidx = (geomtab - indxptr) + 1;             /* Add 1 since Fortran indices start at 1 */
107 }
108