| /external/eigen/blas/f2c/ |
| dtbmv.c | 17 ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
25 extern logical lsame_(char *, char *, ftnlen, ftnlen);
27 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
187 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
188 ftnlen)1, (ftnlen)1))
[all...] |
| stbmv.c | 16 integer *k, real *a, integer *lda, real *x, integer *incx, ftnlen
17 uplo_len, ftnlen trans_len, ftnlen diag_len)
25 extern logical lsame_(char *, char *, ftnlen, ftnlen);
27 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
187 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
188 ftnlen)1, (ftnlen)1))
[all...] |
| lsame.c | 15 logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len)
|
| dsbmv.c | 17 doublereal *beta, doublereal *y, integer *incy, ftnlen uplo_len)
25 extern logical lsame_(char *, char *, ftnlen, ftnlen);
27 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
177 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
178 ftnlen)1, (ftnlen)1)) {
192 xerbla_("DSBMV ", &info, (ftnlen)6);
257 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1))
[all...] |
| dspmv.c | 17 doublereal *y, integer *incy, ftnlen uplo_len)
25 extern logical lsame_(char *, char *, ftnlen, ftnlen);
26 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
140 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
141 ftnlen)1, (ftnlen)1)) {
151 xerbla_("DSPMV ", &info, (ftnlen)6);
217 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1))
[all...] |
| ssbmv.c | 17 integer *incy, ftnlen uplo_len)
25 extern logical lsame_(char *, char *, ftnlen, ftnlen);
27 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
179 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
180 ftnlen)1, (ftnlen)1)) {
194 xerbla_("SSBMV ", &info, (ftnlen)6);
259 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1))
[all...] |
| sspmv.c | 16 real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen
25 extern logical lsame_(char *, char *, ftnlen, ftnlen);
26 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
140 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
141 ftnlen)1, (ftnlen)1)) {
151 xerbla_("SSPMV ", &info, (ftnlen)6);
217 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1))
[all...] |
| datatypes.h | 14 typedef int ftnlen; typedef
|
| ctbmv.c | 17 ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
29 extern logical lsame_(char *, char *, ftnlen, ftnlen);
31 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
191 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
192 ftnlen)1, (ftnlen)1))
[all...] |
| ztbmv.c | 17 *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
29 extern logical lsame_(char *, char *, ftnlen, ftnlen);
31 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
191 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
192 ftnlen)1, (ftnlen)1))
[all...] |
| chpmv.c | 17 incy, ftnlen uplo_len)
30 extern logical lsame_(char *, char *, ftnlen, ftnlen);
31 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
149 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
150 ftnlen)1, (ftnlen)1)) {
160 xerbla_("CHPMV ", &info, (ftnlen)6);
239 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1))
[all...] |
| zhpmv.c | 17 beta, doublecomplex *y, integer *incy, ftnlen uplo_len)
30 extern logical lsame_(char *, char *, ftnlen, ftnlen);
31 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
149 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
150 ftnlen)1, (ftnlen)1)) {
160 xerbla_("ZHPMV ", &info, (ftnlen)6);
239 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1))
[all...] |
| chbmv.c | 17 beta, complex *y, integer *incy, ftnlen uplo_len)
30 extern logical lsame_(char *, char *, ftnlen, ftnlen);
32 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
186 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
187 ftnlen)1, (ftnlen)1)) {
201 xerbla_("CHBMV ", &info, (ftnlen)6);
279 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1))
[all...] |
| zhbmv.c | 17 incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen
31 extern logical lsame_(char *, char *, ftnlen, ftnlen);
33 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
187 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
188 ftnlen)1, (ftnlen)1)) {
202 xerbla_("ZHBMV ", &info, (ftnlen)6);
280 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1))
[all...] |
