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
|
<center><a href="https://gitlab.com/slepc/slepc/-/blob/bbccb785e5ebe6829936989c71776839602f087b/include/slepcblaslapack_mangle.h">Actual source code: slepcblaslapack_mangle.h</a></center><br>
<html>
<head>
<title></title>
<meta name="generator" content="c2html 0.9.6">
<meta name="date" content="2025-11-07T08:27:35+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"> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -</font>
<a name="line3"> 3: </a><font color="#B22222"> SLEPc - Scalable Library for Eigenvalue Problem Computations</font>
<a name="line4"> 4: </a><font color="#B22222"> Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain</font>
<a name="line6"> 6: </a><font color="#B22222"> This file is part of SLEPc.</font>
<a name="line7"> 7: </a><font color="#B22222"> SLEPc is distributed under a 2-clause BSD license (see LICENSE).</font>
<a name="line8"> 8: </a><font color="#B22222"> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -</font>
<a name="line9"> 9: </a><font color="#B22222">*/</font>
<a name="line11"> 11: </a><font color="#A020F0">#pragma once</font>
<a name="line13"> 13: </a><font color="#B22222">/* MANSEC = Sys */</font>
<a name="line15"> 15: </a><font color="#B22222">/* LAPACK functions without string parameters */</font>
<a name="line16"> 16: </a><strong><font color="#228B22">#define BLASrot_ PETSCBLAS(rot,ROT)</font></strong>
<a name="line17"> 17: </a><strong><font color="#228B22">#define BLASMIXEDrot_ PETSCBLASMIXED(rot,ROT)</font></strong>
<a name="line18"> 18: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LAEV2)</font>
<a name="line19"> 19: </a><strong><font color="#228B22">#define LAPACKlaev2_ PETSCBLAS(laev2,LAEV2)</font></strong>
<a name="line20"> 20: </a><font color="#A020F0">#endif</font>
<a name="line21"> 21: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GEHRD)</font>
<a name="line22"> 22: </a><strong><font color="#228B22">#define LAPACKgehrd_ PETSCBLAS(gehrd,GEHRD)</font></strong>
<a name="line23"> 23: </a><font color="#A020F0">#endif</font>
<a name="line24"> 24: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LARFG)</font>
<a name="line25"> 25: </a><strong><font color="#228B22">#define LAPACKlarfg_ PETSCBLAS(larfg,LARFG)</font></strong>
<a name="line26"> 26: </a><font color="#A020F0">#endif</font>
<a name="line27"> 27: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LAG2)</font>
<a name="line28"> 28: </a><strong><font color="#228B22">#define LAPACKlag2_ PETSCBLASREAL(lag2,LAG2)</font></strong>
<a name="line29"> 29: </a><font color="#A020F0">#endif</font>
<a name="line30"> 30: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LASV2)</font>
<a name="line31"> 31: </a><strong><font color="#228B22">#define LAPACKlasv2_ PETSCBLASREAL(lasv2,LASV2)</font></strong>
<a name="line32"> 32: </a><font color="#A020F0">#endif</font>
<a name="line33"> 33: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LARTG)</font>
<a name="line34"> 34: </a><strong><font color="#228B22">#define LAPACKlartg_ PETSCBLAS(lartg,LARTG)</font></strong>
<a name="line35"> 35: </a><strong><font color="#228B22">#define LAPACKREALlartg_ PETSCBLASREAL(lartg,LARTG)</font></strong>
<a name="line36"> 36: </a><font color="#A020F0">#endif</font>
<a name="line37"> 37: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LAED4)</font>
<a name="line38"> 38: </a><strong><font color="#228B22">#define LAPACKlaed4_ PETSCBLASREAL(laed4,LAED4)</font></strong>
<a name="line39"> 39: </a><font color="#A020F0">#endif</font>
<a name="line40"> 40: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LAMRG)</font>
<a name="line41"> 41: </a><strong><font color="#228B22">#define LAPACKlamrg_ PETSCBLASREAL(lamrg,LAMRG)</font></strong>
<a name="line42"> 42: </a><font color="#A020F0">#endif</font>
<a name="line43"> 43: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_ORGHR)</font>
<a name="line44"> 44: </a><font color="#A020F0">#if !defined(PETSC_USE_COMPLEX)</font>
<a name="line45"> 45: </a><strong><font color="#228B22">#define LAPACKorghr_ PETSCBLAS(orghr,ORGHR)</font></strong>
<a name="line46"> 46: </a><font color="#A020F0">#else</font>
<a name="line47"> 47: </a><strong><font color="#228B22">#define LAPACKorghr_ PETSCBLAS(unghr,UNGHR)</font></strong>
<a name="line48"> 48: </a><font color="#A020F0">#endif</font>
<a name="line49"> 49: </a><font color="#A020F0">#endif</font>
<a name="line50"> 50: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TGEXC)</font>
<a name="line51"> 51: </a><strong><font color="#228B22">#define LAPACKtgexc_ PETSCBLAS(tgexc,TGEXC)</font></strong>
<a name="line52"> 52: </a><font color="#A020F0">#endif</font>
<a name="line53"> 53: </a><strong><font color="#228B22">#define LAPACKgeqp3_ PETSCBLAS(geqp3,GEQP3)</font></strong>
<a name="line55"> 55: </a><font color="#B22222">/* LAPACK functions with string parameters */</font>
<a name="line57"> 57: </a><font color="#B22222">/* same name for real and complex */</font>
<a name="line58"> 58: </a><strong><font color="#228B22">#define BLAStrmm_ PETSCBLAS(trmm,TRMM)</font></strong>
<a name="line59"> 59: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LANHS)</font>
<a name="line60"> 60: </a><strong><font color="#228B22">#define LAPACKlanhs_ PETSCBLAS(lanhs,LANHS)</font></strong>
<a name="line61"> 61: </a><font color="#A020F0">#endif</font>
<a name="line62"> 62: </a><strong><font color="#228B22">#define LAPACKlange_ PETSCBLAS(lange,LANGE)</font></strong>
<a name="line63"> 63: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LARF)</font>
<a name="line64"> 64: </a><strong><font color="#228B22">#define LAPACKlarf_ PETSCBLAS(larf,LARF)</font></strong>
<a name="line65"> 65: </a><font color="#A020F0">#endif</font>
<a name="line66"> 66: </a><strong><font color="#228B22">#define LAPACKlansy_ PETSCBLAS(lansy,LANSY)</font></strong>
<a name="line67"> 67: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TRSYL)</font>
<a name="line68"> 68: </a><strong><font color="#228B22">#define LAPACKtrsyl_ PETSCBLAS(trsyl,TRSYL)</font></strong>
<a name="line69"> 69: </a><font color="#A020F0">#endif</font>
<a name="line71"> 71: </a><font color="#B22222">/* subroutines in which we use only the real version, do not care whether they have different name */</font>
<a name="line72"> 72: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_STEVR)</font>
<a name="line73"> 73: </a><strong><font color="#228B22">#define LAPACKstevr_ PETSCBLASREAL(stevr,STEVR)</font></strong>
<a name="line74"> 74: </a><font color="#A020F0">#endif</font>
<a name="line75"> 75: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_BDSDC)</font>
<a name="line76"> 76: </a><strong><font color="#228B22">#define LAPACKbdsdc_ PETSCBLASREAL(bdsdc,BDSDC)</font></strong>
<a name="line77"> 77: </a><font color="#A020F0">#endif</font>
<a name="line78"> 78: </a><strong><font color="#228B22">#define LAPACKlamch_ PETSCBLASREAL(lamch,LAMCH)</font></strong>
<a name="line79"> 79: </a><strong><font color="#228B22">#define LAPACKlamc3_ PETSCBLASREAL(lamc3,LAMC3)</font></strong>
<a name="line81"> 81: </a><font color="#B22222">/* subroutines with different name in real/complex */</font>
<a name="line82"> 82: </a><font color="#A020F0">#if !defined(PETSC_USE_COMPLEX)</font>
<a name="line83"> 83: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_ORGTR)</font>
<a name="line84"> 84: </a><strong><font color="#228B22">#define LAPACKorgtr_ PETSCBLAS(orgtr,ORGTR)</font></strong>
<a name="line85"> 85: </a><font color="#A020F0">#endif</font>
<a name="line86"> 86: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_ORMBR)</font>
<a name="line87"> 87: </a><strong><font color="#228B22">#define LAPACKormbr_ PETSCBLAS(ormbr,ORMBR)</font></strong>
<a name="line88"> 88: </a><font color="#A020F0">#endif</font>
<a name="line89"> 89: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_SYTRD)</font>
<a name="line90"> 90: </a><strong><font color="#228B22">#define LAPACKsytrd_ PETSCBLAS(sytrd,SYTRD)</font></strong>
<a name="line91"> 91: </a><font color="#A020F0">#endif</font>
<a name="line92"> 92: </a><strong><font color="#228B22">#define LAPACKsyevd_ PETSCBLAS(syevd,SYEVD)</font></strong>
<a name="line93"> 93: </a><strong><font color="#228B22">#define LAPACKsygvd_ PETSCBLAS(sygvd,SYGVD)</font></strong>
<a name="line94"> 94: </a><font color="#A020F0">#else</font>
<a name="line95"> 95: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_ORGTR)</font>
<a name="line96"> 96: </a><strong><font color="#228B22">#define LAPACKorgtr_ PETSCBLAS(ungtr,UNGTR)</font></strong>
<a name="line97"> 97: </a><font color="#A020F0">#endif</font>
<a name="line98"> 98: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_ORMBR)</font>
<a name="line99"> 99: </a><strong><font color="#228B22">#define LAPACKormbr_ PETSCBLAS(unmbr,UNMBR)</font></strong>
<a name="line100">100: </a><font color="#A020F0">#endif</font>
<a name="line101">101: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_SYTRD)</font>
<a name="line102">102: </a><strong><font color="#228B22">#define LAPACKsytrd_ PETSCBLAS(hetrd,HETRD)</font></strong>
<a name="line103">103: </a><font color="#A020F0">#endif</font>
<a name="line104">104: </a><strong><font color="#228B22">#define LAPACKsyevd_ PETSCBLAS(heevd,HEEVD)</font></strong>
<a name="line105">105: </a><strong><font color="#228B22">#define LAPACKsygvd_ PETSCBLAS(hegvd,HEGVD)</font></strong>
<a name="line106">106: </a><font color="#A020F0">#endif</font>
<a name="line108">108: </a><font color="#B22222">/* subroutines with different signature in real/complex */</font>
<a name="line109">109: </a><strong><font color="#228B22">#define LAPACKggev_ PETSCBLAS(ggev,GGEV)</font></strong>
<a name="line110">110: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GGEV3) </font><font color="#B22222">/* ggev and ggev3 have the same signature */</font><font color="#A020F0"></font>
<a name="line111">111: </a><strong><font color="#228B22">#define LAPACKggev3_ PETSCBLAS(ggev3,GGEV3)</font></strong>
<a name="line112">112: </a><strong><font color="#228B22">#define LAPACKggevalt_ LAPACKggev3_</font></strong>
<a name="line113">113: </a><font color="#A020F0">#else</font>
<a name="line114">114: </a><strong><font color="#228B22">#define LAPACKggevalt_ LAPACKggev_</font></strong>
<a name="line115">115: </a><font color="#A020F0">#endif</font>
<a name="line116">116: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GGES3) </font><font color="#B22222">/* gges and gges3 have the same signature */</font><font color="#A020F0"></font>
<a name="line117">117: </a><strong><font color="#228B22">#define LAPACKgges3_ PETSCBLAS(gges3,GGES3)</font></strong>
<a name="line118">118: </a><strong><font color="#228B22">#define LAPACKggesalt_ LAPACKgges3_</font></strong>
<a name="line119">119: </a><font color="#A020F0">#else</font>
<a name="line120">120: </a><strong><font color="#228B22">#define LAPACKggesalt_ LAPACKgges_</font></strong>
<a name="line121">121: </a><font color="#A020F0">#endif</font>
<a name="line122">122: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GGSVD)</font>
<a name="line123">123: </a><strong><font color="#228B22">#define LAPACKggsvd_ PETSCBLAS(ggsvd,GGSVD)</font></strong>
<a name="line124">124: </a><font color="#A020F0">#endif</font>
<a name="line125">125: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GGSVD3)</font>
<a name="line126">126: </a><strong><font color="#228B22">#define LAPACKggsvd3_ PETSCBLAS(ggsvd3,GGSVD3)</font></strong>
<a name="line127">127: </a><font color="#A020F0">#endif</font>
<a name="line128">128: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TREVC)</font>
<a name="line129">129: </a><strong><font color="#228B22">#define LAPACKtrevc_ PETSCBLAS(trevc,TREVC)</font></strong>
<a name="line130">130: </a><font color="#A020F0">#endif</font>
<a name="line131">131: </a><strong><font color="#228B22">#define LAPACKgeevx_ PETSCBLAS(geevx,GEEVX)</font></strong>
<a name="line132">132: </a><strong><font color="#228B22">#define LAPACKgees_ PETSCBLAS(gees,GEES)</font></strong>
<a name="line133">133: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TREXC)</font>
<a name="line134">134: </a><strong><font color="#228B22">#define LAPACKtrexc_ PETSCBLAS(trexc,TREXC)</font></strong>
<a name="line135">135: </a><font color="#A020F0">#endif</font>
<a name="line136">136: </a><strong><font color="#228B22">#define LAPACKgesdd_ PETSCBLAS(gesdd,GESDD)</font></strong>
<a name="line137">137: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TGEVC)</font>
<a name="line138">138: </a><strong><font color="#228B22">#define LAPACKtgevc_ PETSCBLAS(tgevc,TGEVC)</font></strong>
<a name="line139">139: </a><font color="#A020F0">#endif</font>
<a name="line140">140: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_HSEIN)</font>
<a name="line141">141: </a><strong><font color="#228B22">#define LAPACKhsein_ PETSCBLAS(hsein,HSEIN)</font></strong>
<a name="line142">142: </a><font color="#A020F0">#endif</font>
<a name="line143">143: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_STEDC)</font>
<a name="line144">144: </a><strong><font color="#228B22">#define LAPACKstedc_ PETSCBLAS(stedc,STEDC)</font></strong>
<a name="line145">145: </a><font color="#A020F0">#endif</font>
<a name="line146">146: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LASCL)</font>
<a name="line147">147: </a><strong><font color="#228B22">#define LAPACKlascl_ PETSCBLAS(lascl,LASCL)</font></strong>
<a name="line148">148: </a><font color="#A020F0">#endif</font>
<a name="line149">149: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_BDSQR)</font>
<a name="line150">150: </a><strong><font color="#228B22">#define LAPACKbdsqr_ PETSCBLAS(bdsqr,BDSQR)</font></strong>
<a name="line151">151: </a><font color="#A020F0">#endif</font>
<a name="line152">152: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GEBRD)</font>
<a name="line153">153: </a><strong><font color="#228B22">#define LAPACKgebrd_ PETSCBLAS(gebrd,GEBRD)</font></strong>
<a name="line154">154: </a><font color="#A020F0">#endif</font>
<a name="line156">156: </a><font color="#A020F0">#if defined(PETSC_HAVE_COMPLEX)</font>
<a name="line157">157: </a><font color="#B22222">/* complex subroutines to be called with scalar-type=real */</font>
<a name="line158">158: </a><strong><font color="#228B22">#define BLASCOMPLEXgemm_ PETSCBLASCOMPLEX(gemm,GEMM)</font></strong>
<a name="line159">159: </a><strong><font color="#228B22">#define BLASCOMPLEXscal_ PETSCBLASCOMPLEX(scal,SCAL)</font></strong>
<a name="line160">160: </a><strong><font color="#228B22">#define LAPACKCOMPLEXgesv_ PETSCBLASCOMPLEX(gesv,GESV)</font></strong>
<a name="line161">161: </a><font color="#A020F0">#endif</font>
</pre>
</body>
</html>
|
