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
Installation
Installation guide
Copyright
About
People
Contact/Get involved
Publications
Acknowledgements
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-2024 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