67       CHARACTER*1        TRANSA, TRANSB  variable
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
405       CHARACTER*1        TRANAS, TRANBS, TRANSA, TRANSB  local
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,  local
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,  argument
3023       CHARACTER*1        TRANSA, TRANSB  local
3040       TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
3042       CTRANA = TRANSA.EQ.'C'