Lines Matching refs:lsame_
29 extern logical lsame_(char *, char *, ftnlen, ftnlen);
191 if (! lsame_(uplo, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(uplo, "L", (
194 } else if (! lsame_(trans, "N", (ftnlen)1, (ftnlen)1) && ! lsame_(trans,
195 "T", (ftnlen)1, (ftnlen)1) && ! lsame_(trans, "C", (ftnlen)1, (
198 } else if (! lsame_(diag, "U", (ftnlen)1, (ftnlen)1) && ! lsame_(diag,
221 noconj = lsame_(trans, "T", (ftnlen)1, (ftnlen)1);
222 nounit = lsame_(diag, "N", (ftnlen)1, (ftnlen)1);
236 if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) {
240 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) {
403 if (lsame_(uplo, "U", (ftnlen)1, (ftnlen)1)) {
