Lines Matching refs:LSAME
151 LOGICAL LSAME
152 EXTERNAL LSAME
164 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
166 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
167 + .NOT.LSAME(TRANS,'C')) THEN
169 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
189 NOUNIT = LSAME(DIAG,'N')
203 IF (LSAME(TRANS,'N')) THEN
207 IF (LSAME(UPLO,'U')) THEN
272 IF (LSAME(UPLO,'U')) THEN