4
/*============================================================================
5
* Utilitarian functions for the diphasic lagrangian module
6
*============================================================================*/
9
This file is part of Code_Saturne, a general-purpose CFD tool.
11
Copyright (C) 1998-2011 EDF S.A.
13
This program is free software; you can redistribute it and/or modify it under
14
the terms of the GNU General Public License as published by the Free Software
15
Foundation; either version 2 of the License, or (at your option) any later
18
This program is distributed in the hope that it will be useful, but WITHOUT
19
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
20
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
23
You should have received a copy of the GNU General Public License along with
24
this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
25
Street, Fifth Floor, Boston, MA 02110-1301, USA.
28
/*----------------------------------------------------------------------------*/
30
/*----------------------------------------------------------------------------
32
*----------------------------------------------------------------------------*/
36
/*----------------------------------------------------------------------------*/
40
/*============================================================================
41
* Public function definitions
42
*============================================================================*/
44
/*----------------------------------------------------------------------------
45
* Check if IEEE 754 standard is respected for floating storage for this
46
* architecture. If the standard is not respected the particle trajectography
50
*----------------------------------------------------------------------------*/
53
CS_PROCF (csieee,CSIEEE)(void);
55
/*----------------------------------------------------------------------------
56
* Check the relative localization of two vertices. We want to know if these
57
* two vertices are identical.
59
* pvalmax --> upperbound on coordinates
60
* px --> X coordinate of the vertex P
61
* py --> Y coordinate of the vertex P
62
* pz --> Z coordinate of the vertex P
63
* qx --> X coordinate of the vertex Q
64
* qy --> Y coordinate of the vertex Q
65
* qz --> Z coordinate of the vertex Q
66
* sign <-> return tag (1 -> identical else 0)
69
*----------------------------------------------------------------------------*/
72
CS_PROCF (coloca,COLOCA)(cs_real_t *pvalmax,
81
/*----------------------------------------------------------------------------
82
* Look for coordinate system orientation to locate particles in relation to
85
* pvalmax --> upper bound on coordinates
86
* px --> X coordinate of the first vertex
87
* py --> Y coordinate of the first vertex
88
* pz --> Z coordinate of the first vertex
89
* qx --> X coordinate of the second vertex
90
* qy --> Y coordinate of the second vertex
91
* qz --> Z coordinate of the second vertex
92
* cdgx --> X coordinate of the third vertex
93
* cdgy --> Y coordinate of the third vertex
94
* cdgz --> Z coordinate of the third vertex
95
* crgx --> X coordinate of the fourth vertex
96
* crgy --> Y coordinate of the fourth vertex
97
* crgz --> Z coordinate of the fourth vertex
98
* sign <-> orientation of the four vertices.
102
*----------------------------------------------------------------------------*/
105
CS_PROCF (coturn,COTURN)(cs_real_t *pvalmax,
121
/*----------------------------------------------------------------------------*/
125
#endif /* __CS_LAGR_H__ */