Lines Matching refs:lsame_

29     extern logical lsame_(const char *,const char *);  in dtrsm_()
192     lside = lsame_(side, "L");  in dtrsm_()
198     nounit = lsame_(diag, "N");  in dtrsm_()
199     upper = lsame_(uplo, "U");  in dtrsm_()
202     if (! lside && ! lsame_(side, "R")) {  in dtrsm_()
204     } else if (! upper && ! lsame_(uplo, "L")) {  in dtrsm_()
206     } else if (! lsame_(transa, "N") && ! lsame_(transa, "T")   in dtrsm_()
207 	    && ! lsame_(transa, "C")) {  in dtrsm_()
209     } else if (! lsame_(diag, "U") && ! lsame_(diag, "N")) {  in dtrsm_()
247 	if (lsame_(transa, "N")) {  in dtrsm_()
335 	if (lsame_(transa, "N")) {  in dtrsm_()