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 
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 
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,
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 
228 PROTOCCALLSFSUB1(MC63ID, mc63id, INTV)
229 #define MC63ID(ICNTL) CCALLSFSUB1(MC63ID, mc63id, INTV, ICNTL)
230 
231 PROTOCCALLSFSUB19(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