62       CHARACTER*1        TRANSA, TRANSB  variable
211       TRANSA = 'N'
213       CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
218          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
222       CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
227          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
238       TRANSA = 'T'
240       CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
245          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
249       CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
254          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
391       CHARACTER*1        TRANAS, TRANBS, TRANSA, TRANSB  local
435                   TRANSA = ICH( ICA: ICA )
436                   TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'
500                            TRANAS = TRANSA
524      $                        TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
528                            CALL SGEMM( TRANSA, TRANSB, M, N, K, ALPHA,
541                            ISAME( 1 ) = TRANSA.EQ.TRANAS
578                               CALL SMMCH( TRANSA, TRANSB, M, N, K,
614       WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
941       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1010                      TRANSA = ICHT( ICT: ICT )
1035                            TRANAS = TRANSA
1054      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1058                               CALL STRMM( SIDE, UPLO, TRANSA, DIAG, M,
1063      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1067                               CALL STRSM( SIDE, UPLO, TRANSA, DIAG, M,
1083                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1118                                     CALL SMMCH( TRANSA, 'N', M, N, M,
1124                                     CALL SMMCH( 'N', TRANSA, M, N, N,
1145                                     CALL SMMCH( TRANSA, 'N', M, N, M,
1151                                     CALL SMMCH( 'N', TRANSA, M, N, N,
1190       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
2457       SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,  argument
2478       CHARACTER*1        TRANSA, TRANSB  local
2489       TRANA = TRANSA.EQ.'T'.OR.TRANSA.EQ.'C'