62       CHARACTER*1        TRANSA, TRANSB  variable
226       TRANSA = 'N'
228       CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
233          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
237       CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
242          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
253       TRANSA = 'T'
255       CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
260          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
264       CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
269          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 CSGEMM( IORDER, TRANSA, TRANSB, M, N,
603                            ISAME( 1 ) = TRANSA.EQ.TRANAS
640                               CALL SMMCH( TRANSA, TRANSB, M, N, K,
678       CALL SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
709       SUBROUTINE SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
713       CHARACTER*1      TRANSA, TRANSB  local
717       IF (TRANSA.EQ.'N')THEN
719       ELSE IF (TRANSA.EQ.'T')THEN
1089       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1158                      TRANSA = ICHT( ICT: ICT )
1183                            TRANAS = TRANSA
1202      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1206                               CALL CSTRMM( IORDER, SIDE, UPLO, TRANSA,
1212      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1216                               CALL CSTRSM( IORDER, SIDE, UPLO, TRANSA,
1233                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1268                                     CALL SMMCH( TRANSA, 'N', M, N, M,
1274                                     CALL SMMCH( 'N', TRANSA, M, N, N,
1295                                     CALL SMMCH( TRANSA, 'N', M, N, M,
1301                                     CALL SMMCH( 'N', TRANSA, M, N, N,
1342       CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1370       SUBROUTINE SPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1374       CHARACTER*1      SIDE, UPLO, TRANSA, DIAG  local
1388       IF (TRANSA.EQ.'N')THEN
1390       ELSE IF (TRANSA.EQ.'T')THEN
1697       SUBROUTINE SPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1701       CHARACTER*1      UPLO, TRANSA  local
1710       IF (TRANSA.EQ.'N')THEN
1712       ELSE IF (TRANSA.EQ.'T')THEN
2053       SUBROUTINE SPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2057       CHARACTER*1      UPLO, TRANSA  local
2066       IF (TRANSA.EQ.'N')THEN
2068       ELSE IF (TRANSA.EQ.'T')THEN
2199       SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,  argument
2220       CHARACTER*1        TRANSA, TRANSB  local
2231       TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'