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
*============================================================================*/
31
/*============================================================================
32
* Utilitarian functions for the diphasic lagrangian module
33
*============================================================================*/
35
/*----------------------------------------------------------------------------
37
*----------------------------------------------------------------------------*/
41
/*----------------------------------------------------------------------------*/
45
/*============================================================================
46
* Public function definitions
47
*============================================================================*/
49
/*----------------------------------------------------------------------------
50
* Check if IEEE 754 standard is respected for floating storage for this
51
* architecture. If the standard is not respected the particle trajectography
55
*----------------------------------------------------------------------------*/
58
CS_PROCF (csieee,CSIEEE)(void);
60
/*----------------------------------------------------------------------------
61
* Check the relative localization of two vertices. We want to know if these
62
* two vertices are identical.
64
* pvalmax --> upperbound on coordinates
65
* px --> X coordinate of the vertex P
66
* py --> Y coordinate of the vertex P
67
* pz --> Z coordinate of the vertex P
68
* qx --> X coordinate of the vertex Q
69
* qy --> Y coordinate of the vertex Q
70
* qz --> Z coordinate of the vertex Q
71
* sign <-> return tag (1 -> identical else 0)
74
*----------------------------------------------------------------------------*/
77
CS_PROCF (coloca,COLOCA)(cs_real_t *pvalmax,
86
/*----------------------------------------------------------------------------
87
* Look for coordinate system orientation to locate particles in relation to
90
* pvalmax --> upper bound on coordinates
91
* px --> X coordinate of the first vertex
92
* py --> Y coordinate of the first vertex
93
* pz --> Z coordinate of the first vertex
94
* qx --> X coordinate of the second vertex
95
* qy --> Y coordinate of the second vertex
96
* qz --> Z coordinate of the second vertex
97
* cdgx --> X coordinate of the third vertex
98
* cdgy --> Y coordinate of the third vertex
99
* cdgz --> Z coordinate of the third vertex
100
* crgx --> X coordinate of the fourth vertex
101
* crgy --> Y coordinate of the fourth vertex
102
* crgz --> Z coordinate of the fourth vertex
103
* sign <-> orientation of the four vertices.
107
*----------------------------------------------------------------------------*/
110
CS_PROCF (coturn,COTURN)(cs_real_t *pvalmax,
126
/*----------------------------------------------------------------------------*/
130
#endif /* __CS_LAGR_H__ */