1 /* Copyright 2011,2012 IPB, Universite de Bordeaux, 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_coarsen_f.c **/ 35 /** **/ 36 /** AUTHOR : Francois PELLEGRINI **/ 37 /** **/ 38 /** FUNCTION : This module is the Fortran API for the **/ 39 /** distributed graph coarsening routine of **/ 40 /** the libSCOTCH library. **/ 41 /** **/ 42 /** DATES : # Version 5.1 : from : 07 aug 2011 **/ 43 /** to 07 aug 2011 **/ 44 /** # Version 6.0 : from : 12 sep 2012 **/ 45 /** to 29 nov 2012 **/ 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 "ptscotch.h" 58 59 /**************************************/ 60 /* */ 61 /* These routines are the Fortran API */ 62 /* for the mapping routines. */ 63 /* */ 64 /**************************************/ 65 66 /* 67 ** 68 */ 69 70 FORTRAN ( \ 71 SCOTCHFDGRAPHCOARSEN, scotchfdgraphcoarsen, ( \ 72 SCOTCH_Dgraph * const finegrafptr, \ 73 const SCOTCH_Num * const coarnbrptr, \ 74 double * const coarratptr, \ 75 const SCOTCH_Num * const flagvalptr, \ 76 SCOTCH_Dgraph * const coargrafptr, \ 77 SCOTCH_Num * const multloctab, \ 78 int * const revaptr), \ 79 (finegrafptr, coarnbrptr, coarratptr, flagvalptr, coargrafptr, multloctab, revaptr)) 80 { 81 *revaptr = SCOTCH_dgraphCoarsen (finegrafptr, *coarnbrptr, *coarratptr, *flagvalptr, coargrafptr, multloctab); 82 } 83