Lines Matching defs:TRANS
84 CHARACTER*1 TRANS
263 TRANS = 'N'
264 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
268 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
271 TRANS = 'T'
272 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
276 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
378 $ 'ATED WRONGLY.', /' SMVCH WAS CALLED WITH TRANS = ', A1,
428 CHARACTER*1 TRANS, TRANSS
504 TRANS = ICH( IC: IC )
505 TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
551 TRANSS = TRANS
576 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
580 CALL SGEMV( TRANS, M, N, ALPHA, AA,
586 $ TRANS, M, N, KL, KU, ALPHA, LDA,
590 CALL SGBMV( TRANS, M, N, KL, KU, ALPHA,
605 ISAME( 1 ) = TRANS.EQ.TRANSS
660 CALL SMVCH( TRANS, M, N, ALPHA, A,
703 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
706 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
1106 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1183 TRANS = ICHT( ICT: ICT )
1214 TRANSS = TRANS
1233 $ UPLO, TRANS, DIAG, N, LDA, INCX
1236 CALL STRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1241 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1244 CALL STBMV( UPLO, TRANS, DIAG, N, K, AA,
1249 $ UPLO, TRANS, DIAG, N, INCX
1252 CALL STPMV( UPLO, TRANS, DIAG, N, AA, XX,
1259 $ UPLO, TRANS, DIAG, N, LDA, INCX
1262 CALL STRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1267 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1270 CALL STBSV( UPLO, TRANS, DIAG, N, K, AA,
1275 $ UPLO, TRANS, DIAG, N, INCX
1278 CALL STPSV( UPLO, TRANS, DIAG, N, AA, XX,
1294 ISAME( 2 ) = TRANS.EQ.TRANSS
1348 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X,
1362 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1400 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1403 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1406 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
2788 SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2806 CHARACTER*1 TRANS
2817 TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'