853       CHARACTER*14       CUPLO  local
923                   CUPLO = '    CblasUpper'
925                   CUPLO = '    CblasLower'
993      $                           CUPLO, N, ALPHA, LDA, INCX, BETA, INCY
1001      $                           CUPLO, N, K, ALPHA, LDA, INCX, BETA,
1011      $                           CUPLO, N, ALPHA, INCX, BETA, INCY
1134          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA, INCX,
1137          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1140          WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, N, ALPHA, INCX,
1209       CHARACTER*14       CUPLO,CTRANS,CDIAG  local
1285                   CUPLO = '    CblasUpper'
1287                   CUPLO = '    CblasLower'
1353      $                           CUPLO, CTRANS, CDIAG, N, LDA, INCX
1361      $                           CUPLO, CTRANS, CDIAG, N, K, LDA, INCX
1369      $                           CUPLO, CTRANS, CDIAG, N, INCX
1379      $                           CUPLO, CTRANS, CDIAG, N, LDA, INCX
1387      $                           CUPLO, CTRANS, CDIAG, N, K, LDA, INCX
1395      $                           CUPLO, CTRANS, CDIAG, N, INCX
1522          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1525          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, CTRANS, CDIAG, N, K,
1528          WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1870       CHARACTER*14       CUPLO  local
1921                CUPLO = '    CblasUpper'
1923                CUPLO = '    CblasLower'
1971      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
1979      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2096          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX, LDA
2098          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX
2167       CHARACTER*14       CUPLO  local
2218                CUPLO = '    CblasUpper'
2220                CUPLO = '    CblasLower'
2287      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
2295      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2427          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX,
2430          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX, INCY