Lines Matching refs:LSAME

114       LOGICAL LSAME  local
115       EXTERNAL LSAME
127       IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
129       ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
130      +         .NOT.LSAME(TRANS,'C')) THEN
132       ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
148       NOCONJ = LSAME(TRANS,'T')
149       NOUNIT = LSAME(DIAG,'N')
163       IF (LSAME(TRANS,'N')) THEN
167           IF (LSAME(UPLO,'U')) THEN
234           IF (LSAME(UPLO,'U')) THEN