frontal.h
Go to the documentation of this file.
1// LIC// ====================================================================
2// LIC// This file forms part of oomph-lib, the object-oriented,
3// LIC// multi-physics finite-element library, available
4// LIC// at http://www.oomph-lib.org.
5// LIC//
6// LIC// Copyright (C) 2006-2025 Matthias Heil and Andrew Hazel
7// LIC//
8// LIC// This library is free software; you can redistribute it and/or
9// LIC// modify it under the terms of the GNU Lesser General Public
10// LIC// License as published by the Free Software Foundation; either
11// LIC// version 2.1 of the License, or (at your option) any later version.
12// LIC//
13// LIC// This library is distributed in the hope that it will be useful,
14// LIC// but WITHOUT ANY WARRANTY; without even the implied warranty of
15// LIC// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16// LIC// Lesser General Public License for more details.
17// LIC//
18// LIC// You should have received a copy of the GNU Lesser General Public
19// LIC// License along with this library; if not, write to the Free Software
20// LIC// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
21// LIC// 02110-1301 USA.
22// LIC//
23// LIC// The authors may be contacted at oomph-lib@maths.man.ac.uk.
24// LIC//
25// LIC//====================================================================
26/*cfortran.h headers for the ma42 routines*/
28#define MA42ID(ICNTL, CNTL, ISAVE) \
29 CCALLSFSUB3(MA42ID, ma42id, INTV, DOUBLEV, INTV, ICNTL, CNTL, ISAVE)
30
31PROTOCCALLSFSUB8(MA42AD, ma42ad, INT, INTV, PINT, INTV, INT, INTV, INTV, INTV)
32#define MA42AD(NVAR, IVAR, NDF, LAST, LENLST, ICNTL, ISAVE, INFO) \
33 CCALLSFSUB8(MA42AD, \
34 ma42ad, \
35 INT, \
36 INTV, \
37 PINT, \
38 INTV, \
39 INT, \
40 INTV, \
41 INTV, \
42 INTV, \
43 NVAR, \
44 IVAR, \
45 NDF, \
46 LAST, \
47 LENLST, \
48 ICNTL, \
49 ISAVE, \
50 INFO)
51
53 MA42JD, ma42jd, INT, INTV, INT, INTV, INT, INTV, INTV, INTV, INTV)
54#define MA42JD(NVAR, IVAR, NDF, LAST, NMAXE, IFSIZE, ICNTL, ISAVE, INFO) \
55 CCALLSFSUB9(MA42JD, \
56 ma42jd, \
57 INT, \
58 INTV, \
59 INT, \
60 INTV, \
61 INT, \
62 INTV, \
63 INTV, \
64 INTV, \
65 INTV, \
66 NVAR, \
67 IVAR, \
68 NDF, \
69 LAST, \
70 NMAXE, \
71 IFSIZE, \
72 ICNTL, \
73 ISAVE, \
74 INFO)
75
76PROTOCCALLSFSUB6(MA42PD, ma42pd, INTV, INTV, INTV, INTV, INTV, INTV)
77#define MA42PD(ISTRM, LENBUF, LENFLE, ICNTL, ISAVE, INFO) \
78 CCALLSFSUB6(MA42PD, \
79 ma42pd, \
80 INTV, \
81 INTV, \
82 INTV, \
83 INTV, \
84 INTV, \
85 INTV, \
86 ISTRM, \
87 LENBUF, \
88 LENFLE, \
89 ICNTL, \
90 ISAVE, \
91 INFO)
92
94 ma42bd,
95 INT,
96 INTV,
97 INT,
98 INTV,
99 INT,
100 DOUBLEVV,
101 INT,
102 DOUBLEVV,
103 INT,
104 INT,
105 DOUBLEVV,
106 INTV,
107 INTV,
108 INT,
109 DOUBLEV,
110 INT,
111 INTV,
112 INTV,
113 DOUBLEV,
114 INTV,
115 INTV,
116 DOUBLEV)
117#define MA42BD(NVAR, \
118 IVAR, \
119 NDF, \
120 LAST, \
121 NMAXE, \
122 AVAR, \
123 NRHS, \
124 RHS, \
125 LRHS, \
126 LX, \
127 X, \
128 NFRONT, \
129 LENBUF, \
130 LW, \
131 W, \
132 LIW, \
133 IW, \
134 ICNTL, \
135 CNTL, \
136 ISAVE, \
137 INFO, \
138 RINFO) \
139 CCALLSFSUB22(MA42BD, \
140 ma42bd, \
141 INT, \
142 INTV, \
143 INT, \
144 INTV, \
145 INT, \
146 DOUBLEVV, \
147 INT, \
148 DOUBLEVV, \
149 INT, \
150 INT, \
151 DOUBLEVV, \
152 INTV, \
153 INTV, \
154 INT, \
155 DOUBLEV, \
156 INT, \
157 INTV, \
158 INTV, \
159 DOUBLEV, \
160 INTV, \
161 INTV, \
162 DOUBLEV, \
163 NVAR, \
164 IVAR, \
165 NDF, \
166 LAST, \
167 NMAXE, \
168 AVAR, \
169 NRHS, \
170 RHS, \
171 LRHS, \
172 LX, \
173 X, \
174 NFRONT, \
175 LENBUF, \
176 LW, \
177 W, \
178 LIW, \
179 IW, \
180 ICNTL, \
181 CNTL, \
182 ISAVE, \
183 INFO, \
184 RINFO)
185
186PROTOCCALLSFSUB12(MA42CD,
189 INT,
190 INT,
192 DOUBLEVV,
193 INT,
195 INT,
196 INTV,
197 INTV,
198 INTV,
199 INTV)
200#define MA42CD(TRANS, NRHS, LX, B, X, LW, W, LIW, IW, ICNTL, ISAVE, INFO) \
201 CCALLSFSUB12(MA42CD, \
202 ma42cd, \
203 LOGICAL, \
204 INT, \
205 INT, \
206 DOUBLEVV, \
207 DOUBLEVV, \
208 INT, \
209 DOUBLEV, \
210 INT, \
211 INTV, \
212 INTV, \
213 INTV, \
214 INTV, \
215 TRANS, \
216 NRHS, \
217 LX, \
218 B, \
219 X, \
220 LW, \
221 W, \
222 LIW, \
223 IW, \
224 ICNTL, \
225 ISAVE, \
226 INFO)
227
228PROTOCCALLSFSUB1(MC63ID, mc63id, INTV)
229#define MC63ID(ICNTL) CCALLSFSUB1(MC63ID, mc63id, INTV, ICNTL)
230
231PROTOCCALLSFSUB19(MC63AD,
233 LOGICAL,
234 INT,
235 INT,
236 INT,
237 INTV,
238 INTV,
239 INTV,
240 INTV,
241 PINT,
242 INTV,
243 INTV,
244 DOUBLEV,
245 INT,
246 INTV,
247 INT,
248 DOUBLEV,
249 INTV,
250 INTV,
251 DOUBLEV)
252#define MC63AD(DIRECT, \
253 N, \
254 NELT, \
255 NE, \
256 ELTVAR, \
257 ELTPTR, \
258 ORDER, \
259 PERM, \
260 NSUP, \
261 VARS, \
262 SVAR, \
263 WT, \
264 LIW, \
265 IW, \
266 LW, \
267 W, \
268 ICNTL, \
269 INFO, \
270 RINFO) \
271 CCALLSFSUB19(MC63AD, \
272 mc63ad, \
273 LOGICAL, \
274 INT, \
275 INT, \
276 INT, \
277 INTV, \
278 INTV, \
279 INTV, \
280 INTV, \
281 PINT, \
282 INTV, \
283 INTV, \
284 DOUBLEV, \
285 INT, \
286 INTV, \
287 INT, \
288 DOUBLEV, \
289 INTV, \
290 INTV, \
291 DOUBLEV, \
292 DIRECT, \
293 N, \
294 NELT, \
295 NE, \
296 ELTVAR, \
297 ELTPTR, \
298 ORDER, \
299 PERM, \
300 NSUP, \
301 VARS, \
302 SVAR, \
303 WT, \
304 LIW, \
305 IW, \
306 LW, \
307 W, \
308 ICNTL, \
309 INFO, \
310 RINFO)
PROTOCCALLSFSUB9(MA42JD, ma42jd, INT, INTV, INT, INTV, INT, INTV, INTV, INTV, INTV) PROTOCCALLSFSUB6(MA42PD
DOUBLEVV
Definition frontal.h:191
PROTOCCALLSFSUB22(MA42BD, ma42bd, INT, INTV, INT, INTV, INT, DOUBLEVV, INT, DOUBLEVV, INT, INT, DOUBLEVV, INTV, INTV, INT, DOUBLEV, INT, INTV, INTV, DOUBLEV, INTV, INTV, DOUBLEV) PROTOCCALLSFSUB12(MA42CD
mc63ad
Definition frontal.h:232
PINT
Definition frontal.h:31
INT
Definition frontal.h:31
ma42cd
Definition frontal.h:187
PROTOCCALLSFSUB1(MC63ID, mc63id, INTV) PROTOCCALLSFSUB19(MC63AD
ma42ad
Definition frontal.h:31
INTV
Definition frontal.h:31
LOGICAL
Definition frontal.h:188
PROTOCCALLSFSUB3(MA42ID, ma42id, INTV, DOUBLEV, INTV) PROTOCCALLSFSUB8(MA42AD
ma42pd
Definition frontal.h:76
DOUBLEV
Definition frontal.h:194