Lines Matching refs:ftnlen
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_()
211 xerbla_("ZTBMV ", &info, (ftnlen)6); in ztbmv_()
221 noconj = lsame_(trans, "T", (ftnlen)1, (ftnlen)1); in ztbmv_()
222 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1); in ztbmv_()
236 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) { in ztbmv_()
240 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in ztbmv_()
403 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) { in ztbmv_()