Lines Matching defs:TRANS
86 CHARACTER*1 TRANS
280 TRANS = 'N'
281 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
285 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
288 TRANS = 'T'
289 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
293 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
449 $ 'ATED WRONGLY.', /' CMVCH WAS CALLED WITH TRANS = ', A1,
502 CHARACTER*1 TRANS, TRANSS
579 TRANS = ICH( IC: IC )
580 IF (TRANS.EQ.'N')THEN
582 ELSE IF (TRANS.EQ.'T')THEN
587 TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
633 TRANSS = TRANS
662 CALL CCGEMV( IORDER, TRANS, M, N,
672 CALL CCGBMV( IORDER, TRANS, M, N, KL,
687 * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN
688 ISAME( 1 ) = TRANS.EQ.TRANSS
743 CALL CMVCH( TRANS, M, N, ALPHA, A,
1209 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1292 TRANS = ICHT( ICT: ICT )
1293 IF (TRANS.EQ.'N')THEN
1295 ELSE IF (TRANS.EQ.'T')THEN
1335 TRANSS = TRANS
1357 CALL CCTRMV( IORDER, UPLO, TRANS, DIAG,
1365 CALL CCTBMV( IORDER, UPLO, TRANS, DIAG,
1373 CALL CCTPMV( IORDER, UPLO, TRANS, DIAG,
1383 CALL CCTRSV( IORDER, UPLO, TRANS, DIAG,
1391 CALL CCTBSV( IORDER, UPLO, TRANS, DIAG,
1399 CALL CCTPSV( IORDER, UPLO, TRANS, DIAG,
1415 ISAME( 2 ) = TRANS.EQ.TRANSS
1469 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X,
1483 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, Z,
2451 SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2472 CHARACTER*1 TRANS
2488 TRAN = TRANS.EQ.'T'
2489 CTRAN = TRANS.EQ.'C'
