OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
mumps_metis_int.c
Go to the documentation of this file.
1/*
2 *
3 * This file is part of MUMPS 5.5.1, released
4 * on Tue Jul 12 13:17:24 UTC 2022
5 *
6 *
7 * Copyright 1991-2022 CERFACS, CNRS, ENS Lyon, INP Toulouse, Inria,
8 * Mumps Technologies, University of Bordeaux.
9 *
10 * This version of MUMPS is provided to you free of charge. It is
11 * released under the CeCILL-C license
12 * (see doc/CeCILL-C_V1-en.txt, doc/CeCILL-C_V1-fr.txt, and
13 * https://cecill.info/licences/Licence_CeCILL-C_V1-en.html)
14 *
15 */
16#include "mumps_metis_int.h"
17#if defined(parmetis) || defined(metis) || defined(parmetis3) || defined(metis4)
18# include "metis.h"
19# if defined(parmetis3) || defined(metis4)
20 /* IDXTYPEWIDTH not available, use sizeof(idxtype) */
21 /* We use metis.h and assume that parmetis datatypes
22 will be identical to those of metis.h since it
23 does not make senss to combine metis and parmetis
24 with different int sizes */
25 void MUMPS_CALL
26 MUMPS_METIS_IDXSIZE(MUMPS_INT *metis_idx_size)
27 {
28 *metis_idx_size=8*sizeof(idxtype);
29 }
30# else
31 /* Rely on IDXTYPEWIDTH */
32 void MUMPS_CALL
33 MUMPS_METIS_IDXSIZE(MUMPS_INT *metis_idx_size)
34 {
35 /* *metis_idx_size=sizeof(idx_t); */
36 *metis_idx_size=IDXTYPEWIDTH;
37 }
38# endif
39#else
40 void MUMPS_CALL
42 {
43 *metis_int_size=-99999;
44 }
45#endif
#define MUMPS_INT
#define MUMPS_CALL
#define MUMPS_METIS_IDXSIZE