62       CHARACTER*1        TRANSA, TRANSB  variable
227       TRANSA = 'N'
229       CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
234          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
238       CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
243          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
254       TRANSA = 'T'
256       CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
261          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
265       CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
270          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
452       CHARACTER*1        TRANAS, TRANBS, TRANSA, TRANSB  local
496                   TRANSA = ICH( ICA: ICA )
497                   TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
561                            TRANAS = TRANSA
585      $                        TRANSA, TRANSB, M, N, K, ALPHA, LDA,
589                            CALL CDGEMM( IORDER, TRANSA, TRANSB, M, N,
603                            ISAME( 1 ) = TRANSA.EQ.TRANAS
640                               CALL DMMCH( TRANSA, TRANSB, M, N, K,
678       CALL DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
706       SUBROUTINE DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
710       CHARACTER*1      TRANSA, TRANSB  local
714       IF (TRANSA.EQ.'N')THEN
716       ELSE IF (TRANSA.EQ.'T')THEN
1085       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1154                      TRANSA = ICHT( ICT: ICT )
1179                            TRANAS = TRANSA
1198      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1202                               CALL CDTRMM( IORDER, SIDE, UPLO, TRANSA,
1208      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1212                               CALL CDTRSM( IORDER, SIDE, UPLO, TRANSA,
1229                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1264                                     CALL DMMCH( TRANSA, 'N', M, N, M,
1270                                     CALL DMMCH( 'N', TRANSA, M, N, N,
1291                                     CALL DMMCH( TRANSA, 'N', M, N, M,
1297                                     CALL DMMCH( 'N', TRANSA, M, N, N,
1338       CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1366       SUBROUTINE DPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1370       CHARACTER*1      SIDE, UPLO, TRANSA, DIAG  local
1384       IF (TRANSA.EQ.'N')THEN
1386       ELSE IF (TRANSA.EQ.'T')THEN
1692       SUBROUTINE DPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1696       CHARACTER*1      UPLO, TRANSA  local
1705       IF (TRANSA.EQ.'N')THEN
1707       ELSE IF (TRANSA.EQ.'T')THEN
2049       SUBROUTINE DPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2053       CHARACTER*1      UPLO, TRANSA  local
2062       IF (TRANSA.EQ.'N')THEN
2064       ELSE IF (TRANSA.EQ.'T')THEN
2195       SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,  argument
2216       CHARACTER*1        TRANSA, TRANSB  local
2227       TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'