TrioCFD 1.9.8
TrioCFD documentation
Loading...
Searching...
No Matches
Lois_eau_c3.h
1/****************************************************************************
2* Copyright (c) 2021, CEA
3* All rights reserved.
4*
5* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
6* 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
7* 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
8* 3. Neither the name of the copyright holder nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
9*
10* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
11* IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
12* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
13*
14*****************************************************************************/
15
16#ifndef Lois_eau_c3_included
17#define Lois_eau_c3_included
18
19#include <arch.h>
20#define HAVE_LIBC3 0
21/* prototypes des fonctions Fortran */
22#ifdef HAVE_LIBC3
23extern "C" {
24#ifdef F77_Majuscule
25 int F77DECLARE(FTSATP)(const int *nsca, const int* ienc, const double *pv,
26 double *tspv, double *dtspvv, double *d2tsdpvv,
27 double *hlsv, double *dhlsvv,
28 double *hvsv, double *dhvsvv,
29 double *cplsv, double *dclsvv,
30 double *cpvsv, double *dcvsvv,
31 double *rlsv, double *drlsvv,
32 double *rvsv, double *drvsvv);
33
34 int F77DECLARE(FPSATT)(const int *ienc, const double *tsp0,
35 double *p, double *dtsp1, double *d2tsp1,
36 double *hlsp, double *dhlsp1, double *hvsp, double *dhvsp1,
37 double *cplsp, double *dclsp1, double *cpvsp, double *dcvsp1,
38 double *rlsp, double *drlsp1, double *rvsp, double *drvsp1);
39
40 int F77DECLARE(FHLIQ)(const int *nsca, const int* ienc,
41 const double *p, const double*hl,
42 const double *tspv, const double *dtspvv,
43 const double *hlsv, const double *dhlsvv,
44 const double *cplsv, const double *dclsvv,
45 const double *rlsv, const double *drlsvv,
46 double *tl,double *dtl1,double *dtl2,
47 double *cpl,double *dcpl1,double *dcpl2,
48 double *rl,double *drl1,double *drl2,
49 double *el,double *del1,double *del2,
50 double *betal,double *dbetal1,double *dbetal2);
51
52 int F77DECLARE(FHVAPP)(const int* nsca, const int* itermin, const int* ienc,
53 const double *p, const double*hv, const double* tgini,
54 const double *tspv, const double *dtspvv,
55 const double *hvsv, const double *dhvsvv,
56 const double *cpvsv, const double *dcvsvv,
57 const double *rvsv, const double *drvsvv,
58 double *tv,double *dtv1,double *dtv2,
59 double *cpv,double *dcpv1,double *dcpv2,
60 double *rv,double *drv1,double *drv2,
61 double *ev,double *dev1,double *dev2,
62 double *Tgk, double *hvmhs, int* ill, int* ivstat);
63
64 int F77DECLARE(FHLIQA)(const int *nsca,
65 const double *p, const double*hl,
66 const double *tl, const double *dtl1, const double *dtl2,
67 double *tlal,double *dtlal1,double *dtlal2,
68 double *tmul,double *dtmul1,double *dtmul2);
69
70 int F77DECLARE(FHVAPA)(const int *nsca, const int* ienc,
71 const double *pv, const double* Tg,
72 const double *tspv, const double *dtspvv,
73 double *tlav,double *dlavpv,double *dlavtg,
74 double *tmuv,double *dmuvpv,double *dmuvtg,
75 double* sigma, double* dsigpv);
76
77 int F77DECLARE(FTLIQ)(const int *nsca, const double *p, const double* Tl,
78 double *hl,double *dhldp,double *dhldtl,
79 double *cpl,double *dcpldp,double *dcpldtl,
80 double *rl,double *drldp,double *drldtl);
81
82 int F77DECLARE(FTVAP)(const int *nsca, const int *ienc, int *ier, int *itest,
83 const double *pv, const double *tg,
84 const double *tspv, const double *dtspvv, const double *hvsv, const double *dhvsvv,
85 const double *vapa, const double *vapb, const double *vapc,
86 const double *vapdb, const double *vapdc,
87 double *hv, double *dhv1,
88 double *cpv, double *dcpvpv, double *dcpvtg
89 double *rv, double *drv1, double *drv3, double *hvmhvs);
90
91#else
92 int F77DECLARE(ftsatp)(const int *nsca, const int* ienc, const double *pv,
93 double *tspv, double *dtspvv, double *d2tsdpvv,
94 double *hlsv, double *dhlsvv,
95 double *hvsv, double *dhvsvv,
96 double *cplsv, double *dclsvv,
97 double *cpvsv, double *dcvsvv,
98 double *rlsv, double *drlsvv,
99 double *rvsv, double *drvsvv);
100
101 int F77DECLARE(fpsatt)(const int *ienc, const double *tsp0,
102 double *p, double *dtsp1, double *d2tsp1,
103 double *hlsp, double *dhlsp1, double *hvsp, double *dhvsp1,
104 double *cplsp, double *dclsp1, double *cpvsp, double *dcvsp1,
105 double *rlsp, double *drlsp1, double *rvsp, double *drvsp1);
106
107 int F77DECLARE(fhliq)(const int *nsca, const int* ienc,
108 const double *p, const double*hl,
109 const double *tspv, const double *dtspvv,
110 const double *hlsv, const double *dhlsvv,
111 const double *cplsv, const double *dclsvv,
112 const double *rlsv, const double *drlsvv,
113 double *tl,double *dtl1,double *dtl2,
114 double *cpl,double *dcpl1,double *dcpl2,
115 double *rl,double *drl1,double *drl2,
116 double *el,double *del1,double *del2,
117 double *betal,double *dbetal1,double *dbetal2);
118
119 int F77DECLARE(fhvapp)(const int* nsca, const int* itermin, const int* ienc,
120 const double *p, const double*hv, const double* tgini,
121 const double *tspv, const double *dtspvv,
122 const double *hvsv, const double *dhvsvv,
123 const double *cpvsv, const double *dcvsvv,
124 const double *rvsv, const double *drvsvv,
125 double *tv,double *dtv1,double *dtv2,
126 double *cpv,double *dcpv1,double *dcpv2,
127 double *rv,double *drv1,double *drv2,
128 double *ev,double *dev1,double *dev2,
129 double *Tgk, double *hvmhs, int* ill, int* ivstat);
130
131 int F77DECLARE(fhliqa)(const int *nsca,
132 const double *p, const double*hl,
133 const double *tl, const double *dtl1, const double *dtl2,
134 double *tlal,double *dtlal1,double *dtlal2,
135 double *tmul,double *dtmul1,double *dtmul2);
136
137 int F77DECLARE(fhvapa)(const int *nsca, const int* ienc,
138 const double *pv, const double* Tg,
139 const double *tspv, const double *dtspvv,
140 double *tlav,double *dlavpv,double *dlavtg,
141 double *tmuv,double *dmuvpv,double *dmuvtg,
142 double* sigma, double* dsigpv);
143
144 int F77DECLARE(ftliq)(const int *nsca, const double *p, const double* Tl,
145 double *hl,double *dhldp,double *dhldtl,
146 double *cpl,double *dcpldp,double *dcpldtl,
147 double *rl,double *drldp,double *drldtl);
148
149 int F77DECLARE(ftvap)(const int *nsca, const int *ienc, int *ier, int *itest,
150 const double *pv, const double *tg,
151 const double *tspv, const double *dtspvv, const double *hvsv, const double *dhvsvv,
152 const double *vapa, const double *vapb, const double *vapc,
153 const double *vapdb, const double *vapdc,
154 double *hv, double *dhv1,
155 double *cpv, double *dcpvpv, double *dcpvtg,
156 double *rv, double *drv1, double *drv3, double *hvmhvs);
157
158#endif
159
160#ifndef F77_Majuscule
161 inline int F77NAME(FTSATP)(const int *nsca, const int* ienc,const double *pv,
162 double *tspv, double *dtspvv, double *d2tsdpvv,
163 double *hlsv, double *dhlsvv,
164 double *hvsv, double *dhvsvv,
165 double *cplsv, double *dclsvv,
166 double *cpvsv, double *dcvsvv,
167 double *rlsv, double *drlsvv,
168 double *rvsv, double *drvsvv)
169 {
170 return F77NAME(ftsatp)(nsca,ienc,pv,tspv,dtspvv,d2tsdpvv,hlsv,dhlsvv,hvsv,dhvsvv,
171 cplsv,dclsvv,cpvsv,dcvsvv,rlsv,drlsvv,rvsv,drvsvv);
172 }
173
174 inline int F77NAME(FPSATT)(const int *ienc, const double *tsp0,
175 double *p, double *dtsp1, double *d2tsp1,
176 double *hlsp, double *dhlsp1, double *hvsp, double *dhvsp1,
177 double *cplsp, double *dclsp1, double *cpvsp, double *dcvsp1,
178 double *rlsp, double *drlsp1, double *rvsp, double *drvsp1)
179 {
180 return F77NAME(fpsatt)(ienc, tsp0, p, dtsp1, d2tsp1, hlsp, dhlsp1, hvsp, dhvsp1, cplsp, dclsp1, cpvsp, dcvsp1, rlsp, drlsp1, rvsp, drvsp1);
181 }
182
183 inline int F77NAME(FHLIQ)(const int *nsca, const int* ienc,
184 const double *p, const double*hl,
185 const double *tspv, const double *dtspvv,
186 const double *hlsv, const double *dhlsvv,
187 const double *cplsv, const double *dclsvv,
188 const double *rlsv, const double *drlsvv,
189 double *tl,double *dtl1,double *dtl2,
190 double *cpl,double *dcpl1,double *dcpl2,
191 double *rl,double *drl1,double *drl2,
192 double *el,double *del1,double *del2,
193 double *betal,double *dbetal1,double *dbetal2)
194
195 {
196 return F77NAME(fhliq)(nsca,ienc,
197 p,hl,
198 tspv,dtspvv,
199 hlsv,dhlsvv,
200 cplsv,dclsvv,
201 rlsv,drlsvv,
202 tl,dtl1,dtl2,
203 cpl,dcpl1,dcpl2,
204 rl,drl1,drl2,
205 el,del1,del2,
206 betal,dbetal1,dbetal2);
207 }
208
209 inline int F77NAME(FHVAPP)(const int* nsca, const int* itermin, const int* ienc,
210 const double *p, const double*hv, const double* tgini,
211 const double *tspv, const double *dtspvv,
212 const double *hvsv, const double *dhvsvv,
213 const double *cpvsv, const double *dcvsvv,
214 const double *rvsv, const double *drvsvv,
215 double *tv,double *dtv1,double *dtv2,
216 double *cpv,double *dcpv1,double *dcpv2,
217 double *rv,double *drv1,double *drv2,
218 double *ev,double *dev1,double *dev2,
219 double *Tgk, double *hvmhs, int* ill, int* ivstat)
220 {
221 return F77NAME(fhvapp)(nsca,itermin,ienc,
222 p,hv,tgini,
223 tspv,dtspvv,
224 hvsv,dhvsvv,
225 cpvsv,dcvsvv,
226 rvsv,drvsvv,
227 tv,dtv1,dtv2,
228 cpv,dcpv1,dcpv2,
229 rv,drv1,drv2,
230 ev,dev1,dev2,
231 Tgk,hvmhs,ill,ivstat);
232 }
233
234 inline int F77NAME(FHLIQA)(const int *nsca,
235 const double *p, const double*hl,
236 const double *tl, const double *dtl1, const double *dtl2,
237 double *tlal,double *dtlal1,double *dtlal2,
238 double *tmul,double *dtmul1,double *dtmul2)
239 {
240 return F77NAME(fhliqa)(nsca,
241 p,hl,
242 tl,dtl1,dtl2,
243 tlal,dtlal1,dtlal2,
244 tmul,dtmul1,dtmul2);
245
246 }
247
248 inline int F77NAME(FHVAPA)(const int *nsca, const int* ienc,
249 const double *pv, const double* Tg,
250 const double *tspv, const double *dtspvv,
251 double *tlav,double *dlavpv,double *dlavtg,
252 double *tmuv,double *dmuvpv,double *dmuvtg,
253 double* sigma, double* dsigpv)
254 {
255 return F77NAME(fhvapa)(nsca,ienc,
256 pv,Tg,
257 tspv,dtspvv,
258 tlav,dlavpv,dlavtg,
259 tmuv,dmuvpv,dmuvtg,
260 sigma,dsigpv);
261
262 }
263
264 inline int F77NAME(FTLIQ)(const int *nsca, const double *p, const double* Tl,
265 double *hl,double *dhldp,double *dhldtl,
266 double *cpl,double *dcpldp,double *dcpldtl,
267 double *rl,double *drldp,double *drldtl)
268
269 {
270
271 return F77NAME(ftliq) (nsca,p,Tl,
272 hl,dhldp,dhldtl,
273 cpl,dcpldp,dcpldtl,
274 rl,drldp,drldtl);
275
276
277 }
278
279 inline int F77NAME(FTVAP)(const int *nsca, const int *ienc, int *ier, int *itest,
280 const double *pv, const double *tg,
281 const double *tspv, const double *dtspvv, const double *hvsv, const double *dhvsvv,
282 const double *vapa, const double *vapb, const double *vapc,
283 const double *vapdb, const double *vapdc,
284 double *hv, double *dhv1,
285 double *cpv, double *dcpvpv, double *dcpvtg,
286 double *rv, double *drv1, double *drv3, double *hvmhvs)
287 {
288 return F77NAME(ftvap)(nsca, ienc, ier, itest, pv, tg, tspv, dtspvv, hvsv, dhvsvv, vapa, vapb, vapc, vapdb, vapdc,
289 hv, dhv1, cpv, dcpvpv, dcpvtg, rv, drv1, drv3, hvmhvs);
290 }
291#endif
292}
293#endif
294
295#endif