464      $                   LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,  local
495       NC = 0
585                               NC = NC + 1
614      $                              WRITE( NTRA, FMT = 9994 )NC, SNAME,
624      $                              WRITE( NTRA, FMT = 9995 )NC, SNAME,
733          WRITE( NOUT, FMT = 9999 )SNAME, NC
735          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
742          WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
745          WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
805      $                   N, NARGS, NC, NK, NS  local
838       NC = 0
914                            NC = NC + 1
941      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
949      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
958      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1071          WRITE( NOUT, FMT = 9999 )SNAME, NC
1073          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1080          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1083          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1086          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1143      $                   KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS  local
1178       NC = 0
1248                         NC = NC + 1
1271      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1279      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1287      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1297      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1305      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1313      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1430          WRITE( NOUT, FMT = 9999 )SNAME, NC
1432          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
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
1503      $                   NC, ND, NS  local
1524       NC = 0
1585                      NC = NC + 1
1608      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1699          WRITE( NOUT, FMT = 9999 )SNAME, NC
1701          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1710       WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1763      $                   LDA, LDAS, LJ, LX, N, NARGS, NC, NS  local
1794       NC = 0
1841                   NC = NC + 1
1861      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1868      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1971          WRITE( NOUT, FMT = 9999 )SNAME, NC
1973          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1983          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX, LDA
1985          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX
2042      $                   NARGS, NC, NS  local
2073       NC = 0
2135                      NC = NC + 1
2159      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2167      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2285          WRITE( NOUT, FMT = 9999 )SNAME, NC
2287          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2297          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2300          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY