1 /* Copyright 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_redist_f.c **/ 35 /** **/ 36 /** AUTHOR : Francois PELLEGRINI **/ 37 /** **/ 38 /** FUNCTION : This file contains the Fortran API for **/ 39 /** the distributed source graph handling **/ 40 /** routines of the libSCOTCH library. **/ 41 /** **/ 42 /** DATES : # Version 6.0 : from : 28 mar 2012 **/ 43 /** to : 29 nov 2012 **/ 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 "ptscotch.h" 56 57 /********************************************/ 58 /* */ 59 /* These routines are the Fortran API for */ 60 /* the distributed graph handling routines. */ 61 /* */ 62 /********************************************/ 63 64 /* 65 ** 66 */ 67 68 FORTRAN ( \ 69 SCOTCHFDGRAPHREDIST, scotchfdgraphredist, ( \ 70 SCOTCH_Dgraph * const srcgrafptr, \ 71 const SCOTCH_Num * const partloctab, \ 72 const SCOTCH_Num * const permgsttab, \ 73 const SCOTCH_Num * const vertlocdlt, \ 74 const SCOTCH_Num * const edgelocdlt, \ 75 SCOTCH_Dgraph * const dstgrafptr, \ 76 int * const revaptr), \ 77 (srcgrafptr, partloctab, permgsttab, vertlocdlt, edgelocdlt, dstgrafptr, revaptr)) 78 { 79 *revaptr = SCOTCH_dgraphRedist (srcgrafptr, partloctab, permgsttab, *vertlocdlt, *edgelocdlt, dstgrafptr); 80 } 81