1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
|
<center><a href="https://gitlab.com/petsc/petsc/-/blob/966382dc56242773704ef5f5cee7aa2db3ebc577/include/petscblaslapack.h">Actual source code: petscblaslapack.h</a></center><br>
<html>
<head>
<title></title>
<meta name="generator" content="c2html 0.9.6">
<meta name="date" content="2025-04-30T18:14:50+00:00">
</head>
<body bgcolor="#FFFFFF">
<pre width=80>
<a name="line1"> 1: </a><font color="#B22222">/*</font>
<a name="line2"> 2: </a><font color="#B22222"> This file dispatches between various header files for blas/lapack distributions to handle the name mangling.</font>
<a name="line3"> 3: </a><font color="#B22222"> It also provides C prototypes for all the BLAS/LAPACK functions that PETSc uses</font>
<a name="line5"> 5: </a><font color="#B22222"> This is not included automatically by petscsys.h because some external packages include their own prototypes for</font>
<a name="line6"> 6: </a><font color="#B22222"> certain BLAS/LAPACK functions that conflict with the ones given here. Hence this should only be included when needed.</font>
<a name="line8"> 8: </a><font color="#B22222"> The BLAS/LAPACK name mangling is almost (but not always) the same as the Fortran mangling; and exists even if there is</font>
<a name="line9"> 9: </a><font color="#B22222"> not Fortran compiler.</font>
<a name="line11"> 11: </a><font color="#B22222"> PETSC_BLASLAPACK_UNDERSCORE BLAS/LAPACK function have an underscore at the end of each function name</font>
<a name="line12"> 12: </a><font color="#B22222"> PETSC_BLASLAPACK_CAPS BLAS/LAPACK function names are all in capital letters</font>
<a name="line13"> 13: </a><font color="#B22222"> PETSC_BLASLAPACK_C BLAS/LAPACK function names have no mangling</font>
<a name="line15"> 15: </a><font color="#B22222"> PETSC_BLASLAPACK_SINGLEISDOUBLE - for Cray systems where the BLAS/LAPACK single precision (i.e. Fortran single precision is actually 64-bits)</font>
<a name="line16"> 16: </a><font color="#B22222"> old Cray vector machines used to be this way, it is not clear if any exist now.</font>
<a name="line18"> 18: </a><font color="#B22222"> <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> is almost always 32-bit integers but can be 64-bit integers for certain usages of MKL and OpenBLAS BLAS/LAPACK libraries</font>
<a name="line20"> 20: </a><font color="#B22222">*/</font>
<a name="line21"> 21: </a><font color="#A020F0">#pragma once</font>
<a name="line23"> 23: </a>#include <A href="../include/petscsys.h.html"><petscsys.h></A>
<a name="line24"> 24: </a><font color="#A020F0">#if defined(__cplusplus)</font>
<a name="line25"> 25: </a><strong><font color="#228B22"> #define BLAS_EXTERN extern </font><font color="#666666">"C"</font><font color="#228B22"></font></strong>
<a name="line26"> 26: </a><font color="#A020F0">#else</font>
<a name="line27"> 27: </a><strong><font color="#228B22"> #define BLAS_EXTERN extern</font></strong>
<a name="line28"> 28: </a><font color="#A020F0">#endif</font>
<a name="line30"> 30: </a><font color="#B22222">/* SUBMANSEC = Sys */</font>
<a name="line32"> 32: </a><font color="#B22222">/*MC</font>
<a name="line33"> 33: </a><font color="#B22222"> <a href="../manualpages/Sys/PetscCallBLAS.html">PetscCallBLAS</a> - Calls a BLAS or LAPACK routine so that the stack trace returned from any signal received inside the function call</font>
<a name="line34"> 34: </a><font color="#B22222"> includes the name of the BLAS/LAPACK routine</font>
<a name="line36"> 36: </a><font color="#B22222"> Synopsis:</font>
<a name="line37"> 37: </a>#include <A href="../include/petscsys.h.html"><petscsys.h></A>
<a name="line38"> 38: </a><font color="#B22222"> void <a href="../manualpages/Sys/PetscCallBLAS.html">PetscCallBLAS</a>(char *name,routine)</font>
<a name="line40"> 40: </a><font color="#B22222"> Not Collective</font>
<a name="line42"> 42: </a><font color="#B22222"> Input Parameters:</font>
<a name="line43"> 43: </a><font color="#B22222">+ name - string that gives the name of the function being called</font>
<a name="line44"> 44: </a><font color="#B22222">- routine - actual call to the routine including its arguments</font>
<a name="line46"> 46: </a><font color="#B22222"> Level: developer</font>
<a name="line48"> 48: </a><font color="#B22222"> Developer Notes:</font>
<a name="line49"> 49: </a><font color="#B22222"> This does not check error codes returned from the BLAS/LAPACK routine or ever return from the current subroutine. It merely pushes onto the PETSc</font>
<a name="line50"> 50: </a><font color="#B22222"> stack the name of the BLAS/LAPACK routine before calling the routine and removes it after a successful call.</font>
<a name="line52"> 52: </a><font color="#B22222"> LAPACK routines that return info codes should be followed by</font>
<a name="line53"> 53: </a><font color="#B22222">.vb</font>
<a name="line54"> 54: </a><font color="#B22222"> <a href="../manualpages/Sys/PetscCheck.html">PetscCheck</a>(!info, <a href="../manualpages/Sys/PETSC_COMM_SELF.html">PETSC_COMM_SELF</a>, <a href="../manualpages/Sys/PetscErrorCode.html">PETSC_ERR_LIB</a>, ...)</font>
<a name="line55"> 55: </a><font color="#B22222">.ve</font>
<a name="line57"> 57: </a><font color="#B22222"> This macro exists so that when a BLAS/LAPACK routine results in a crash or corrupts memory, they get blamed instead of PETSc.</font>
<a name="line59"> 59: </a><font color="#B22222">.seealso: `<a href="../manualpages/Sys/PetscCall.html">PetscCall</a>()`, `<a href="../manualpages/Sys/PetscStackPushNoCheck.html">PetscStackPushNoCheck</a>()`, `<a href="../manualpages/Sys/PetscStackPush.html">PetscStackPush</a>()`, `PetscCallExternal()`, `<a href="../manualpages/Sys/PetscStackCallExternalVoid.html">PetscStackCallExternalVoid</a>()`</font>
<a name="line60"> 60: </a><font color="#B22222">M*/</font>
<a name="line61"> 61: </a><strong><font color="#228B22">#define <a href="../manualpages/Sys/PetscCallBLAS.html">PetscCallBLAS</a>(name, routine) \</font></strong>
<a name="line62"> 62: </a><strong><font color="#228B22"> do { \</font></strong>
<a name="line63"> 63: </a><strong><font color="#228B22"> <a href="../manualpages/Sys/PetscStackPushExternal.html">PetscStackPushExternal</a>(name); \</font></strong>
<a name="line64"> 64: </a><strong><font color="#228B22"> routine; \</font></strong>
<a name="line65"> 65: </a><strong><font color="#228B22"> <a href="../manualpages/Sys/PetscStackPop.html">PetscStackPop</a>; \</font></strong>
<a name="line66"> 66: </a><strong><font color="#228B22"> } while (0)</font></strong>
<a name="line68"> 68: </a><strong><font color="#4169E1"><a name="PetscMissingLapack"></a>static inline void PetscMissingLapack(const char *fname, ...)</font></strong>
<a name="line69"> 69: </a>{
<a name="line70"> 70: </a> <a href="../manualpages/Sys/SETERRABORT.html">SETERRABORT</a>(<a href="../manualpages/Sys/PETSC_COMM_SELF.html">PETSC_COMM_SELF</a>, <a href="../manualpages/Sys/PetscErrorCode.html">PETSC_ERR_SUP</a>, <font color="#666666">"%s - Lapack routine is unavailable."</font>, fname);
<a name="line71"> 71: </a>}
<a name="line73"> 73: </a>#include <A href="../include/petscblaslapack_mangle.h.html"><petscblaslapack_mangle.h></A>
<a name="line75"> 75: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgetrf_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line76"> 76: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKREALgetrf_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line77"> 77: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgetri_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line78"> 78: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKREALgetri_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line79"> 79: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_ORGQR)</font>
<a name="line80"> 80: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKorgqr_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line81"> 81: </a><font color="#A020F0">#else</font>
<a name="line82"> 82: </a><strong><font color="#228B22"> #define LAPACKorgqr_(a, b, c, d, e, f, g, h, i) PetscMissingLapack(</font><font color="#666666">"ORGQR"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i)</font></strong>
<a name="line83"> 83: </a><font color="#A020F0">#endif</font>
<a name="line84"> 84: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgeqrf_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line85"> 85: </a><font color="#A020F0">#if defined(PETSC_USE_REAL_SINGLE) && defined(PETSC_BLASLAPACK_SNRM2_RETURNS_DOUBLE)</font>
<a name="line86"> 86: </a><strong><font color="#4169E1">BLAS_EXTERN double BLASnrm2_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line87"> 87: </a><font color="#A020F0">#else</font>
<a name="line88"> 88: </a><strong><font color="#4169E1">BLAS_EXTERN <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> BLASnrm2_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line89"> 89: </a><font color="#A020F0">#endif</font>
<a name="line90"> 90: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASscal_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line91"> 91: </a><strong><font color="#4169E1">BLAS_EXTERN void BLAScopy_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line92"> 92: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASswap_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line93"> 93: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASaxpy_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line94"> 94: </a><font color="#A020F0">#if defined(PETSC_USE_REAL_SINGLE) && defined(PETSC_BLASLAPACK_SNRM2_RETURNS_DOUBLE)</font>
<a name="line95"> 95: </a><strong><font color="#4169E1">BLAS_EXTERN double BLASasum_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line96"> 96: </a><font color="#A020F0">#else</font>
<a name="line97"> 97: </a><strong><font color="#4169E1">BLAS_EXTERN <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> BLASasum_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line98"> 98: </a><font color="#A020F0">#endif</font>
<a name="line99"> 99: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKpttrf_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line100">100: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_STEIN)</font>
<a name="line101">101: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKstein_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line102">102: </a><font color="#A020F0">#else</font>
<a name="line103">103: </a><strong><font color="#228B22"> #define LAPACKstein_(a, b, c, d, e, f, g, h, i, j, k, l, m) PetscMissingLapack(</font><font color="#666666">"STEIN"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l)</font></strong>
<a name="line104">104: </a><font color="#A020F0">#endif</font>
<a name="line105">105: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgesv_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line107">107: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKtrtri_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line108">108: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKpotrf_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line109">109: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKpotri_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line110">110: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKpotrs_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line111">111: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsytrf_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line112">112: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsytrs_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line113">113: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_SYTRI)</font>
<a name="line114">114: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsytri_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line115">115: </a><font color="#A020F0">#else</font>
<a name="line116">116: </a><strong><font color="#228B22"> #define LAPACKsytri_(a, b, c, d, e, f, g) PetscMissingLapack(</font><font color="#666666">"SYTRI"</font><font color="#228B22">, a, b, c, d, e, f, g)</font></strong>
<a name="line117">117: </a><font color="#A020F0">#endif</font>
<a name="line118">118: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASsyrk_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line119">119: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASsyr2k_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line120">120: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASgemv_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line121">121: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgetrs_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line122">122: </a><strong><font color="#4169E1">BLAS_EXTERN void BLAStrmv_(const char *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line123">123: </a><strong><font color="#4169E1">BLAS_EXTERN void BLAStrsv_(const char *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line124">124: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASgemm_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line125">125: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASREALgemm_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line126">126: </a><strong><font color="#4169E1">BLAS_EXTERN void BLASsymm_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line127">127: </a><strong><font color="#4169E1">BLAS_EXTERN void BLAStrsm_(const char *, const char *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line128">128: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_ORMQR)</font>
<a name="line129">129: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKormqr_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line130">130: </a><font color="#A020F0">#else</font>
<a name="line131">131: </a><strong><font color="#228B22"> #define LAPACKormqr_(a, b, c, d, e, f, g, h, i, j, k, l, m) PetscMissingLapack(</font><font color="#666666">"ORMQR"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m)</font></strong>
<a name="line132">132: </a><font color="#A020F0">#endif</font>
<a name="line133">133: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_STEGR)</font>
<a name="line134">134: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKstegr_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line135">135: </a><font color="#A020F0">#else</font>
<a name="line136">136: </a><strong><font color="#228B22"> #define LAPACKstegr_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t) PetscMissingLapack(</font><font color="#666666">"STEGR"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t)</font></strong>
<a name="line137">137: </a><font color="#A020F0">#endif</font>
<a name="line138">138: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_STEQR)</font>
<a name="line139">139: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsteqr_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line140">140: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKREALsteqr_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line141">141: </a><font color="#A020F0">#else</font>
<a name="line142">142: </a><strong><font color="#228B22"> #define LAPACKsteqr_(a, b, c, d, e, f, g, h) PetscMissingLapack(</font><font color="#666666">"STEQR"</font><font color="#228B22">, a, b, c, d, e, f, g, h)</font></strong>
<a name="line143">143: </a><strong><font color="#228B22"> #define LAPACKREALsteqr_(a, b, c, d, e, f, g, h) PetscMissingLapack(</font><font color="#666666">"STEQR"</font><font color="#228B22">, a, b, c, d, e, f, g, h)</font></strong>
<a name="line144">144: </a><font color="#A020F0">#endif</font>
<a name="line145">145: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_STEV)</font>
<a name="line146">146: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKstev_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line147">147: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKREALstev_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line148">148: </a><font color="#A020F0">#else</font>
<a name="line149">149: </a><strong><font color="#228B22"> #define LAPACKstev_(a, b, c, d, e, f, g, h) PetscMissingLapack(</font><font color="#666666">"STEV"</font><font color="#228B22">, a, b, c, d, e, f, g, h)</font></strong>
<a name="line150">150: </a><strong><font color="#228B22"> #define LAPACKREALstev_(a, b, c, d, e, f, g, h) PetscMissingLapack(</font><font color="#666666">"STEV"</font><font color="#228B22">, a, b, c, d, e, f, g, h)</font></strong>
<a name="line151">151: </a><font color="#A020F0">#endif</font>
<a name="line152">152: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_HGEQZ)</font>
<a name="line153">153: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKhgeqz_(const char *, const char *, const char *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line154">154: </a><font color="#A020F0">#else</font>
<a name="line155">155: </a><strong><font color="#228B22"> #define LAPACKhgeqz_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t) PetscMissingLapack(</font><font color="#666666">"HGEQZ"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t)</font></strong>
<a name="line156">156: </a><font color="#A020F0">#endif</font>
<a name="line157">157: </a><font color="#A020F0">#if !defined(PETSC_MISSING_LAPACK_TRTRS)</font>
<a name="line158">158: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKtrtrs_(const char *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line159">159: </a><font color="#A020F0">#else</font>
<a name="line160">160: </a><strong><font color="#228B22"> #define LAPACKtrtrs_(a, b, c, d, e, f, g, h, i, j) PetscMissingLapack(</font><font color="#666666">"TRTRS"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j)</font></strong>
<a name="line161">161: </a><font color="#A020F0">#endif</font>
<a name="line162">162: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgels_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line164">164: </a><font color="#B22222">/* handle complex dot() with special code */</font>
<a name="line165">165: </a><font color="#A020F0">#if defined(PETSC_USE_COMPLEX)</font>
<a name="line166">166: </a><strong><font color="#4169E1"><a name="BLASdot_"></a>static inline <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> BLASdot_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *n, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *x, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *sx, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *y, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *sy)</font></strong>
<a name="line167">167: </a>{
<a name="line168">168: </a> <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> sum = 0.0;
<a name="line169">169: </a> <a href="../manualpages/Sys/PetscInt.html">PetscInt</a> i, j, k;
<a name="line170">170: </a> <font color="#4169E1">if</font> (*sx == 1 && *sy == 1) {
<a name="line171">171: </a> <font color="#4169E1">for</font> (i = 0; i < *n; i++) sum += PetscConj(x[i]) * y[i];
<a name="line172">172: </a> } <font color="#4169E1">else</font> {
<a name="line173">173: </a> <font color="#4169E1">for</font> (i = 0, j = 0, k = 0; i < *n; i++, j += *sx, k += *sy) sum += PetscConj(x[j]) * y[k];
<a name="line174">174: </a> }
<a name="line175">175: </a> <font color="#4169E1">return</font> sum;
<a name="line176">176: </a>}
<a name="line177">177: </a><strong><font color="#4169E1"><a name="BLASdotu_"></a>static inline <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> BLASdotu_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *n, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *x, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *sx, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *y, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *sy)</font></strong>
<a name="line178">178: </a>{
<a name="line179">179: </a> <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> sum = 0.0;
<a name="line180">180: </a> <a href="../manualpages/Sys/PetscInt.html">PetscInt</a> i, j, k;
<a name="line181">181: </a> <font color="#4169E1">if</font> (*sx == 1 && *sy == 1) {
<a name="line182">182: </a> <font color="#4169E1">for</font> (i = 0; i < *n; i++) sum += x[i] * y[i];
<a name="line183">183: </a> } <font color="#4169E1">else</font> {
<a name="line184">184: </a> <font color="#4169E1">for</font> (i = 0, j = 0, k = 0; i < *n; i++, j += *sx, k += *sy) sum += x[j] * y[k];
<a name="line185">185: </a> }
<a name="line186">186: </a> <font color="#4169E1">return</font> sum;
<a name="line187">187: </a>}
<a name="line188">188: </a><font color="#A020F0">#else</font>
<a name="line189">189: </a><font color="#A020F0"> #if defined(PETSC_USE_REAL_SINGLE) && defined(PETSC_BLASLAPACK_SDOT_RETURNS_DOUBLE)</font>
<a name="line190">190: </a><strong><font color="#4169E1">BLAS_EXTERN double BLASdot_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line191">191: </a><strong><font color="#4169E1">BLAS_EXTERN double BLASdotu_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line192">192: </a><font color="#A020F0"> #else</font>
<a name="line193">193: </a><strong><font color="#4169E1">BLAS_EXTERN <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> BLASdot_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line194">194: </a><font color="#A020F0"> #endif</font>
<a name="line195">195: </a><font color="#A020F0">#endif</font>
<a name="line197">197: </a><font color="#B22222">/* Some functions prototypes do not exist for reals */</font>
<a name="line198">198: </a><font color="#A020F0">#if defined(PETSC_USE_COMPLEX)</font>
<a name="line199">199: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKhetrf_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line200">200: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKhetrs_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line201">201: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKhetri_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line202">202: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKheev_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line203">203: </a><font color="#A020F0">#endif</font>
<a name="line204">204: </a><font color="#B22222">/* Some functions prototypes differ between real and complex */</font>
<a name="line205">205: </a><font color="#A020F0">#if defined(PETSC_USE_COMPLEX)</font>
<a name="line206">206: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_GELSS)</font>
<a name="line207">207: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgelss_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line208">208: </a><font color="#A020F0"> #else</font>
<a name="line209">209: </a><strong><font color="#228B22"> #define LAPACKgelss_(a, b, c, d, e, f, g, h, i, j, k, l, m, n) PetscMissingLapack(</font><font color="#666666">"GELSS"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n)</font></strong>
<a name="line210">210: </a><font color="#A020F0"> #endif</font>
<a name="line211">211: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsyev_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line212">212: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsyevx_(const char *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line213">213: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsygv_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line214">214: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsygvx_(<a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const char *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line215">215: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKpttrs_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line216">216: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_GERFS)</font>
<a name="line217">217: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgerfs_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line218">218: </a><font color="#A020F0"> #else</font>
<a name="line219">219: </a><strong><font color="#228B22"> #define LAPACKgerfs_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q) PetscMissingLapack(</font><font color="#666666">"GERFS"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q)</font></strong>
<a name="line220">220: </a><font color="#A020F0"> #endif</font>
<a name="line221">221: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_TRSEN)</font>
<a name="line222">222: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKtrsen_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line223">223: </a><font color="#A020F0"> #else</font>
<a name="line224">224: </a><strong><font color="#228B22"> #define LAPACKtrsen_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) PetscMissingLapack(</font><font color="#666666">"TRSEN"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o)</font></strong>
<a name="line225">225: </a><font color="#A020F0"> #endif</font>
<a name="line226">226: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_TGSEN)</font>
<a name="line227">227: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKtgsen_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line228">228: </a><font color="#A020F0"> #else</font>
<a name="line229">229: </a><strong><font color="#228B22"> #define LAPACKtgsen_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x) PetscMissingLapack(</font><font color="#666666">"TGSEN"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x)</font></strong>
<a name="line230">230: </a><font color="#A020F0"> #endif</font>
<a name="line231">231: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_GGES)</font>
<a name="line232">232: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgges_(const char *, const char *, const char *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> (*)(void), const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line233">233: </a><font color="#A020F0"> #else</font>
<a name="line234">234: </a><strong><font color="#228B22"> #define LAPACKgges_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u) PetscMissingLapack(</font><font color="#666666">"GGES"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u)</font></strong>
<a name="line235">235: </a><font color="#A020F0"> #endif</font>
<a name="line236">236: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_HSEQR)</font>
<a name="line237">237: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKhseqr_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line238">238: </a><font color="#A020F0"> #else</font>
<a name="line239">239: </a><strong><font color="#228B22"> #define LAPACKhseqr_(a, b, c, d, e, f, g, h, i, j, k, l, m) PetscMissingLapack(</font><font color="#666666">"HSEQR"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m)</font></strong>
<a name="line240">240: </a><font color="#A020F0"> #endif</font>
<a name="line241">241: </a><font color="#A020F0">#else </font><font color="#B22222">/* !defined(PETSC_USE_COMPLEX) */</font><font color="#A020F0"></font>
<a name="line242">242: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_GELSS)</font>
<a name="line243">243: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgelss_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line244">244: </a><font color="#A020F0"> #else</font>
<a name="line245">245: </a><strong><font color="#228B22"> #define LAPACKgelss_(a, b, c, d, e, f, g, h, i, j, k, l, m) PetscMissingLapack(</font><font color="#666666">"GELSS"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m)</font></strong>
<a name="line246">246: </a><font color="#A020F0"> #endif</font>
<a name="line247">247: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsyev_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line248">248: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsyevx_(const char *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line249">249: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsygv_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line250">250: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKsygvx_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const char *, const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line251">251: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKpttrs_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line252">252: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_STEBZ)</font>
<a name="line253">253: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKstebz_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line254">254: </a><font color="#A020F0"> #else</font>
<a name="line255">255: </a><strong><font color="#228B22"> #define LAPACKstebz_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r) PetscMissingLapack(</font><font color="#666666">"STEBZ"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r)</font></strong>
<a name="line256">256: </a><font color="#A020F0"> #endif</font>
<a name="line257">257: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_GERFS)</font>
<a name="line258">258: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgerfs_(const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line259">259: </a><font color="#A020F0"> #else</font>
<a name="line260">260: </a><strong><font color="#228B22"> #define LAPACKgerfs_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q) PetscMissingLapack(</font><font color="#666666">"GERFS"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q)</font></strong>
<a name="line261">261: </a><font color="#A020F0"> #endif</font>
<a name="line262">262: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_TRSEN)</font>
<a name="line263">263: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKtrsen_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line264">264: </a><font color="#A020F0"> #else</font>
<a name="line265">265: </a><strong><font color="#228B22"> #define LAPACKtrsen_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r) PetscMissingLapack(</font><font color="#666666">"TRSEN"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r)</font></strong>
<a name="line266">266: </a><font color="#A020F0"> #endif</font>
<a name="line267">267: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_TGSEN)</font>
<a name="line268">268: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKtgsen_(const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line269">269: </a><font color="#A020F0"> #else</font>
<a name="line270">270: </a><strong><font color="#228B22"> #define LAPACKtgsen_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y) PetscMissingLapack(</font><font color="#666666">"TGSEN"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y)</font></strong>
<a name="line271">271: </a><font color="#A020F0"> #endif</font>
<a name="line272">272: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_GGES)</font>
<a name="line273">273: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgges_(const char *, const char *, const char *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> (*)(void), const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line274">274: </a><font color="#A020F0"> #else</font>
<a name="line275">275: </a><strong><font color="#228B22"> #define LAPACKgges_(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u) PetscMissingLapack(</font><font color="#666666">"GGES"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u)</font></strong>
<a name="line276">276: </a><font color="#A020F0"> #endif</font>
<a name="line277">277: </a><font color="#A020F0"> #if !defined(PETSC_MISSING_LAPACK_HSEQR)</font>
<a name="line278">278: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKhseqr_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line279">279: </a><font color="#A020F0"> #else</font>
<a name="line280">280: </a><strong><font color="#228B22"> #define LAPACKhseqr_(a, b, c, d, e, f, g, h, i, j, k, l, m, n) PetscMissingLapack(</font><font color="#666666">"HSEQR"</font><font color="#228B22">, a, b, c, d, e, f, g, h, i, j, k, l, m, n)</font></strong>
<a name="line281">281: </a><font color="#A020F0"> #endif</font>
<a name="line282">282: </a><font color="#A020F0">#endif </font><font color="#B22222">/* defined(PETSC_USE_COMPLEX) */</font><font color="#A020F0"></font>
<a name="line284">284: </a><font color="#A020F0">#if defined(PETSC_USE_COMPLEX)</font>
<a name="line285">285: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgeev_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line286">286: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgesvd_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line287">287: </a><font color="#A020F0">#else</font>
<a name="line288">288: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgeev_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line289">289: </a><strong><font color="#4169E1">BLAS_EXTERN void LAPACKgesvd_(const char *, const char *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscReal.html">PetscReal</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscScalar.html">PetscScalar</a> *, const <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *, <a href="../manualpages/Sys/PetscBLASInt.html">PetscBLASInt</a> *)</font></strong>;
<a name="line290">290: </a><font color="#A020F0">#endif</font>
</pre>
</body>
</html>
|
