1 /* Copyright 2004,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_mesh_io_habo.c                  **/
35 /**                                                        **/
36 /**   AUTHOR     : Francois PELLEGRINI                     **/
37 /**                                                        **/
38 /**   FUNCTION   : This module is the API for the Harwell- **/
39 /**                Boeing geometry and mesh handling       **/
40 /**                routines of the libSCOTCH library.      **/
41 /**                                                        **/
42 /**   DATES      : # Version 4.0  : from : 19 jan 2004     **/
43 /**                                 to     19 jan 2004     **/
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 "geom.h"
56 #include "graph.h"
57 #include "mesh.h"
58 #include "scotch.h"
59 
60 /*************************************/
61 /*                                   */
62 /* These routines are the C API for  */
63 /* the Harwell-Boeing mesh and       */
64 /* geometry handling routines.       */
65 /*                                   */
66 /*************************************/
67 
68 /*+ This routine loads the given opaque geom
69 *** structure with the data of the given stream.
70 *** - 0   : if loading succeeded.
71 *** - !0  : on error.
72 +*/
73 
74 int
SCOTCH_meshGeomLoadHabo(SCOTCH_Mesh * restrict const meshptr,SCOTCH_Geom * restrict const geomptr,FILE * const filesrcptr,FILE * const filegeoptr,const char * const dataptr)75 SCOTCH_meshGeomLoadHabo (
76 SCOTCH_Mesh * restrict const  meshptr,
77 SCOTCH_Geom * restrict const  geomptr,
78 FILE * const                  filesrcptr,
79 FILE * const                  filegeoptr,
80 const char * const            dataptr)            /* No use */
81 {
82   return (meshGeomLoadHabo ((Mesh *) meshptr, (Geom *) geomptr, filesrcptr, filegeoptr, dataptr));
83 }
84