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