Lines Matching refs:ftnlen
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)) {
190 } else if (! lsame_(trans, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(trans,
191 "T", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, "C", (ftnlen)1, (
192 ftnlen)1)) {
194 } else if (! lsame_(diag, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(diag,
195 "N", (ftnlen)1, (ftnlen)1)) {
207 xerbla_("DTBMV ", &info, (ftnlen)6);
217 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1);
231 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) {
235 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) {
334 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) {
