Lines Matching refs:ftnlen
17 beta, complex *y, integer *incy, ftnlen uplo_len)
30 extern logical lsame_(char *, char *, ftnlen, ftnlen);
32 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
186 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
187 ftnlen)1, (ftnlen)1)) {
201 xerbla_("CHBMV ", &info, (ftnlen)6);
279 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) {
