68       CHARACTER*1        TRANSA, TRANSB  variable
233       TRANSA = 'N'
235       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
240          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
244       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
249          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
260       TRANSA = 'C'
262       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
267          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
271       CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
276          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
466       CHARACTER*1        TRANAS, TRANBS, TRANSA, TRANSB  local
510                   TRANSA = ICH( ICA: ICA )
511                   TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
575                            TRANAS = TRANSA
599      $                        TRANSA, TRANSB, M, N, K, ALPHA, LDA,
603                            CALL CZGEMM( IORDER, TRANSA, TRANSB, M, N,
617                            ISAME( 1 ) = TRANSA.EQ.TRANAS
654                              CALL ZMMCH( TRANSA, TRANSB, M, N, K,
692       CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
721       SUBROUTINE ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
725       CHARACTER*1      TRANSA, TRANSB  local
729       IF (TRANSA.EQ.'N')THEN
731       ELSE IF (TRANSA.EQ.'T')THEN
1116       CHARACTER*1       DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1185                      TRANSA = ICHT( ICT: ICT )
1210                            TRANAS = TRANSA
1229      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1233                               CALL CZTRMM(IORDER, SIDE, UPLO, TRANSA,
1239      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1243                               CALL CZTRSM(IORDER, SIDE, UPLO, TRANSA,
1260                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1295                                    CALL ZMMCH( TRANSA, 'N', M, N, M,
1301                                    CALL ZMMCH( 'N', TRANSA, M, N, N,
1322                                     CALL ZMMCH( TRANSA, 'N', M, N, M,
1328                                     CALL ZMMCH( 'N', TRANSA, M, N, N,
1369       CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1398       SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1402       CHARACTER*1      SIDE, UPLO, TRANSA, DIAG  local
1416       IF (TRANSA.EQ.'N')THEN
1418       ELSE IF (TRANSA.EQ.'T')THEN
1784       SUBROUTINE ZPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1788       CHARACTER*1      UPLO, TRANSA  local
1797       IF (TRANSA.EQ.'N')THEN
1799       ELSE IF (TRANSA.EQ.'T')THEN
1818       SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1822       CHARACTER*1      UPLO, TRANSA  local
1831       IF (TRANSA.EQ.'N')THEN
1833       ELSE IF (TRANSA.EQ.'T')THEN
2237       SUBROUTINE ZPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2241       CHARACTER*1      UPLO, TRANSA  local
2250       IF (TRANSA.EQ.'N')THEN
2252       ELSE IF (TRANSA.EQ.'T')THEN
2271       SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2276       CHARACTER*1      UPLO, TRANSA  local
2285       IF (TRANSA.EQ.'N')THEN
2287       ELSE IF (TRANSA.EQ.'T')THEN
2434       SUBROUTINE ZMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,  argument
2458       CHARACTER*1        TRANSA, TRANSB  local
2475       TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
2477       CTRANA = TRANSA.EQ.'C'