62       CHARACTER*1        TRANSA, TRANSB  variable
211       TRANSA = 'N'
213       CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
218          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
222       CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
227          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
238       TRANSA = 'T'
240       CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
245          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
249       CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
254          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
391       CHARACTER*1        TRANAS, TRANBS, TRANSA, TRANSB  local
435                   TRANSA = ICH( ICA: ICA )
436                   TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
500                            TRANAS = TRANSA
524      $                        TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
528                            CALL DGEMM( TRANSA, TRANSB, M, N, K, ALPHA,
541                            ISAME( 1 ) = TRANSA.EQ.TRANAS
578                               CALL DMMCH( TRANSA, TRANSB, M, N, K,
614       WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
941       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1010                      TRANSA = ICHT( ICT: ICT )
1035                            TRANAS = TRANSA
1054      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1058                               CALL DTRMM( SIDE, UPLO, TRANSA, DIAG, M,
1063      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1067                               CALL DTRSM( SIDE, UPLO, TRANSA, DIAG, M,
1083                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1118                                     CALL DMMCH( TRANSA, 'N', M, N, M,
1124                                     CALL DMMCH( 'N', TRANSA, M, N, N,
1145                                     CALL DMMCH( TRANSA, 'N', M, N, M,
1151                                     CALL DMMCH( 'N', TRANSA, M, N, N,
1190       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
2457       SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,  argument
2478       CHARACTER*1        TRANSA, TRANSB  local
2489       TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'