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
|
<center><a href="slepcblaslapack_mangle.h">Actual source code: slepcblaslapack_mangle.h</a></center><br>
<html>
<head> <link rel="canonical" href="https://slepc.upv.es/documentation/current/include/slepcblaslapack_mangle.h.html" />
<title></title>
<meta name="generator" content="c2html 0.9.4">
<meta name="date" content="2023-01-26T12:19:46+00:00">
</head>
<body bgcolor="#FFFFFF">
<div id="version" align=right><b>slepc-3.18.2 2023-01-26</b></div>
<div id="bugreport" align=right><a href="mailto:slepc-maint@upv.es?subject=Typo or Error in Documentation &body=Please describe the typo or error in the documentation: slepc-3.18.2 v3.18.2 include/slepcblaslapack_mangle.h.html "><small>Report Typos and Errors</small></a></div>
<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">#if !defined(SLEPCBLASLAPACK_MANGLE_H)</font>
<a name="line12"> 12: </a><strong><font color="#228B22">#define SLEPCBLASLAPACK_MANGLE_H</font></strong>
<a name="line14"> 14: </a><font color="#B22222">/* LAPACK functions without string parameters */</font>
<a name="line15"> 15: </a><strong><font color="#228B22">#define BLASrot_ PETSCBLAS(rot,ROT)</font></strong>
<a name="line16"> 16: </a><strong><font color="#228B22">#define BLASMIXEDrot_ PETSCBLASMIXED(rot,ROT)</font></strong>
<a name="line17"> 17: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LAEV2)</font>
<a name="line18"> 18: </a><strong><font color="#228B22">#define LAPACKlaev2_ PETSCBLAS(laev2,LAEV2)</font></strong>
<a name="line19"> 19: </a><font color="#A020F0">#endif</font>
<a name="line20"> 20: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GEHRD)</font>
<a name="line21"> 21: </a><strong><font color="#228B22">#define LAPACKgehrd_ PETSCBLAS(gehrd,GEHRD)</font></strong>
<a name="line22"> 22: </a><font color="#A020F0">#endif</font>
<a name="line23"> 23: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LARFG)</font>
<a name="line24"> 24: </a><strong><font color="#228B22">#define LAPACKlarfg_ PETSCBLAS(larfg,LARFG)</font></strong>
<a name="line25"> 25: </a><font color="#A020F0">#endif</font>
<a name="line26"> 26: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LAG2)</font>
<a name="line27"> 27: </a><strong><font color="#228B22">#define LAPACKlag2_ PETSCBLASREAL(lag2,LAG2)</font></strong>
<a name="line28"> 28: </a><font color="#A020F0">#endif</font>
<a name="line29"> 29: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LASV2)</font>
<a name="line30"> 30: </a><strong><font color="#228B22">#define LAPACKlasv2_ PETSCBLASREAL(lasv2,LASV2)</font></strong>
<a name="line31"> 31: </a><font color="#A020F0">#endif</font>
<a name="line32"> 32: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LARTG)</font>
<a name="line33"> 33: </a><strong><font color="#228B22">#define LAPACKlartg_ PETSCBLAS(lartg,LARTG)</font></strong>
<a name="line34"> 34: </a><strong><font color="#228B22">#define LAPACKREALlartg_ PETSCBLASREAL(lartg,LARTG)</font></strong>
<a name="line35"> 35: </a><font color="#A020F0">#endif</font>
<a name="line36"> 36: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LAED4)</font>
<a name="line37"> 37: </a><strong><font color="#228B22">#define LAPACKlaed4_ PETSCBLASREAL(laed4,LAED4)</font></strong>
<a name="line38"> 38: </a><font color="#A020F0">#endif</font>
<a name="line39"> 39: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LAMRG)</font>
<a name="line40"> 40: </a><strong><font color="#228B22">#define LAPACKlamrg_ PETSCBLASREAL(lamrg,LAMRG)</font></strong>
<a name="line41"> 41: </a><font color="#A020F0">#endif</font>
<a name="line42"> 42: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_ORGHR)</font>
<a name="line43"> 43: </a><font color="#A020F0">#if !defined(PETSC_USE_COMPLEX)</font>
<a name="line44"> 44: </a><strong><font color="#228B22">#define LAPACKorghr_ PETSCBLAS(orghr,ORGHR)</font></strong>
<a name="line45"> 45: </a><font color="#A020F0">#else</font>
<a name="line46"> 46: </a><strong><font color="#228B22">#define LAPACKorghr_ PETSCBLAS(unghr,UNGHR)</font></strong>
<a name="line47"> 47: </a><font color="#A020F0">#endif</font>
<a name="line48"> 48: </a><font color="#A020F0">#endif</font>
<a name="line49"> 49: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TGEXC)</font>
<a name="line50"> 50: </a><strong><font color="#228B22">#define LAPACKtgexc_ PETSCBLAS(tgexc,TGEXC)</font></strong>
<a name="line51"> 51: </a><font color="#A020F0">#endif</font>
<a name="line52"> 52: </a><strong><font color="#228B22">#define LAPACKgeqp3_ PETSCBLAS(geqp3,GEQP3)</font></strong>
<a name="line54"> 54: </a><font color="#B22222">/* LAPACK functions with string parameters */</font>
<a name="line56"> 56: </a><font color="#B22222">/* same name for real and complex */</font>
<a name="line57"> 57: </a><strong><font color="#228B22">#define BLAStrmm_ PETSCBLAS(trmm,TRMM)</font></strong>
<a name="line58"> 58: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LANHS)</font>
<a name="line59"> 59: </a><strong><font color="#228B22">#define LAPACKlanhs_ PETSCBLAS(lanhs,LANHS)</font></strong>
<a name="line60"> 60: </a><font color="#A020F0">#endif</font>
<a name="line61"> 61: </a><strong><font color="#228B22">#define LAPACKlange_ PETSCBLAS(lange,LANGE)</font></strong>
<a name="line62"> 62: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_LARF)</font>
<a name="line63"> 63: </a><strong><font color="#228B22">#define LAPACKlarf_ PETSCBLAS(larf,LARF)</font></strong>
<a name="line64"> 64: </a><font color="#A020F0">#endif</font>
<a name="line65"> 65: </a><strong><font color="#228B22">#define LAPACKlansy_ PETSCBLAS(lansy,LANSY)</font></strong>
<a name="line66"> 66: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TRSYL)</font>
<a name="line67"> 67: </a><strong><font color="#228B22">#define LAPACKtrsyl_ PETSCBLAS(trsyl,TRSYL)</font></strong>
<a name="line68"> 68: </a><font color="#A020F0">#endif</font>
<a name="line69"> 69: </a><strong><font color="#228B22">#define LAPACKtrtri_ PETSCBLAS(trtri,TRTRI)</font></strong>
<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_SYTRD)</font>
<a name="line87"> 87: </a><strong><font color="#228B22">#define LAPACKsytrd_ PETSCBLAS(sytrd,SYTRD)</font></strong>
<a name="line88"> 88: </a><font color="#A020F0">#endif</font>
<a name="line89"> 89: </a><strong><font color="#228B22">#define LAPACKsyevd_ PETSCBLAS(syevd,SYEVD)</font></strong>
<a name="line90"> 90: </a><strong><font color="#228B22">#define LAPACKsygvd_ PETSCBLAS(sygvd,SYGVD)</font></strong>
<a name="line91"> 91: </a><font color="#A020F0">#else</font>
<a name="line92"> 92: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_ORGTR)</font>
<a name="line93"> 93: </a><strong><font color="#228B22">#define LAPACKorgtr_ PETSCBLAS(ungtr,UNGTR)</font></strong>
<a name="line94"> 94: </a><font color="#A020F0">#endif</font>
<a name="line95"> 95: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_SYTRD)</font>
<a name="line96"> 96: </a><strong><font color="#228B22">#define LAPACKsytrd_ PETSCBLAS(hetrd,HETRD)</font></strong>
<a name="line97"> 97: </a><font color="#A020F0">#endif</font>
<a name="line98"> 98: </a><strong><font color="#228B22">#define LAPACKsyevd_ PETSCBLAS(heevd,HEEVD)</font></strong>
<a name="line99"> 99: </a><strong><font color="#228B22">#define LAPACKsygvd_ PETSCBLAS(hegvd,HEGVD)</font></strong>
<a name="line100">100: </a><font color="#A020F0">#endif</font>
<a name="line102">102: </a><font color="#B22222">/* subroutines with different signature in real/complex */</font>
<a name="line103">103: </a><strong><font color="#228B22">#define LAPACKggev_ PETSCBLAS(ggev,GGEV)</font></strong>
<a name="line104">104: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GGSVD)</font>
<a name="line105">105: </a><strong><font color="#228B22">#define LAPACKggsvd_ PETSCBLAS(ggsvd,GGSVD)</font></strong>
<a name="line106">106: </a><font color="#A020F0">#endif</font>
<a name="line107">107: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_GGSVD3)</font>
<a name="line108">108: </a><strong><font color="#228B22">#define LAPACKggsvd3_ PETSCBLAS(ggsvd3,GGSVD3)</font></strong>
<a name="line109">109: </a><font color="#A020F0">#endif</font>
<a name="line110">110: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TREVC)</font>
<a name="line111">111: </a><strong><font color="#228B22">#define LAPACKtrevc_ PETSCBLAS(trevc,TREVC)</font></strong>
<a name="line112">112: </a><font color="#A020F0">#endif</font>
<a name="line113">113: </a><strong><font color="#228B22">#define LAPACKgeevx_ PETSCBLAS(geevx,GEEVX)</font></strong>
<a name="line114">114: </a><strong><font color="#228B22">#define LAPACKgees_ PETSCBLAS(gees,GEES)</font></strong>
<a name="line115">115: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TREXC)</font>
<a name="line116">116: </a><strong><font color="#228B22">#define LAPACKtrexc_ PETSCBLAS(trexc,TREXC)</font></strong>
<a name="line117">117: </a><font color="#A020F0">#endif</font>
<a name="line118">118: </a><strong><font color="#228B22">#define LAPACKgesdd_ PETSCBLAS(gesdd,GESDD)</font></strong>
<a name="line119">119: </a><font color="#A020F0">#if !defined(SLEPC_MISSING_LAPACK_TGEVC)</font>
<a name="line120">120: </a><strong><font color="#228B22">#define LAPACKtgevc_ PETSCBLAS(tgevc,TGEVC)</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_HSEIN)</font>
<a name="line123">123: </a><strong><font color="#228B22">#define LAPACKhsein_ PETSCBLAS(hsein,HSEIN)</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_STEDC)</font>
<a name="line126">126: </a><strong><font color="#228B22">#define LAPACKstedc_ PETSCBLAS(stedc,STEDC)</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_LASCL)</font>
<a name="line129">129: </a><strong><font color="#228B22">#define LAPACKlascl_ PETSCBLAS(lascl,LASCL)</font></strong>
<a name="line130">130: </a><font color="#A020F0">#endif</font>
<a name="line132">132: </a><font color="#A020F0">#if defined(PETSC_HAVE_COMPLEX)</font>
<a name="line133">133: </a><font color="#B22222">/* complex subroutines to be called with scalar-type=real */</font>
<a name="line134">134: </a><strong><font color="#228B22">#define BLASCOMPLEXgemm_ PETSCBLASCOMPLEX(gemm,GEMM)</font></strong>
<a name="line135">135: </a><strong><font color="#228B22">#define BLASCOMPLEXscal_ PETSCBLASCOMPLEX(scal,SCAL)</font></strong>
<a name="line136">136: </a><strong><font color="#228B22">#define LAPACKCOMPLEXgesv_ PETSCBLASCOMPLEX(gesv,GESV)</font></strong>
<a name="line137">137: </a><font color="#A020F0">#endif</font>
<a name="line139">139: </a><font color="#A020F0">#endif</font>
</pre>
</body>
</html>
|
