490      $                   LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,  local
522       NC = 0
619                               NC = NC + 1
648      $                              WRITE( NTRA, FMT = 9994 )NC, SNAME,
658      $                              WRITE( NTRA, FMT = 9995 )NC, SNAME,
767          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
768          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
770          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
771          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
778          WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
781          WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
850      $                   N, NARGS, NC, NK, NS  local
884       NC = 0
965                            NC = NC + 1
992      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1000      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1010      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1123          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1124          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1126          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1127          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
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,
1206      $                   KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS  local
1242       NC = 0
1329                         NC = NC + 1
1352      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1360      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1368      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1378      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1386      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1394      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1511          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1512          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1514          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1515          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
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,
1596      $                   NC, ND, NS  local
1617       NC = 0
1678                      NC = NC + 1
1701      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1792          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1793          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1795          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1796          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1805       WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1867      $                   LDA, LDAS, LJ, LX, N, NARGS, NC, NS  local
1899       NC = 0
1951                   NC = NC + 1
1971      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
1979      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2082          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2083          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2085          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2086          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2096          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX, LDA
2098          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX
2164      $                   NARGS, NC, NS  local
2196       NC = 0
2263                      NC = NC + 1
2287      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
2295      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2413          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2414          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2416          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2417          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2427          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX,
2430          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX, INCY