Home
last modified time | relevance | path

Searched refs:ftnlen (Results 1 – 14 of 14) sorted by relevance

/external/eigen/blas/f2c/
Dstbmv.c16 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 …]
Ddtbmv.c17 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 …]
Ddspmv.c17 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_()
Dsspmv.c16 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_()
Dssbmv.c17 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_()
Ddsbmv.c17 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_()
Dztbmv.c17 *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 …]
Dctbmv.c17 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 …]
Dchpmv.c17 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_()
Dzhpmv.c17 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_()
Dchbmv.c17 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_()
Dzhbmv.c17 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_()
Dlsame.c15 logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len) in lsame_()
Ddatatypes.h14 typedef int ftnlen; typedef