Lines Matching defs:TRANS
83 CHARACTER*1 TRANS
276 TRANS = 'N'
277 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
281 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
284 TRANS = 'T'
285 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
289 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
443 $ 'ATED WRONGLY.', /' SMVCH WAS CALLED WITH TRANS = ', A1,
493 CHARACTER*1 TRANS, TRANSS
570 TRANS = ICH( IC: IC )
571 IF (TRANS.EQ.'N')THEN
573 ELSE IF (TRANS.EQ.'T')THEN
578 TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
624 TRANSS = TRANS
653 CALL CSGEMV( IORDER, TRANS, M, N,
663 CALL CSGBMV( IORDER, TRANS, M, N, KL,
678 ISAME( 1 ) = TRANS.EQ.TRANSS
733 CALL SMVCH( TRANS, M, N, ALPHA, A,
1208 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1291 TRANS = ICHT( ICT: ICT )
1292 TRANS.EQ.'N')THEN
1294 ELSE IF (TRANS.EQ.'T')THEN
1334 TRANSS = TRANS
1356 CALL CSTRMV( IORDER, UPLO, TRANS, DIAG,
1364 CALL CSTBMV( IORDER, UPLO, TRANS, DIAG,
1372 CALL CSTPMV( IORDER, UPLO, TRANS, DIAG,
1382 CALL CSTRSV( IORDER, UPLO, TRANS, DIAG,
1390 CALL CSTBSV( IORDER, UPLO, TRANS, DIAG,
1398 CALL CSTPSV( IORDER, UPLO, TRANS, DIAG,
1414 ISAME( 2 ) = TRANS.EQ.TRANSS
1468 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X,
1482 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, Z,
2639 SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2657 CHARACTER*1 TRANS
2668 TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
