| /dports/math/superlu/superlu-5.2.2/INSTALL/ |
| H A D | dmach.c | 51 extern int lsame_(char *, char *); in dmach()
53 if (lsame_(cmach, "E")) { in dmach()
55 } else if (lsame_(cmach, "S")) { in dmach()
64 } else if (lsame_(cmach, "B")) { in dmach()
66 } else if (lsame_(cmach, "P")) { in dmach()
68 } else if (lsame_(cmach, "N")) { in dmach()
70 } else if (lsame_(cmach, "R")) { in dmach()
72 } else if (lsame_(cmach, "M")) { in dmach()
74 } else if (lsame_(cmach, "U")) { in dmach()
76 } else if (lsame_(cmach, "L")) { in dmach()
[all …]
|
| H A D | smach.c | 51 extern int lsame_(char *, char *); in smach()
53 if (lsame_(cmach, "E")) { in smach()
55 } else if (lsame_(cmach, "S")) { in smach()
64 } else if (lsame_(cmach, "B")) { in smach()
66 } else if (lsame_(cmach, "P")) { in smach()
68 } else if (lsame_(cmach, "N")) { in smach()
70 } else if (lsame_(cmach, "R")) { in smach()
72 } else if (lsame_(cmach, "M")) { in smach()
74 } else if (lsame_(cmach, "U")) { in smach()
76 } else if (lsame_(cmach, "L")) { in smach()
[all …]
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | slasr.c | 189 if (! (lsame_(side, "L") || lsame_(side, "R"))) { in slasr_()
191 } else if (! (lsame_(pivot, "V") || lsame_(pivot, in slasr_()
194 } else if (! (lsame_(direct, "F") || lsame_(direct, in slasr_()
214 if (lsame_(side, "L")) { in slasr_()
218 if (lsame_(pivot, "V")) { in slasr_()
219 if (lsame_(direct, "F")) { in slasr_()
256 if (lsame_(direct, "F")) { in slasr_()
293 if (lsame_(direct, "F")) { in slasr_()
334 if (lsame_(pivot, "V")) { in slasr_()
335 if (lsame_(direct, "F")) { in slasr_()
[all …]
|
| H A D | dlasr.c | 190 if (! (lsame_(side, "L") || lsame_(side, "R"))) { in dlasr_()
192 } else if (! (lsame_(pivot, "V") || lsame_(pivot, in dlasr_()
195 } else if (! (lsame_(direct, "F") || lsame_(direct, in dlasr_()
215 if (lsame_(side, "L")) { in dlasr_()
219 if (lsame_(pivot, "V")) { in dlasr_()
220 if (lsame_(direct, "F")) { in dlasr_()
257 if (lsame_(direct, "F")) { in dlasr_()
294 if (lsame_(direct, "F")) { in dlasr_()
335 if (lsame_(pivot, "V")) { in dlasr_()
336 if (lsame_(direct, "F")) { in dlasr_()
[all …]
|
| /dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
| H A D | dlasr.c | 190 if (! (lsame_(side, "L") || lsame_(side, "R"))) { in dlasr_()
192 } else if (! (lsame_(pivot, "V") || lsame_(pivot, in dlasr_()
195 } else if (! (lsame_(direct, "F") || lsame_(direct, in dlasr_()
215 if (lsame_(side, "L")) { in dlasr_()
219 if (lsame_(pivot, "V")) { in dlasr_()
220 if (lsame_(direct, "F")) { in dlasr_()
257 if (lsame_(direct, "F")) { in dlasr_()
294 if (lsame_(direct, "F")) { in dlasr_()
335 if (lsame_(pivot, "V")) { in dlasr_()
336 if (lsame_(direct, "F")) { in dlasr_()
[all …]
|
| /dports/science/hypre/hypre-2.23.0/src/lapack/ |
| H A D | dlasr.c | 134 if (! (lsame_(side, "L") || lsame_(side, "R"))) { in dlasr_()
136 } else if (! (lsame_(pivot, "V") || lsame_(pivot, in dlasr_()
139 } else if (! (lsame_(direct, "F") || lsame_(direct, in dlasr_()
159 if (lsame_(side, "L")) { in dlasr_()
163 if (lsame_(pivot, "V")) { in dlasr_()
164 if (lsame_(direct, "F")) { in dlasr_()
201 if (lsame_(direct, "F")) { in dlasr_()
238 if (lsame_(direct, "F")) { in dlasr_()
279 if (lsame_(pivot, "V")) { in dlasr_()
280 if (lsame_(direct, "F")) { in dlasr_()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | dlasr.c | 228 if (! (lsame_(side, "L") || lsame_(side, "R"))) in dlasr_()
232 else if (! (lsame_(pivot, "V") || lsame_(pivot, "T") || lsame_(pivot, "B"))) in dlasr_()
236 else if (! (lsame_(direct, "F") || lsame_(direct, "B"))) in dlasr_()
262 if (lsame_(side, "L")) in dlasr_()
265 if (lsame_(pivot, "V")) in dlasr_()
267 if (lsame_(direct, "F")) in dlasr_()
317 else if (lsame_(pivot, "T")) in dlasr_()
319 if (lsame_(direct, "F")) in dlasr_()
369 else if (lsame_(pivot, "B")) in dlasr_()
422 else if (lsame_(side, "R")) in dlasr_()
[all …]
|
| H A D | slasr.c | 228 if (! (lsame_(side, "L") || lsame_(side, "R"))) in slasr_()
232 else if (! (lsame_(pivot, "V") || lsame_(pivot, "T") || lsame_(pivot, "B"))) in slasr_()
236 else if (! (lsame_(direct, "F") || lsame_(direct, "B"))) in slasr_()
262 if (lsame_(side, "L")) in slasr_()
265 if (lsame_(pivot, "V")) in slasr_()
267 if (lsame_(direct, "F")) in slasr_()
317 else if (lsame_(pivot, "T")) in slasr_()
319 if (lsame_(direct, "F")) in slasr_()
369 else if (lsame_(pivot, "B")) in slasr_()
422 else if (lsame_(side, "R")) in slasr_()
[all …]
|
| H A D | dgebak.c | 133 extern logical lsame_(char *, char *); in dgebak_()
167 rightv = lsame_(side, "R"); in dgebak_()
168 leftv = lsame_(side, "L"); in dgebak_()
170 if (! lsame_(job, "N") && ! lsame_(job, "P") && ! lsame_(job, "S") && ! lsame_(job, "B")) in dgebak_()
213 if (lsame_(job, "N")) in dgebak_()
222 if (lsame_(job, "S") || lsame_(job, "B")) in dgebak_()
253 if (lsame_(job, "P") || lsame_(job, "B")) in dgebak_()
|
| H A D | sgebak.c | 131 extern logical lsame_(char *, char *); in sgebak_()
165 rightv = lsame_(side, "R"); in sgebak_()
166 leftv = lsame_(side, "L"); in sgebak_()
168 if (! lsame_(job, "N") && ! lsame_(job, "P") && ! lsame_(job, "S") && ! lsame_(job, "B")) in sgebak_()
211 if (lsame_(job, "N")) in sgebak_()
220 if (lsame_(job, "S") || lsame_(job, "B")) in sgebak_()
251 if (lsame_(job, "P") || lsame_(job, "B")) in sgebak_()
|
| H A D | zgebak.c | 132 extern logical lsame_(char *, char *); in zgebak_()
164 rightv = lsame_(side, "R"); in zgebak_()
165 leftv = lsame_(side, "L"); in zgebak_()
167 if (! lsame_(job, "N") && ! lsame_(job, "P") && ! lsame_(job, "S") && ! lsame_(job, "B")) in zgebak_()
210 if (lsame_(job, "N")) in zgebak_()
219 if (lsame_(job, "S") || lsame_(job, "B")) in zgebak_()
250 if (lsame_(job, "P") || lsame_(job, "B")) in zgebak_()
|
| H A D | cgebak.c | 132 extern logical lsame_(char *, char *); in cgebak_()
166 rightv = lsame_(side, "R"); in cgebak_()
167 leftv = lsame_(side, "L"); in cgebak_()
169 if (! lsame_(job, "N") && ! lsame_(job, "P") && ! lsame_(job, "S") && ! lsame_(job, "B")) in cgebak_()
212 if (lsame_(job, "N")) in cgebak_()
221 if (lsame_(job, "S") || lsame_(job, "B")) in cgebak_()
252 if (lsame_(job, "P") || lsame_(job, "B")) in cgebak_()
|
| H A D | zggbak.c | 147 extern logical lsame_(char *, char *); in zggbak_()
178 rightv = lsame_(side, "R"); in zggbak_()
179 leftv = lsame_(side, "L"); in zggbak_()
181 if (! lsame_(job, "N") && ! lsame_(job, "P") && ! lsame_(job, "S") && ! lsame_(job, "B")) in zggbak_()
232 if (lsame_(job, "N")) in zggbak_()
241 if (lsame_(job, "S") || lsame_(job, "B")) in zggbak_()
270 if (lsame_(job, "P") || lsame_(job, "B")) in zggbak_()
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
| H A D | dlasr.c | 207 if (! (lsame_(side, "L", (ftnlen)1, (ftnlen)1) || lsame_(side, "R", ( in dlasr_()
212 } else if (! (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1) || lsame_(pivot, in dlasr_()
218 } else if (! (lsame_(direct, "F", (ftnlen)1, (ftnlen)1) || lsame_(direct, in dlasr_()
252 if (lsame_(side, "L", (ftnlen)1, (ftnlen)1)) { in dlasr_()
257 if (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1)) { in dlasr_()
259 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
322 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
385 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
448 } else if (lsame_(side, "R", (ftnlen)1, (ftnlen)1)) { in dlasr_()
453 if (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1)) { in dlasr_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slasr.c | 18 extern logical lsame_(char *, char *, ftnlen, ftnlen); in slasr_()
146 if (! (lsame_(side, "L", (ftnlen)1, (ftnlen)1) || lsame_(side, "R", ( in slasr_()
149 } else if (! (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1) || lsame_(pivot, in slasr_()
153 } else if (! (lsame_(direct, "F", (ftnlen)1, (ftnlen)1) || lsame_(direct, in slasr_()
173 if (lsame_(side, "L", (ftnlen)1, (ftnlen)1)) { in slasr_()
177 if (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1)) { in slasr_()
178 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in slasr_()
215 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in slasr_()
252 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in slasr_()
293 if (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1)) { in slasr_()
[all …]
|
| H A D | dlasr.c | 18 extern logical lsame_(char *, char *, ftnlen, ftnlen); in dlasr_()
146 if (! (lsame_(side, "L", (ftnlen)1, (ftnlen)1) || lsame_(side, "R", ( in dlasr_()
149 } else if (! (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1) || lsame_(pivot, in dlasr_()
153 } else if (! (lsame_(direct, "F", (ftnlen)1, (ftnlen)1) || lsame_(direct, in dlasr_()
173 if (lsame_(side, "L", (ftnlen)1, (ftnlen)1)) { in dlasr_()
177 if (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1)) { in dlasr_()
178 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
215 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
252 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
293 if (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1)) { in dlasr_()
[all …]
|
| H A D | sgebak.c | 19 extern logical lsame_(char *, char *, ftnlen, ftnlen); in sgebak_()
110 rightv = lsame_(side, "R", (ftnlen)1, (ftnlen)1); in sgebak_()
111 leftv = lsame_(side, "L", (ftnlen)1, (ftnlen)1); in sgebak_()
114 if (! lsame_(job, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(job, "P", ( in sgebak_()
115 ftnlen)1, (ftnlen)1) && ! lsame_(job, "S", (ftnlen)1, (ftnlen)1) in sgebak_()
116 && ! lsame_(job, "B", (ftnlen)1, (ftnlen)1)) { in sgebak_()
145 if (lsame_(job, "N", (ftnlen)1, (ftnlen)1)) { in sgebak_()
155 if (lsame_(job, "S", (ftnlen)1, (ftnlen)1) || lsame_(job, "B", (ftnlen)1, in sgebak_()
184 if (lsame_(job, "P", (ftnlen)1, (ftnlen)1) || lsame_(job, "B", (ftnlen)1, in sgebak_()
|
| H A D | dgebak.c | 21 extern logical lsame_(char *, char *, ftnlen, ftnlen); in dgebak_()
112 rightv = lsame_(side, "R", (ftnlen)1, (ftnlen)1); in dgebak_()
113 leftv = lsame_(side, "L", (ftnlen)1, (ftnlen)1); in dgebak_()
116 if (! lsame_(job, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(job, "P", ( in dgebak_()
117 ftnlen)1, (ftnlen)1) && ! lsame_(job, "S", (ftnlen)1, (ftnlen)1) in dgebak_()
118 && ! lsame_(job, "B", (ftnlen)1, (ftnlen)1)) { in dgebak_()
147 if (lsame_(job, "N", (ftnlen)1, (ftnlen)1)) { in dgebak_()
157 if (lsame_(job, "S", (ftnlen)1, (ftnlen)1) || lsame_(job, "B", (ftnlen)1, in dgebak_()
186 if (lsame_(job, "P", (ftnlen)1, (ftnlen)1) || lsame_(job, "B", (ftnlen)1, in dgebak_()
|
| H A D | cgebak.c | 19 extern logical lsame_(char *, char *, ftnlen, ftnlen); in cgebak_()
111 rightv = lsame_(side, "R", (ftnlen)1, (ftnlen)1); in cgebak_()
112 leftv = lsame_(side, "L", (ftnlen)1, (ftnlen)1); in cgebak_()
115 if (! lsame_(job, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(job, "P", ( in cgebak_()
116 ftnlen)1, (ftnlen)1) && ! lsame_(job, "S", (ftnlen)1, (ftnlen)1) in cgebak_()
117 && ! lsame_(job, "B", (ftnlen)1, (ftnlen)1)) { in cgebak_()
146 if (lsame_(job, "N", (ftnlen)1, (ftnlen)1)) { in cgebak_()
156 if (lsame_(job, "S", (ftnlen)1, (ftnlen)1) || lsame_(job, "B", (ftnlen)1, in cgebak_()
185 if (lsame_(job, "P", (ftnlen)1, (ftnlen)1) || lsame_(job, "B", (ftnlen)1, in cgebak_()
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/double/ |
| H A D | dlasr.c | 207 if (! (lsame_(side, "L", (ftnlen)1, (ftnlen)1) || lsame_(side, "R", ( in dlasr_()
212 } else if (! (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1) || lsame_(pivot, in dlasr_()
218 } else if (! (lsame_(direct, "F", (ftnlen)1, (ftnlen)1) || lsame_(direct, in dlasr_()
252 if (lsame_(side, "L", (ftnlen)1, (ftnlen)1)) { in dlasr_()
257 if (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1)) { in dlasr_()
259 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
322 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
385 if (lsame_(direct, "F", (ftnlen)1, (ftnlen)1)) { in dlasr_()
448 } else if (lsame_(side, "R", (ftnlen)1, (ftnlen)1)) { in dlasr_()
453 if (lsame_(pivot, "V", (ftnlen)1, (ftnlen)1)) { in dlasr_()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/install/static/ |
| H A D | dlamch.c | 22 extern logical lsame_(char *, char *); in dlamch_()
99 if (lsame_(cmach, "E")) in dlamch_()
103 else if (lsame_(cmach, "S")) in dlamch_()
107 else if (lsame_(cmach, "B")) in dlamch_()
111 else if (lsame_(cmach, "P")) in dlamch_()
115 else if (lsame_(cmach, "N")) in dlamch_()
119 else if (lsame_(cmach, "R")) in dlamch_()
123 else if (lsame_(cmach, "M")) in dlamch_()
127 else if (lsame_(cmach, "U")) in dlamch_()
131 else if (lsame_(cmach, "L")) in dlamch_()
[all …]
|
| H A D | slamch.c | 22 extern logical lsame_(char *, char *); in slamch_()
99 if (lsame_(cmach, "E")) in slamch_()
103 else if (lsame_(cmach, "S")) in slamch_()
107 else if (lsame_(cmach, "B")) in slamch_()
111 else if (lsame_(cmach, "P")) in slamch_()
115 else if (lsame_(cmach, "N")) in slamch_()
119 else if (lsame_(cmach, "R")) in slamch_()
123 else if (lsame_(cmach, "M")) in slamch_()
127 else if (lsame_(cmach, "U")) in slamch_()
131 else if (lsame_(cmach, "L")) in slamch_()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/install/static/other/ |
| H A D | lsametst.c | 97 if (! lsame_("A", "A")) in MAIN__()
104 if (! lsame_("A", "a")) in MAIN__()
111 if (! lsame_("a", "A")) in MAIN__()
125 if (lsame_("A", "B")) in MAIN__()
132 if (lsame_("A", "b")) in MAIN__()
139 if (lsame_("a", "B")) in MAIN__()
146 if (lsame_("a", "b")) in MAIN__()
153 if (lsame_("O", "/")) in MAIN__()
160 if (lsame_("/", "O")) in MAIN__()
167 if (lsame_("o", "/")) in MAIN__()
[all …]
|
| /dports/science/siconos/siconos-4.4.0/externals/netlib/dctemplates/ |
| H A D | PSolve.c | 59 extern logical lsame_();
80 if(lsame_(forms_1.curpform, "IDENT", 5L, 5L))
84 else if(lsame_(forms_1.curpform, "JACBI", 5L, 5L))
114 extern logical lsame_();
127 if(lsame_(forms_1.curpform, "IDENT", 5L, 5L))
335 extern logical lsame_();
348 if(lsame_(forms_1.curpform, "IDENT", 5L, 5L))
354 if(lsame_(which, "LEFT", 4L, 4L))
390 extern logical lsame_();
403 if(lsame_(forms_1.curpform, "IDENT", 5L, 5L))
[all …]
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
| H A D | zgebak.c | 30 extern logical lsame_(const char *, const char *, ftnlen, ftnlen); in zgebak_()
136 rightv = lsame_(side, "R", (ftnlen)1, (ftnlen)1); in zgebak_()
138 leftv = lsame_(side, "L", (ftnlen)1, (ftnlen)1); in zgebak_()
143 if (! lsame_(job, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(job, "P", ( in zgebak_()
144 ftnlen)1, (ftnlen)1) && ! lsame_(job, "S", (ftnlen)1, (ftnlen)1) in zgebak_()
145 && ! lsame_(job, "B", (ftnlen)1, (ftnlen)1)) { in zgebak_()
195 if (lsame_(job, "N", (ftnlen)1, (ftnlen)1)) { in zgebak_()
207 if (lsame_(job, "S", (ftnlen)1, (ftnlen)1) || lsame_(job, "B", (ftnlen)1, in zgebak_()
251 if (lsame_(job, "P", (ftnlen)1, (ftnlen)1) || lsame_(job, "B", (ftnlen)1, in zgebak_()
|