Lines Matching defs:TRANSA
67 CHARACTER*1 TRANSA, TRANSB
218 TRANSA = 'N'
220 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
225 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
229 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
234 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
245 TRANSA = 'C'
247 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
252 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
256 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
261 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
352 $ 'ATED WRONGLY.', /' CMMCH WAS CALLED WITH TRANSA = ', A1,
405 CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB
449 TRANSA = ICH( ICA: ICA )
450 TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
514 TRANAS = TRANSA
538 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
542 CALL CGEMM( TRANSA, TRANSB, M, N, K, ALPHA,
555 ISAME( 1 ) = TRANSA.EQ.TRANAS
592 CALL CMMCH( TRANSA, TRANSB, M, N, K,
628 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
968 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1037 TRANSA = ICHT( ICT: ICT )
1062 TRANAS = TRANSA
1081 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1085 CALL CTRMM( SIDE, UPLO, TRANSA, DIAG, M,
1090 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1094 CALL CTRSM( SIDE, UPLO, TRANSA, DIAG, M,
1110 ISAME( 3 ) = TRANAS.EQ.TRANSA
1145 CALL CMMCH( TRANSA, 'N', M, N, M,
1151 CALL CMMCH( 'N', TRANSA, M, N, N,
1172 CALL CMMCH( TRANSA, 'N', M, N, M,
1178 CALL CMMCH( 'N', TRANSA, M, N, N,
1217 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
2999 SUBROUTINE CMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
3023 CHARACTER*1 TRANSA, TRANSB
3040 TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
3042 CTRANA = TRANSA.EQ.'C'