68       CHARACTER*1        TRANSA, TRANSB  variable
219       TRANSA = 'N'
221       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
226          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
230       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
235          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
246       TRANSA = 'C'
248       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
253          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
257       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
262          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
406       CHARACTER*1        TRANAS, TRANBS, TRANSA, TRANSB  local
450                   TRANSA = ICH( ICA: ICA )
451                   TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
515                            TRANAS = TRANSA
539      $                        TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
543                            CALL ZGEMM( TRANSA, TRANSB, M, N, K, ALPHA,
556                            ISAME( 1 ) = TRANSA.EQ.TRANAS
593                               CALL ZMMCH( TRANSA, TRANSB, M, N, K,
629       WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
970       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1039                      TRANSA = ICHT( ICT: ICT )
1064                            TRANAS = TRANSA
1083      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1087                               CALL ZTRMM( SIDE, UPLO, TRANSA, DIAG, M,
1092      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1096                               CALL ZTRSM( SIDE, UPLO, TRANSA, DIAG, M,
1112                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1147                                     CALL ZMMCH( TRANSA, 'N', M, N, M,
1153                                     CALL ZMMCH( 'N', TRANSA, M, N, N,
1174                                     CALL ZMMCH( TRANSA, 'N', M, N, M,
1180                                     CALL ZMMCH( 'N', TRANSA, M, N, N,
1219       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
3003       SUBROUTINE ZMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,  argument
3027       CHARACTER*1        TRANSA, TRANSB  local
3044       TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
3046       CTRANA = TRANSA.EQ.'C'