130       CHARACTER*1        TRANS  variable
302       TRANS = 'N'
303       CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
307          WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
310       TRANS = 'T'
311       CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
315          WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
467       CHARACTER*1        TRANS, TRANSS  local
543                   TRANS = ICH( IC: IC )
544                   TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
590                               TRANSS = TRANS
615      $                              TRANS, M, N, ALPHA, LDA, INCX, BETA,
619                                  CALL SGEMV( TRANS, M, N, ALPHA, AA,
625      $                              TRANS, M, N, KL, KU, ALPHA, LDA,
629                                  CALL SGBMV( TRANS, M, N, KL, KU, ALPHA,
644                               ISAME( 1 ) = TRANS.EQ.TRANSS
699                                  CALL SMVCH( TRANS, M, N, ALPHA, A,
742          WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
745          WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
1145       CHARACTER*1        DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS  local
1222                   TRANS = ICHT( ICT: ICT )
1253                         TRANSS = TRANS
1272      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1275                               CALL STRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1280      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1283                               CALL STBMV( UPLO, TRANS, DIAG, N, K, AA,
1288      $                           UPLO, TRANS, DIAG, N, INCX
1291                               CALL STPMV( UPLO, TRANS, DIAG, N, AA, XX,
1298      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1301                               CALL STRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1306      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1309                               CALL STBSV( UPLO, TRANS, DIAG, N, K, AA,
1314      $                           UPLO, TRANS, DIAG, N, INCX
1317                               CALL STPSV( UPLO, TRANS, DIAG, N, AA, XX,
1333                         ISAME( 2 ) = TRANS.EQ.TRANSS
1387                               CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X,
1401                               CALL SMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1439          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1442          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1445          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
2827       SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,  argument
2845       CHARACTER*1        TRANS  local
2856       TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'