Lines Matching refs:LSAME

111       LOGICAL LSAME  local
112       EXTERNAL LSAME
124       IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
126       ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
127      +         .NOT.LSAME(TRANS,'C')) THEN
129       ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
145       NOCONJ = LSAME(TRANS,'T')
146       NOUNIT = LSAME(DIAG,'N')
160       IF (LSAME(TRANS,'N')) THEN
164           IF (LSAME(UPLO,'U')) THEN
232           IF (LSAME(UPLO,'U')) THEN