Lines Matching refs:ftnlen
16 real *x, integer *incx, real *beta, real *y, integer *incy, ftnlen
25 extern logical lsame_(char *, char *, ftnlen, ftnlen);
26 extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
140 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
141 ftnlen)1, (ftnlen)1)) {
151 xerbla_("SSPMV ", &info, (ftnlen)6);
217 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) {
