Toggle navigation
Documentation
Big picture
The finite element method
The data structure
Not-so-quick guide
Optimisation
Order of action functions
Example codes and tutorials
List of example codes and tutorials
Meshing
Solvers
MPI parallel processing
Post-processing/visualisation
Other
Change log
Creating documentation
Coding conventions
Index
FAQ
About
People
Contact/Get involved
Publications
Acknowledgements
Copyright
Picture show
Go
src
generic
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*/
27
PROTOCCALLSFSUB3
(MA42ID, ma42id,
INTV
,
DOUBLEV
,
INTV
)
28
#define MA42ID(ICNTL, CNTL, ISAVE) \
29
CCALLSFSUB3(MA42ID, ma42id, INTV, DOUBLEV, INTV, ICNTL, CNTL, ISAVE)
30
31
PROTOCCALLSFSUB8(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
52
PROTOCCALLSFSUB9
(
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
76
PROTOCCALLSFSUB6(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
93
PROTOCCALLSFSUB22
(MA42BD,
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
186
PROTOCCALLSFSUB12(MA42CD,
187
ma42cd
,
188
LOGICAL
,
189
INT
,
190
INT
,
191
DOUBLEVV
,
192
DOUBLEVV
,
193
INT
,
194
DOUBLEV
,
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
228
PROTOCCALLSFSUB1
(MC63ID, mc63id,
INTV
)
229
#define MC63ID(ICNTL) CCALLSFSUB1(MC63ID, mc63id, INTV, ICNTL)
230
231
PROTOCCALLSFSUB19(MC63AD,
232
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
PROTOCCALLSFSUB9(MA42JD, ma42jd, INT, INTV, INT, INTV, INT, INTV, INTV, INTV, INTV) PROTOCCALLSFSUB6(MA42PD
DOUBLEVV
DOUBLEVV
Definition
frontal.h:191
PROTOCCALLSFSUB22
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
mc63ad
Definition
frontal.h:232
PINT
PINT
Definition
frontal.h:31
INT
INT
Definition
frontal.h:31
ma42cd
ma42cd
Definition
frontal.h:187
PROTOCCALLSFSUB1
PROTOCCALLSFSUB1(MC63ID, mc63id, INTV) PROTOCCALLSFSUB19(MC63AD
ma42ad
ma42ad
Definition
frontal.h:31
INTV
INTV
Definition
frontal.h:31
LOGICAL
LOGICAL
Definition
frontal.h:188
PROTOCCALLSFSUB3
PROTOCCALLSFSUB3(MA42ID, ma42id, INTV, DOUBLEV, INTV) PROTOCCALLSFSUB8(MA42AD
ma42pd
ma42pd
Definition
frontal.h:76
DOUBLEV
DOUBLEV
Definition
frontal.h:194