Lines Matching refs:ftnlen
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_()
195 "N", (ftnlen)1, (ftnlen)1)) { in stbmv_()
207 xerbla_("STBMV ", &info, (ftnlen)6); in stbmv_()
217 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1); in stbmv_()
231 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) { in stbmv_()
235 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in stbmv_()
334 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in stbmv_()