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