1
/*============================================================================
3
* This file is part of the Code_Saturne Kernel, element of the
4
* Code_Saturne CFD tool.
6
* Copyright (C) 1998-2009 EDF S.A., France
8
* contact: saturne-support@edf.fr
10
* The Code_Saturne Kernel is free software; you can redistribute it
11
* and/or modify it under the terms of the GNU General Public License
12
* as published by the Free Software Foundation; either version 2 of
13
* the License, or (at your option) any later version.
15
* The Code_Saturne Kernel is distributed in the hope that it will be
16
* useful, but WITHOUT ANY WARRANTY; without even the implied warranty
17
* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18
* GNU General Public License for more details.
20
* You should have received a copy of the GNU General Public License
21
* along with the Code_Saturne Kernel; if not, write to the
22
* Free Software Foundation, Inc.,
23
* 51 Franklin St, Fifth Floor,
24
* Boston, MA 02110-1301 USA
26
*============================================================================*/
28
#ifndef __CS_MESH_SOLCOM_H__
29
#define __CS_MESH_SOLCOM_H__
31
/*============================================================================
32
* Read a mesh in "SolCom" format
33
*============================================================================*/
35
/*----------------------------------------------------------------------------
37
*----------------------------------------------------------------------------*/
41
#include "cs_mesh_quantities.h"
43
/*----------------------------------------------------------------------------*/
47
/*=============================================================================
48
* Local macro definitions
49
*============================================================================*/
51
/*============================================================================
52
* Local type definitions
53
*============================================================================*/
55
/*============================================================================
56
* Static global variables
57
*============================================================================*/
59
/*============================================================================
60
* Public functions prototypes for Fortran API
61
*============================================================================*/
63
/*----------------------------------------------------------------------------
64
* Update mesh size information after reading a "SolCom" format file header.
68
* SUBROUTINE DIMGEO (NDIM , NCELET, NCEL , NFAC , NFABOR, NSOM ,
70
* LNDFAC, LNDFBR, NFML , NPRFML,
71
* NTETRA, NPYRAM, NPRISM, NHEXAE )
73
* INTEGER NDIM : <-- : spatial dimension (3)
74
* INTEGER NCELET : <-- : number of extended cells
75
* INTEGER NCEL : <-- : number of true cells
76
* INTEGER NFAC : <-- : number of interior faces
77
* INTEGER NFABOR : <-- : number of boundary faces
78
* INTEGER NSOM : <-- : number of vertices (optional)
79
* INTEGER LNDFAC : <-- : length of SOMFAC (optional)
80
* INTEGER LNDFBR : <-- : length of SOMFBR (optional)
81
* INTEGER NFML : <-- : number of families
82
* INTEGER NPRFML : <-- : max. number of properties per family
83
* INTEGER NTETRA : <-- : number of tetrahedra
84
* INTEGER NPYRAM : <-- : number of pyramids
85
* INTEGER NPRISM : <-- : number of prisms
86
* INTEGER NHEXAE : <-- : number of hexahedra
87
*----------------------------------------------------------------------------*/
89
void CS_PROCF (dimgeo, DIMGEO)
92
const cs_int_t *ncelet,
95
const cs_int_t *nfabor,
97
const cs_int_t *lndfac,
98
const cs_int_t *lndfbr,
100
const cs_int_t *nprfml,
101
const cs_int_t *ntetra,
102
const cs_int_t *npyram,
103
const cs_int_t *nprism,
104
const cs_int_t *nhexae
107
/*=============================================================================
108
* Public function prototypes
109
*============================================================================*/
111
/*----------------------------------------------------------------------------
112
* Read a mesh in "SolCom" format (prior to Code_Saturne 1.0)
115
* mesh <-- associated mesh
116
* mesh_quantities <-- associated quantities
117
*----------------------------------------------------------------------------*/
120
cs_mesh_solcom_read(cs_mesh_t *mesh,
121
cs_mesh_quantities_t *mesh_quantities);
123
/*----------------------------------------------------------------------------*/
127
#endif /* __CS_MESH_SOLCOM_H__ */