| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/blas/ |
| H A D | dtrmv.c | 29 extern logical lsame_(const char *, const char *, ftnlen, ftnlen); in dtrmv_()
163 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", ( in dtrmv_()
168 } else if (! lsame_(trans, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, in dtrmv_()
169 "T", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, "C", (ftnlen)1, ( in dtrmv_()
174 } else if (! lsame_(diag, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(diag, in dtrmv_()
209 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1); in dtrmv_()
229 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) { in dtrmv_()
234 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dtrmv_()
369 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dtrmv_()
|
| H A D | dtrsv.c | 29 extern logical lsame_(const char *, const char *, ftnlen, ftnlen); in dtrsv_()
166 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", ( in dtrsv_()
171 } else if (! lsame_(trans, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, in dtrsv_()
172 "T", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, "C", (ftnlen)1, ( in dtrsv_()
177 } else if (! lsame_(diag, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(diag, in dtrsv_()
212 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1); in dtrsv_()
232 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) { in dtrsv_()
237 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dtrsv_()
368 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dtrsv_()
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CBLAS/ |
| H A D | dtpmv.c | 25 extern logical lsame_(char *, char *); in dtpmv_()
139 if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) { in dtpmv_()
141 } else if (! lsame_(trans, "N") && ! lsame_(trans, in dtpmv_()
142 "T") && ! lsame_(trans, "C")) { in dtpmv_()
144 } else if (! lsame_(diag, "U") && ! lsame_(diag, in dtpmv_()
163 nounit = lsame_(diag, "N"); in dtpmv_()
177 if (lsame_(trans, "N")) { in dtpmv_()
181 if (lsame_(uplo, "U")) { in dtpmv_()
271 if (lsame_(uplo, "U")) { in dtpmv_()
|
| H A D | stpmv.c | 25 extern logical lsame_(char *, char *); in stpmv_()
139 if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) { in stpmv_()
141 } else if (! lsame_(trans, "N") && ! lsame_(trans, in stpmv_()
142 "T") && ! lsame_(trans, "C")) { in stpmv_()
144 } else if (! lsame_(diag, "U") && ! lsame_(diag, in stpmv_()
163 nounit = lsame_(diag, "N"); in stpmv_()
177 if (lsame_(trans, "N")) { in stpmv_()
181 if (lsame_(uplo, "U")) { in stpmv_()
271 if (lsame_(uplo, "U")) { in stpmv_()
|
| H A D | stpsv.c | 25 extern logical lsame_(char *, char *); in stpsv_()
142 if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) { in stpsv_()
144 } else if (! lsame_(trans, "N") && ! lsame_(trans, in stpsv_()
145 "T") && ! lsame_(trans, "C")) { in stpsv_()
147 } else if (! lsame_(diag, "U") && ! lsame_(diag, in stpsv_()
166 nounit = lsame_(diag, "N"); in stpsv_()
180 if (lsame_(trans, "N")) { in stpsv_()
184 if (lsame_(uplo, "U")) { in stpsv_()
272 if (lsame_(uplo, "U")) { in stpsv_()
|
| H A D | dtpsv.c | 25 extern logical lsame_(char *, char *); in dtpsv_()
142 if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) { in dtpsv_()
144 } else if (! lsame_(trans, "N") && ! lsame_(trans, in dtpsv_()
145 "T") && ! lsame_(trans, "C")) { in dtpsv_()
147 } else if (! lsame_(diag, "U") && ! lsame_(diag, in dtpsv_()
166 nounit = lsame_(diag, "N"); in dtpsv_()
180 if (lsame_(trans, "N")) { in dtpsv_()
184 if (lsame_(uplo, "U")) { in dtpsv_()
272 if (lsame_(uplo, "U")) { in dtpsv_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/check/other/ |
| H A D | FLA_ormbr.in | 11 left = lsame_(side, "L"), _applyq = lsame_(vect, "Q"), \
17 if (! _applyq && ! lsame_(vect, "P")) *info = -1; \
18 else if (! lsame_(side, "L") && ! lsame_(side, "R")) *info = -2; \
19 else if (! lsame_(trans, "N") && ! lsame_(trans, "T")) *info = -3; \
|
| H A D | FLA_trsyl.in | 13 if (! lsame_(transa, "N") && ! lsame_(transa, "T") && ! lsame_(transa, "C")) *info = -1; \
14 else if (! lsame_(transb, "N") && ! lsame_(transb, "T") && ! lsame_(transb, "C")) *info = -2; \
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slantb.c | 138 if (lsame_(diag, "U", (ftnlen)1, (ftnlen)1)) { in slantb_()
140 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slantb_()
173 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slantb_()
211 udiag = lsame_(diag, "U", (ftnlen)1, (ftnlen)1); in slantb_()
212 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slantb_()
268 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slantb_()
269 if (lsame_(diag, "U", (ftnlen)1, (ftnlen)1)) { in slantb_()
309 if (lsame_(diag, "U", (ftnlen)1, (ftnlen)1)) { in slantb_()
356 } else if (lsame_(norm, "F", (ftnlen)1, (ftnlen)1) || lsame_(norm, "E", ( in slantb_()
361 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slantb_()
[all …]
|
| H A D | dgesvx.c | 25 extern logical lsame_(char *, char *, ftnlen, ftnlen); in dgesvx_()
334 nofact = lsame_(fact, "N", (ftnlen)1, (ftnlen)1); in dgesvx_()
335 equil = lsame_(fact, "E", (ftnlen)1, (ftnlen)1); in dgesvx_()
336 notran = lsame_(trans, "N", (ftnlen)1, (ftnlen)1); in dgesvx_()
342 rowequ = lsame_(equed, "R", (ftnlen)1, (ftnlen)1) || lsame_(equed, in dgesvx_()
344 colequ = lsame_(equed, "C", (ftnlen)1, (ftnlen)1) || lsame_(equed, in dgesvx_()
352 if (! nofact && ! equil && ! lsame_(fact, "F", (ftnlen)1, (ftnlen)1)) { in dgesvx_()
355 lsame_(trans, "C", (ftnlen)1, (ftnlen)1)) { in dgesvx_()
366 || lsame_(equed, "N", (ftnlen)1, (ftnlen)1))) { in dgesvx_()
438 rowequ = lsame_(equed, "R", (ftnlen)1, (ftnlen)1) || lsame_(equed, in dgesvx_()
[all …]
|
| H A D | dlantb.c | 138 if (lsame_(diag, "U", (ftnlen)1, (ftnlen)1)) { in dlantb_()
140 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlantb_()
173 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlantb_()
211 udiag = lsame_(diag, "U", (ftnlen)1, (ftnlen)1); in dlantb_()
212 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlantb_()
268 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlantb_()
269 if (lsame_(diag, "U", (ftnlen)1, (ftnlen)1)) { in dlantb_()
309 if (lsame_(diag, "U", (ftnlen)1, (ftnlen)1)) { in dlantb_()
356 } else if (lsame_(norm, "F", (ftnlen)1, (ftnlen)1) || lsame_(norm, "E", ( in dlantb_()
361 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlantb_()
[all …]
|
| H A D | sgesvx.c | 24 extern logical lsame_(char *, char *, ftnlen, ftnlen); in sgesvx_()
330 nofact = lsame_(fact, "N", (ftnlen)1, (ftnlen)1); in sgesvx_()
331 equil = lsame_(fact, "E", (ftnlen)1, (ftnlen)1); in sgesvx_()
332 notran = lsame_(trans, "N", (ftnlen)1, (ftnlen)1); in sgesvx_()
338 rowequ = lsame_(equed, "R", (ftnlen)1, (ftnlen)1) || lsame_(equed, in sgesvx_()
340 colequ = lsame_(equed, "C", (ftnlen)1, (ftnlen)1) || lsame_(equed, in sgesvx_()
348 if (! nofact && ! equil && ! lsame_(fact, "F", (ftnlen)1, (ftnlen)1)) { in sgesvx_()
351 lsame_(trans, "C", (ftnlen)1, (ftnlen)1)) { in sgesvx_()
362 || lsame_(equed, "N", (ftnlen)1, (ftnlen)1))) { in sgesvx_()
434 rowequ = lsame_(equed, "R", (ftnlen)1, (ftnlen)1) || lsame_(equed, in sgesvx_()
[all …]
|
| H A D | dlansp.c | 25 extern logical lsame_(char *, char *, ftnlen, ftnlen); in dlansp_()
115 } else if (lsame_(norm, "M", (ftnlen)1, (ftnlen)1)) { in dlansp_()
120 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlansp_()
149 } else if (lsame_(norm, "I", (ftnlen)1, (ftnlen)1) || lsame_(norm, "O", ( in dlansp_()
156 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlansp_()
201 } else if (lsame_(norm, "F", (ftnlen)1, (ftnlen)1) || lsame_(norm, "E", ( in dlansp_()
209 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlansp_()
243 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dlansp_()
|
| H A D | slansp.c | 25 extern logical lsame_(char *, char *, ftnlen, ftnlen); in slansp_()
115 } else if (lsame_(norm, "M", (ftnlen)1, (ftnlen)1)) { in slansp_()
120 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slansp_()
149 } else if (lsame_(norm, "I", (ftnlen)1, (ftnlen)1) || lsame_(norm, "O", ( in slansp_()
156 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slansp_()
201 } else if (lsame_(norm, "F", (ftnlen)1, (ftnlen)1) || lsame_(norm, "E", ( in slansp_()
209 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slansp_()
243 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in slansp_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/blas/ |
| H A D | dtpsv.c | 18 extern logical lsame_(char *, char *, ftnlen, ftnlen); in dtpsv_()
132 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", ( in dtpsv_()
135 } else if (! lsame_(trans, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, in dtpsv_()
136 "T", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, "C", (ftnlen)1, ( in dtpsv_()
139 } else if (! lsame_(diag, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(diag, in dtpsv_()
158 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1); in dtpsv_()
172 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) { in dtpsv_()
176 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dtpsv_()
264 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dtpsv_()
|
| H A D | stpsv.c | 18 extern logical lsame_(char *, char *, ftnlen, ftnlen); in stpsv_()
132 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", ( in stpsv_()
135 } else if (! lsame_(trans, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, in stpsv_()
136 "T", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, "C", (ftnlen)1, ( in stpsv_()
139 } else if (! lsame_(diag, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(diag, in stpsv_()
158 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1); in stpsv_()
172 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) { in stpsv_()
176 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in stpsv_()
264 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in stpsv_()
|
| H A D | stpmv.c | 18 extern logical lsame_(char *, char *, ftnlen, ftnlen); in stpmv_()
129 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", ( in stpmv_()
132 } else if (! lsame_(trans, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, in stpmv_()
133 "T", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, "C", (ftnlen)1, ( in stpmv_()
136 } else if (! lsame_(diag, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(diag, in stpmv_()
155 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1); in stpmv_()
169 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) { in stpmv_()
173 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in stpmv_()
263 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in stpmv_()
|
| H A D | dtpmv.c | 18 extern logical lsame_(char *, char *, ftnlen, ftnlen); in dtpmv_()
129 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", ( in dtpmv_()
132 } else if (! lsame_(trans, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, in dtpmv_()
133 "T", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, "C", (ftnlen)1, ( in dtpmv_()
136 } else if (! lsame_(diag, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(diag, in dtpmv_()
155 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1); in dtpmv_()
169 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) { in dtpmv_()
173 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dtpmv_()
263 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in dtpmv_()
|
| /dports/science/hypre/hypre-2.23.0/src/blas/ |
| H A D | dtrsm.c | 29 extern logical lsame_(const char *,const char *); in dtrsm_()
192 lside = lsame_(side, "L"); in dtrsm_()
198 nounit = lsame_(diag, "N"); in dtrsm_()
199 upper = lsame_(uplo, "U"); in dtrsm_()
202 if (! lside && ! lsame_(side, "R")) { in dtrsm_()
204 } else if (! upper && ! lsame_(uplo, "L")) { in dtrsm_()
206 } else if (! lsame_(transa, "N") && ! lsame_(transa, "T") in dtrsm_()
207 && ! lsame_(transa, "C")) { in dtrsm_()
209 } else if (! lsame_(diag, "U") && ! lsame_(diag, "N")) { in dtrsm_()
247 if (lsame_(transa, "N")) { in dtrsm_()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | slansp.c | 116 extern logical lsame_(char *, char *); in slansp_()
149 else if (lsame_(norm, "M")) in slansp_()
153 if (lsame_(uplo, "U")) in slansp_()
202 else if (lsame_(norm, "I") || lsame_(norm, "O") || *(unsigned char *)norm == '1') in slansp_()
207 if (lsame_(uplo, "U")) in slansp_()
279 else if (lsame_(norm, "F") || lsame_(norm, "E")) in slansp_()
285 if (lsame_(uplo, "U")) in slansp_()
335 if (lsame_(uplo, "U")) in slansp_()
|
| H A D | dlansp.c | 116 extern logical lsame_(char *, char *); in dlansp_()
149 else if (lsame_(norm, "M")) in dlansp_()
153 if (lsame_(uplo, "U")) in dlansp_()
202 else if (lsame_(norm, "I") || lsame_(norm, "O") || *(unsigned char *)norm == '1') in dlansp_()
207 if (lsame_(uplo, "U")) in dlansp_()
279 else if (lsame_(norm, "F") || lsame_(norm, "E")) in dlansp_()
285 if (lsame_(uplo, "U")) in dlansp_()
335 if (lsame_(uplo, "U")) in dlansp_()
|
| H A D | zlansp.c | 117 extern logical lsame_(char *, char *); in zlansp_()
150 else if (lsame_(norm, "M")) in zlansp_()
154 if (lsame_(uplo, "U")) in zlansp_()
203 else if (lsame_(norm, "I") || lsame_(norm, "O") || *(unsigned char *)norm == '1') in zlansp_()
208 if (lsame_(uplo, "U")) in zlansp_()
280 else if (lsame_(norm, "F") || lsame_(norm, "E")) in zlansp_()
286 if (lsame_(uplo, "U")) in zlansp_()
355 if (lsame_(uplo, "U")) in zlansp_()
|
| H A D | clansp.c | 117 extern logical lsame_(char *, char *); in clansp_()
150 else if (lsame_(norm, "M")) in clansp_()
154 if (lsame_(uplo, "U")) in clansp_()
203 else if (lsame_(norm, "I") || lsame_(norm, "O") || *(unsigned char *)norm == '1') in clansp_()
208 if (lsame_(uplo, "U")) in clansp_()
280 else if (lsame_(norm, "F") || lsame_(norm, "E")) in clansp_()
286 if (lsame_(uplo, "U")) in clansp_()
355 if (lsame_(uplo, "U")) in clansp_()
|
| H A D | dlansy.c | 123 extern logical lsame_(char *, char *); in dlansy_()
158 else if (lsame_(norm, "M")) in dlansy_()
162 if (lsame_(uplo, "U")) in dlansy_()
207 else if (lsame_(norm, "I") || lsame_(norm, "O") || *(unsigned char *)norm == '1') in dlansy_()
211 if (lsame_(uplo, "U")) in dlansy_()
279 else if (lsame_(norm, "F") || lsame_(norm, "E")) in dlansy_()
284 if (lsame_(uplo, "U")) in dlansy_()
|
| /dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
| H A D | dlansy.c | 33 extern logical lsame_(char *, char *); in dlansy_()
129 } else if (lsame_(norm, "M")) { in dlansy_()
134 if (lsame_(uplo, "U")) { in dlansy_()
161 } else if (lsame_(norm, "I") || lsame_(norm, "O") || *(unsigned char *)norm == '1') { in dlansy_()
166 if (lsame_(uplo, "U")) { in dlansy_()
207 } else if (lsame_(norm, "F") || lsame_(norm, "E")) { in dlansy_()
213 if (lsame_(uplo, "U")) { in dlansy_()
|