474      $                   LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,  local
505       NC = 0
595                               NC = NC + 1
624      $                              WRITE( NTRA, FMT = 9994 )NC, SNAME,
634      $                              WRITE( NTRA, FMT = 9995 )NC, SNAME,
743          WRITE( NOUT, FMT = 9999 )SNAME, NC
745          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
752          WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
755          WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
819      $                   N, NARGS, NC, NK, NS  local
852       NC = 0
928                            NC = NC + 1
955      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
963      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
972      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1085          WRITE( NOUT, FMT = 9999 )SNAME, NC
1087          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1094          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1097          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1100          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1163      $                   KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS  local
1198       NC = 0
1268                         NC = NC + 1
1291      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1299      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1307      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1317      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1325      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1333      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1450          WRITE( NOUT, FMT = 9999 )SNAME, NC
1452          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1459          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1462          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1465          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1528      $                   NC, ND, NS  local
1550       NC = 0
1611                      NC = NC + 1
1634      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1734          WRITE( NOUT, FMT = 9999 )SNAME, NC
1736          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1745       WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1804      $                   LDA, LDAS, LJ, LX, N, NARGS, NC, NS  local
1835       NC = 0
1883                   NC = NC + 1
1903      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1910      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2013          WRITE( NOUT, FMT = 9999 )SNAME, NC
2015          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2025          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2027          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2089      $                   NARGS, NC, NS  local
2120       NC = 0
2182                      NC = NC + 1
2206      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2214      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2332          WRITE( NOUT, FMT = 9999 )SNAME, NC
2334          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2344          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2347          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY