134       CHARACTER*1        TRANS  variable
308       TRANS = 'N'
309       CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
313          WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
316       TRANS = 'T'
317       CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
321          WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
479       CHARACTER*1        TRANS, TRANSS  local
555                   TRANS = ICH( IC: IC )
556                   TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
602                               TRANSS = TRANS
627      $                              TRANS, M, N, ALPHA, LDA, INCX, BETA,
631                                  CALL ZGEMV( TRANS, M, N, ALPHA, AA,
637      $                              TRANS, M, N, KL, KU, ALPHA, LDA,
641                                  CALL ZGBMV( TRANS, M, N, KL, KU, ALPHA,
656                               ISAME( 1 ) = TRANS.EQ.TRANSS
711                                  CALL ZMVCH( TRANS, M, N, ALPHA, A,
754          WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
757          WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
1169       CHARACTER*1        DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS  local
1246                   TRANS = ICHT( ICT: ICT )
1277                         TRANSS = TRANS
1296      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1299                               CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1304      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1307                               CALL ZTBMV( UPLO, TRANS, DIAG, N, K, AA,
1312      $                           UPLO, TRANS, DIAG, N, INCX
1315                               CALL ZTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1322      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1325                               CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1330      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1333                               CALL ZTBSV( UPLO, TRANS, DIAG, N, K, AA,
1338      $                           UPLO, TRANS, DIAG, N, INCX
1341                               CALL ZTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1357                         ISAME( 2 ) = TRANS.EQ.TRANSS
1411                               CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X,
1425                               CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1463          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1466          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1469          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
2917       SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,  argument
2938       CHARACTER*1        TRANS  local
2954       TRAN = TRANS.EQ.'T'
2955       CTRAN = TRANS.EQ.'C'