htswanalysis/MACS/lib/gsl/gsl-1.11/cblas/test_trmv.c

   1 #include <gsl/gsl_test.h>
   2 #include <gsl/gsl_ieee_utils.h>
   3 #include <gsl/gsl_math.h>
   4 #include <gsl/gsl_cblas.h>
   5
   6 #include "tests.h"
   7
   8 void
   9 test_trmv (void) {
  10 const double flteps = 1e-4, dbleps = 1e-6;
  11   {
  12    int order = 101;
  13    int trans = 111;
  14    int uplo = 121;
  15    int diag = 131;
  16    int N = 1;
  17    int lda = 1;
  18    float A[] = { 0.987f };
  19    float X[] = { -0.138f };
  20    int incX = -1;
  21    float x_expected[] = { -0.136206f };
  22    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  23    {
  24      int i;
  25      for (i = 0; i < 1; i++) {
  26        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 814)");
  27      }
  28    };
  29   };
  30
  31
  32   {
  33    int order = 101;
  34    int trans = 111;
  35    int uplo = 121;
  36    int diag = 132;
  37    int N = 1;
  38    int lda = 1;
  39    float A[] = { 0.987f };
  40    float X[] = { -0.138f };
  41    int incX = -1;
  42    float x_expected[] = { -0.138f };
  43    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  44    {
  45      int i;
  46      for (i = 0; i < 1; i++) {
  47        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 815)");
  48      }
  49    };
  50   };
  51
  52
  53   {
  54    int order = 101;
  55    int trans = 111;
  56    int uplo = 122;
  57    int diag = 131;
  58    int N = 1;
  59    int lda = 1;
  60    float A[] = { 0.987f };
  61    float X[] = { -0.138f };
  62    int incX = -1;
  63    float x_expected[] = { -0.136206f };
  64    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  65    {
  66      int i;
  67      for (i = 0; i < 1; i++) {
  68        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 816)");
  69      }
  70    };
  71   };
  72
  73
  74   {
  75    int order = 101;
  76    int trans = 111;
  77    int uplo = 122;
  78    int diag = 132;
  79    int N = 1;
  80    int lda = 1;
  81    float A[] = { 0.987f };
  82    float X[] = { -0.138f };
  83    int incX = -1;
  84    float x_expected[] = { -0.138f };
  85    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  86    {
  87      int i;
  88      for (i = 0; i < 1; i++) {
  89        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 817)");
  90      }
  91    };
  92   };
  93
  94
  95   {
  96    int order = 102;
  97    int trans = 111;
  98    int uplo = 121;
  99    int diag = 131;
 100    int N = 1;
 101    int lda = 1;
 102    float A[] = { 0.987f };
 103    float X[] = { -0.138f };
 104    int incX = -1;
 105    float x_expected[] = { -0.136206f };
 106    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 107    {
 108      int i;
 109      for (i = 0; i < 1; i++) {
 110        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 818)");
 111      }
 112    };
 113   };
 114
 115
 116   {
 117    int order = 102;
 118    int trans = 111;
 119    int uplo = 121;
 120    int diag = 132;
 121    int N = 1;
 122    int lda = 1;
 123    float A[] = { 0.987f };
 124    float X[] = { -0.138f };
 125    int incX = -1;
 126    float x_expected[] = { -0.138f };
 127    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 128    {
 129      int i;
 130      for (i = 0; i < 1; i++) {
 131        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 819)");
 132      }
 133    };
 134   };
 135
 136
 137   {
 138    int order = 102;
 139    int trans = 111;
 140    int uplo = 122;
 141    int diag = 131;
 142    int N = 1;
 143    int lda = 1;
 144    float A[] = { 0.987f };
 145    float X[] = { -0.138f };
 146    int incX = -1;
 147    float x_expected[] = { -0.136206f };
 148    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 149    {
 150      int i;
 151      for (i = 0; i < 1; i++) {
 152        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 820)");
 153      }
 154    };
 155   };
 156
 157
 158   {
 159    int order = 102;
 160    int trans = 111;
 161    int uplo = 122;
 162    int diag = 132;
 163    int N = 1;
 164    int lda = 1;
 165    float A[] = { 0.987f };
 166    float X[] = { -0.138f };
 167    int incX = -1;
 168    float x_expected[] = { -0.138f };
 169    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 170    {
 171      int i;
 172      for (i = 0; i < 1; i++) {
 173        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 821)");
 174      }
 175    };
 176   };
 177
 178
 179   {
 180    int order = 101;
 181    int trans = 112;
 182    int uplo = 121;
 183    int diag = 131;
 184    int N = 1;
 185    int lda = 1;
 186    float A[] = { -0.329f };
 187    float X[] = { 0.463f };
 188    int incX = -1;
 189    float x_expected[] = { -0.152327f };
 190    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 191    {
 192      int i;
 193      for (i = 0; i < 1; i++) {
 194        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 822)");
 195      }
 196    };
 197   };
 198
 199
 200   {
 201    int order = 101;
 202    int trans = 112;
 203    int uplo = 121;
 204    int diag = 132;
 205    int N = 1;
 206    int lda = 1;
 207    float A[] = { -0.329f };
 208    float X[] = { 0.463f };
 209    int incX = -1;
 210    float x_expected[] = { 0.463f };
 211    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 212    {
 213      int i;
 214      for (i = 0; i < 1; i++) {
 215        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 823)");
 216      }
 217    };
 218   };
 219
 220
 221   {
 222    int order = 101;
 223    int trans = 112;
 224    int uplo = 122;
 225    int diag = 131;
 226    int N = 1;
 227    int lda = 1;
 228    float A[] = { -0.329f };
 229    float X[] = { 0.463f };
 230    int incX = -1;
 231    float x_expected[] = { -0.152327f };
 232    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 233    {
 234      int i;
 235      for (i = 0; i < 1; i++) {
 236        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 824)");
 237      }
 238    };
 239   };
 240
 241
 242   {
 243    int order = 101;
 244    int trans = 112;
 245    int uplo = 122;
 246    int diag = 132;
 247    int N = 1;
 248    int lda = 1;
 249    float A[] = { -0.329f };
 250    float X[] = { 0.463f };
 251    int incX = -1;
 252    float x_expected[] = { 0.463f };
 253    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 254    {
 255      int i;
 256      for (i = 0; i < 1; i++) {
 257        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 825)");
 258      }
 259    };
 260   };
 261
 262
 263   {
 264    int order = 102;
 265    int trans = 112;
 266    int uplo = 121;
 267    int diag = 131;
 268    int N = 1;
 269    int lda = 1;
 270    float A[] = { -0.329f };
 271    float X[] = { 0.463f };
 272    int incX = -1;
 273    float x_expected[] = { -0.152327f };
 274    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 275    {
 276      int i;
 277      for (i = 0; i < 1; i++) {
 278        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 826)");
 279      }
 280    };
 281   };
 282
 283
 284   {
 285    int order = 102;
 286    int trans = 112;
 287    int uplo = 121;
 288    int diag = 132;
 289    int N = 1;
 290    int lda = 1;
 291    float A[] = { -0.329f };
 292    float X[] = { 0.463f };
 293    int incX = -1;
 294    float x_expected[] = { 0.463f };
 295    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 296    {
 297      int i;
 298      for (i = 0; i < 1; i++) {
 299        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 827)");
 300      }
 301    };
 302   };
 303
 304
 305   {
 306    int order = 102;
 307    int trans = 112;
 308    int uplo = 122;
 309    int diag = 131;
 310    int N = 1;
 311    int lda = 1;
 312    float A[] = { -0.329f };
 313    float X[] = { 0.463f };
 314    int incX = -1;
 315    float x_expected[] = { -0.152327f };
 316    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 317    {
 318      int i;
 319      for (i = 0; i < 1; i++) {
 320        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 828)");
 321      }
 322    };
 323   };
 324
 325
 326   {
 327    int order = 102;
 328    int trans = 112;
 329    int uplo = 122;
 330    int diag = 132;
 331    int N = 1;
 332    int lda = 1;
 333    float A[] = { -0.329f };
 334    float X[] = { 0.463f };
 335    int incX = -1;
 336    float x_expected[] = { 0.463f };
 337    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
 338    {
 339      int i;
 340      for (i = 0; i < 1; i++) {
 341        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 829)");
 342      }
 343    };
 344   };
 345
 346
 347   {
 348    int order = 101;
 349    int trans = 111;
 350    int uplo = 121;
 351    int diag = 131;
 352    int N = 1;
 353    int lda = 1;
 354    double A[] = { -0.429 };
 355    double X[] = { -0.899 };
 356    int incX = -1;
 357    double x_expected[] = { 0.385671 };
 358    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 359    {
 360      int i;
 361      for (i = 0; i < 1; i++) {
 362        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 830)");
 363      }
 364    };
 365   };
 366
 367
 368   {
 369    int order = 101;
 370    int trans = 111;
 371    int uplo = 121;
 372    int diag = 132;
 373    int N = 1;
 374    int lda = 1;
 375    double A[] = { -0.429 };
 376    double X[] = { -0.899 };
 377    int incX = -1;
 378    double x_expected[] = { -0.899 };
 379    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 380    {
 381      int i;
 382      for (i = 0; i < 1; i++) {
 383        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 831)");
 384      }
 385    };
 386   };
 387
 388
 389   {
 390    int order = 101;
 391    int trans = 111;
 392    int uplo = 122;
 393    int diag = 131;
 394    int N = 1;
 395    int lda = 1;
 396    double A[] = { -0.429 };
 397    double X[] = { -0.899 };
 398    int incX = -1;
 399    double x_expected[] = { 0.385671 };
 400    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 401    {
 402      int i;
 403      for (i = 0; i < 1; i++) {
 404        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 832)");
 405      }
 406    };
 407   };
 408
 409
 410   {
 411    int order = 101;
 412    int trans = 111;
 413    int uplo = 122;
 414    int diag = 132;
 415    int N = 1;
 416    int lda = 1;
 417    double A[] = { -0.429 };
 418    double X[] = { -0.899 };
 419    int incX = -1;
 420    double x_expected[] = { -0.899 };
 421    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 422    {
 423      int i;
 424      for (i = 0; i < 1; i++) {
 425        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 833)");
 426      }
 427    };
 428   };
 429
 430
 431   {
 432    int order = 102;
 433    int trans = 111;
 434    int uplo = 121;
 435    int diag = 131;
 436    int N = 1;
 437    int lda = 1;
 438    double A[] = { -0.429 };
 439    double X[] = { -0.899 };
 440    int incX = -1;
 441    double x_expected[] = { 0.385671 };
 442    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 443    {
 444      int i;
 445      for (i = 0; i < 1; i++) {
 446        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 834)");
 447      }
 448    };
 449   };
 450
 451
 452   {
 453    int order = 102;
 454    int trans = 111;
 455    int uplo = 121;
 456    int diag = 132;
 457    int N = 1;
 458    int lda = 1;
 459    double A[] = { -0.429 };
 460    double X[] = { -0.899 };
 461    int incX = -1;
 462    double x_expected[] = { -0.899 };
 463    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 464    {
 465      int i;
 466      for (i = 0; i < 1; i++) {
 467        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 835)");
 468      }
 469    };
 470   };
 471
 472
 473   {
 474    int order = 102;
 475    int trans = 111;
 476    int uplo = 122;
 477    int diag = 131;
 478    int N = 1;
 479    int lda = 1;
 480    double A[] = { -0.429 };
 481    double X[] = { -0.899 };
 482    int incX = -1;
 483    double x_expected[] = { 0.385671 };
 484    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 485    {
 486      int i;
 487      for (i = 0; i < 1; i++) {
 488        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 836)");
 489      }
 490    };
 491   };
 492
 493
 494   {
 495    int order = 102;
 496    int trans = 111;
 497    int uplo = 122;
 498    int diag = 132;
 499    int N = 1;
 500    int lda = 1;
 501    double A[] = { -0.429 };
 502    double X[] = { -0.899 };
 503    int incX = -1;
 504    double x_expected[] = { -0.899 };
 505    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 506    {
 507      int i;
 508      for (i = 0; i < 1; i++) {
 509        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 837)");
 510      }
 511    };
 512   };
 513
 514
 515   {
 516    int order = 101;
 517    int trans = 112;
 518    int uplo = 121;
 519    int diag = 131;
 520    int N = 1;
 521    int lda = 1;
 522    double A[] = { 0.842 };
 523    double X[] = { 0.192 };
 524    int incX = -1;
 525    double x_expected[] = { 0.161664 };
 526    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 527    {
 528      int i;
 529      for (i = 0; i < 1; i++) {
 530        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 838)");
 531      }
 532    };
 533   };
 534
 535
 536   {
 537    int order = 101;
 538    int trans = 112;
 539    int uplo = 121;
 540    int diag = 132;
 541    int N = 1;
 542    int lda = 1;
 543    double A[] = { 0.842 };
 544    double X[] = { 0.192 };
 545    int incX = -1;
 546    double x_expected[] = { 0.192 };
 547    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 548    {
 549      int i;
 550      for (i = 0; i < 1; i++) {
 551        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 839)");
 552      }
 553    };
 554   };
 555
 556
 557   {
 558    int order = 101;
 559    int trans = 112;
 560    int uplo = 122;
 561    int diag = 131;
 562    int N = 1;
 563    int lda = 1;
 564    double A[] = { 0.842 };
 565    double X[] = { 0.192 };
 566    int incX = -1;
 567    double x_expected[] = { 0.161664 };
 568    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 569    {
 570      int i;
 571      for (i = 0; i < 1; i++) {
 572        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 840)");
 573      }
 574    };
 575   };
 576
 577
 578   {
 579    int order = 101;
 580    int trans = 112;
 581    int uplo = 122;
 582    int diag = 132;
 583    int N = 1;
 584    int lda = 1;
 585    double A[] = { 0.842 };
 586    double X[] = { 0.192 };
 587    int incX = -1;
 588    double x_expected[] = { 0.192 };
 589    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 590    {
 591      int i;
 592      for (i = 0; i < 1; i++) {
 593        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 841)");
 594      }
 595    };
 596   };
 597
 598
 599   {
 600    int order = 102;
 601    int trans = 112;
 602    int uplo = 121;
 603    int diag = 131;
 604    int N = 1;
 605    int lda = 1;
 606    double A[] = { 0.842 };
 607    double X[] = { 0.192 };
 608    int incX = -1;
 609    double x_expected[] = { 0.161664 };
 610    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 611    {
 612      int i;
 613      for (i = 0; i < 1; i++) {
 614        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 842)");
 615      }
 616    };
 617   };
 618
 619
 620   {
 621    int order = 102;
 622    int trans = 112;
 623    int uplo = 121;
 624    int diag = 132;
 625    int N = 1;
 626    int lda = 1;
 627    double A[] = { 0.842 };
 628    double X[] = { 0.192 };
 629    int incX = -1;
 630    double x_expected[] = { 0.192 };
 631    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 632    {
 633      int i;
 634      for (i = 0; i < 1; i++) {
 635        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 843)");
 636      }
 637    };
 638   };
 639
 640
 641   {
 642    int order = 102;
 643    int trans = 112;
 644    int uplo = 122;
 645    int diag = 131;
 646    int N = 1;
 647    int lda = 1;
 648    double A[] = { 0.842 };
 649    double X[] = { 0.192 };
 650    int incX = -1;
 651    double x_expected[] = { 0.161664 };
 652    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 653    {
 654      int i;
 655      for (i = 0; i < 1; i++) {
 656        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 844)");
 657      }
 658    };
 659   };
 660
 661
 662   {
 663    int order = 102;
 664    int trans = 112;
 665    int uplo = 122;
 666    int diag = 132;
 667    int N = 1;
 668    int lda = 1;
 669    double A[] = { 0.842 };
 670    double X[] = { 0.192 };
 671    int incX = -1;
 672    double x_expected[] = { 0.192 };
 673    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 674    {
 675      int i;
 676      for (i = 0; i < 1; i++) {
 677        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 845)");
 678      }
 679    };
 680   };
 681
 682
 683   {
 684    int order = 101;
 685    int trans = 111;
 686    int uplo = 121;
 687    int diag = 131;
 688    int N = 1;
 689    int lda = 1;
 690    float A[] = { -0.162f, -0.108f };
 691    float X[] = { 0.542f, 0.461f };
 692    int incX = -1;
 693    float x_expected[] = { -0.038016f, -0.133218f };
 694    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 695    {
 696      int i;
 697      for (i = 0; i < 1; i++) {
 698        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 846) real");
 699        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 846) imag");
 700      };
 701    };
 702   };
 703
 704
 705   {
 706    int order = 101;
 707    int trans = 111;
 708    int uplo = 121;
 709    int diag = 132;
 710    int N = 1;
 711    int lda = 1;
 712    float A[] = { -0.162f, -0.108f };
 713    float X[] = { 0.542f, 0.461f };
 714    int incX = -1;
 715    float x_expected[] = { 0.542f, 0.461f };
 716    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 717    {
 718      int i;
 719      for (i = 0; i < 1; i++) {
 720        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 847) real");
 721        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 847) imag");
 722      };
 723    };
 724   };
 725
 726
 727   {
 728    int order = 101;
 729    int trans = 111;
 730    int uplo = 122;
 731    int diag = 131;
 732    int N = 1;
 733    int lda = 1;
 734    float A[] = { -0.162f, -0.108f };
 735    float X[] = { 0.542f, 0.461f };
 736    int incX = -1;
 737    float x_expected[] = { -0.038016f, -0.133218f };
 738    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 739    {
 740      int i;
 741      for (i = 0; i < 1; i++) {
 742        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 848) real");
 743        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 848) imag");
 744      };
 745    };
 746   };
 747
 748
 749   {
 750    int order = 101;
 751    int trans = 111;
 752    int uplo = 122;
 753    int diag = 132;
 754    int N = 1;
 755    int lda = 1;
 756    float A[] = { -0.162f, -0.108f };
 757    float X[] = { 0.542f, 0.461f };
 758    int incX = -1;
 759    float x_expected[] = { 0.542f, 0.461f };
 760    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 761    {
 762      int i;
 763      for (i = 0; i < 1; i++) {
 764        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 849) real");
 765        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 849) imag");
 766      };
 767    };
 768   };
 769
 770
 771   {
 772    int order = 102;
 773    int trans = 111;
 774    int uplo = 121;
 775    int diag = 131;
 776    int N = 1;
 777    int lda = 1;
 778    float A[] = { -0.162f, -0.108f };
 779    float X[] = { 0.542f, 0.461f };
 780    int incX = -1;
 781    float x_expected[] = { -0.038016f, -0.133218f };
 782    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 783    {
 784      int i;
 785      for (i = 0; i < 1; i++) {
 786        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 850) real");
 787        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 850) imag");
 788      };
 789    };
 790   };
 791
 792
 793   {
 794    int order = 102;
 795    int trans = 111;
 796    int uplo = 121;
 797    int diag = 132;
 798    int N = 1;
 799    int lda = 1;
 800    float A[] = { -0.162f, -0.108f };
 801    float X[] = { 0.542f, 0.461f };
 802    int incX = -1;
 803    float x_expected[] = { 0.542f, 0.461f };
 804    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 805    {
 806      int i;
 807      for (i = 0; i < 1; i++) {
 808        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 851) real");
 809        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 851) imag");
 810      };
 811    };
 812   };
 813
 814
 815   {
 816    int order = 102;
 817    int trans = 111;
 818    int uplo = 122;
 819    int diag = 131;
 820    int N = 1;
 821    int lda = 1;
 822    float A[] = { -0.162f, -0.108f };
 823    float X[] = { 0.542f, 0.461f };
 824    int incX = -1;
 825    float x_expected[] = { -0.038016f, -0.133218f };
 826    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 827    {
 828      int i;
 829      for (i = 0; i < 1; i++) {
 830        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 852) real");
 831        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 852) imag");
 832      };
 833    };
 834   };
 835
 836
 837   {
 838    int order = 102;
 839    int trans = 111;
 840    int uplo = 122;
 841    int diag = 132;
 842    int N = 1;
 843    int lda = 1;
 844    float A[] = { -0.162f, -0.108f };
 845    float X[] = { 0.542f, 0.461f };
 846    int incX = -1;
 847    float x_expected[] = { 0.542f, 0.461f };
 848    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 849    {
 850      int i;
 851      for (i = 0; i < 1; i++) {
 852        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 853) real");
 853        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 853) imag");
 854      };
 855    };
 856   };
 857
 858
 859   {
 860    int order = 101;
 861    int trans = 112;
 862    int uplo = 121;
 863    int diag = 131;
 864    int N = 1;
 865    int lda = 1;
 866    float A[] = { 0.547f, 0.583f };
 867    float X[] = { -0.302f, 0.434f };
 868    int incX = -1;
 869    float x_expected[] = { -0.418216f, 0.061332f };
 870    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 871    {
 872      int i;
 873      for (i = 0; i < 1; i++) {
 874        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 854) real");
 875        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 854) imag");
 876      };
 877    };
 878   };
 879
 880
 881   {
 882    int order = 101;
 883    int trans = 112;
 884    int uplo = 121;
 885    int diag = 132;
 886    int N = 1;
 887    int lda = 1;
 888    float A[] = { 0.547f, 0.583f };
 889    float X[] = { -0.302f, 0.434f };
 890    int incX = -1;
 891    float x_expected[] = { -0.302f, 0.434f };
 892    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 893    {
 894      int i;
 895      for (i = 0; i < 1; i++) {
 896        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 855) real");
 897        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 855) imag");
 898      };
 899    };
 900   };
 901
 902
 903   {
 904    int order = 101;
 905    int trans = 112;
 906    int uplo = 122;
 907    int diag = 131;
 908    int N = 1;
 909    int lda = 1;
 910    float A[] = { 0.547f, 0.583f };
 911    float X[] = { -0.302f, 0.434f };
 912    int incX = -1;
 913    float x_expected[] = { -0.418216f, 0.061332f };
 914    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 915    {
 916      int i;
 917      for (i = 0; i < 1; i++) {
 918        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 856) real");
 919        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 856) imag");
 920      };
 921    };
 922   };
 923
 924
 925   {
 926    int order = 101;
 927    int trans = 112;
 928    int uplo = 122;
 929    int diag = 132;
 930    int N = 1;
 931    int lda = 1;
 932    float A[] = { 0.547f, 0.583f };
 933    float X[] = { -0.302f, 0.434f };
 934    int incX = -1;
 935    float x_expected[] = { -0.302f, 0.434f };
 936    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 937    {
 938      int i;
 939      for (i = 0; i < 1; i++) {
 940        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 857) real");
 941        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 857) imag");
 942      };
 943    };
 944   };
 945
 946
 947   {
 948    int order = 102;
 949    int trans = 112;
 950    int uplo = 121;
 951    int diag = 131;
 952    int N = 1;
 953    int lda = 1;
 954    float A[] = { 0.547f, 0.583f };
 955    float X[] = { -0.302f, 0.434f };
 956    int incX = -1;
 957    float x_expected[] = { -0.418216f, 0.061332f };
 958    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 959    {
 960      int i;
 961      for (i = 0; i < 1; i++) {
 962        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 858) real");
 963        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 858) imag");
 964      };
 965    };
 966   };
 967
 968
 969   {
 970    int order = 102;
 971    int trans = 112;
 972    int uplo = 121;
 973    int diag = 132;
 974    int N = 1;
 975    int lda = 1;
 976    float A[] = { 0.547f, 0.583f };
 977    float X[] = { -0.302f, 0.434f };
 978    int incX = -1;
 979    float x_expected[] = { -0.302f, 0.434f };
 980    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
 981    {
 982      int i;
 983      for (i = 0; i < 1; i++) {
 984        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 859) real");
 985        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 859) imag");
 986      };
 987    };
 988   };
 989
 990
 991   {
 992    int order = 102;
 993    int trans = 112;
 994    int uplo = 122;
 995    int diag = 131;
 996    int N = 1;
 997    int lda = 1;
 998    float A[] = { 0.547f, 0.583f };
 999    float X[] = { -0.302f, 0.434f };
1000    int incX = -1;
1001    float x_expected[] = { -0.418216f, 0.061332f };
1002    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1003    {
1004      int i;
1005      for (i = 0; i < 1; i++) {
1006        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 860) real");
1007        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 860) imag");
1008      };
1009    };
1010   };
1011
1012
1013   {
1014    int order = 102;
1015    int trans = 112;
1016    int uplo = 122;
1017    int diag = 132;
1018    int N = 1;
1019    int lda = 1;
1020    float A[] = { 0.547f, 0.583f };
1021    float X[] = { -0.302f, 0.434f };
1022    int incX = -1;
1023    float x_expected[] = { -0.302f, 0.434f };
1024    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1025    {
1026      int i;
1027      for (i = 0; i < 1; i++) {
1028        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 861) real");
1029        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 861) imag");
1030      };
1031    };
1032   };
1033
1034
1035   {
1036    int order = 101;
1037    int trans = 113;
1038    int uplo = 121;
1039    int diag = 131;
1040    int N = 1;
1041    int lda = 1;
1042    float A[] = { 0.216f, 0.192f };
1043    float X[] = { -0.564f, -0.297f };
1044    int incX = -1;
1045    float x_expected[] = { -0.178848f, 0.044136f };
1046    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1047    {
1048      int i;
1049      for (i = 0; i < 1; i++) {
1050        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 862) real");
1051        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 862) imag");
1052      };
1053    };
1054   };
1055
1056
1057   {
1058    int order = 101;
1059    int trans = 113;
1060    int uplo = 121;
1061    int diag = 132;
1062    int N = 1;
1063    int lda = 1;
1064    float A[] = { 0.216f, 0.192f };
1065    float X[] = { -0.564f, -0.297f };
1066    int incX = -1;
1067    float x_expected[] = { -0.564f, -0.297f };
1068    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1069    {
1070      int i;
1071      for (i = 0; i < 1; i++) {
1072        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 863) real");
1073        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 863) imag");
1074      };
1075    };
1076   };
1077
1078
1079   {
1080    int order = 101;
1081    int trans = 113;
1082    int uplo = 122;
1083    int diag = 131;
1084    int N = 1;
1085    int lda = 1;
1086    float A[] = { 0.216f, 0.192f };
1087    float X[] = { -0.564f, -0.297f };
1088    int incX = -1;
1089    float x_expected[] = { -0.178848f, 0.044136f };
1090    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1091    {
1092      int i;
1093      for (i = 0; i < 1; i++) {
1094        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 864) real");
1095        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 864) imag");
1096      };
1097    };
1098   };
1099
1100
1101   {
1102    int order = 101;
1103    int trans = 113;
1104    int uplo = 122;
1105    int diag = 132;
1106    int N = 1;
1107    int lda = 1;
1108    float A[] = { 0.216f, 0.192f };
1109    float X[] = { -0.564f, -0.297f };
1110    int incX = -1;
1111    float x_expected[] = { -0.564f, -0.297f };
1112    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1113    {
1114      int i;
1115      for (i = 0; i < 1; i++) {
1116        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 865) real");
1117        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 865) imag");
1118      };
1119    };
1120   };
1121
1122
1123   {
1124    int order = 102;
1125    int trans = 113;
1126    int uplo = 121;
1127    int diag = 131;
1128    int N = 1;
1129    int lda = 1;
1130    float A[] = { 0.216f, 0.192f };
1131    float X[] = { -0.564f, -0.297f };
1132    int incX = -1;
1133    float x_expected[] = { -0.178848f, 0.044136f };
1134    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1135    {
1136      int i;
1137      for (i = 0; i < 1; i++) {
1138        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 866) real");
1139        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 866) imag");
1140      };
1141    };
1142   };
1143
1144
1145   {
1146    int order = 102;
1147    int trans = 113;
1148    int uplo = 121;
1149    int diag = 132;
1150    int N = 1;
1151    int lda = 1;
1152    float A[] = { 0.216f, 0.192f };
1153    float X[] = { -0.564f, -0.297f };
1154    int incX = -1;
1155    float x_expected[] = { -0.564f, -0.297f };
1156    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1157    {
1158      int i;
1159      for (i = 0; i < 1; i++) {
1160        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 867) real");
1161        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 867) imag");
1162      };
1163    };
1164   };
1165
1166
1167   {
1168    int order = 102;
1169    int trans = 113;
1170    int uplo = 122;
1171    int diag = 131;
1172    int N = 1;
1173    int lda = 1;
1174    float A[] = { 0.216f, 0.192f };
1175    float X[] = { -0.564f, -0.297f };
1176    int incX = -1;
1177    float x_expected[] = { -0.178848f, 0.044136f };
1178    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1179    {
1180      int i;
1181      for (i = 0; i < 1; i++) {
1182        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 868) real");
1183        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 868) imag");
1184      };
1185    };
1186   };
1187
1188
1189   {
1190    int order = 102;
1191    int trans = 113;
1192    int uplo = 122;
1193    int diag = 132;
1194    int N = 1;
1195    int lda = 1;
1196    float A[] = { 0.216f, 0.192f };
1197    float X[] = { -0.564f, -0.297f };
1198    int incX = -1;
1199    float x_expected[] = { -0.564f, -0.297f };
1200    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1201    {
1202      int i;
1203      for (i = 0; i < 1; i++) {
1204        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 869) real");
1205        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 869) imag");
1206      };
1207    };
1208   };
1209
1210
1211   {
1212    int order = 101;
1213    int trans = 111;
1214    int uplo = 121;
1215    int diag = 131;
1216    int N = 1;
1217    int lda = 1;
1218    double A[] = { 0.693, -0.22 };
1219    double X[] = { -0.101, 0.889 };
1220    int incX = -1;
1221    double x_expected[] = { 0.125587, 0.638297 };
1222    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1223    {
1224      int i;
1225      for (i = 0; i < 1; i++) {
1226        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 870) real");
1227        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 870) imag");
1228      };
1229    };
1230   };
1231
1232
1233   {
1234    int order = 101;
1235    int trans = 111;
1236    int uplo = 121;
1237    int diag = 132;
1238    int N = 1;
1239    int lda = 1;
1240    double A[] = { 0.693, -0.22 };
1241    double X[] = { -0.101, 0.889 };
1242    int incX = -1;
1243    double x_expected[] = { -0.101, 0.889 };
1244    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1245    {
1246      int i;
1247      for (i = 0; i < 1; i++) {
1248        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 871) real");
1249        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 871) imag");
1250      };
1251    };
1252   };
1253
1254
1255   {
1256    int order = 101;
1257    int trans = 111;
1258    int uplo = 122;
1259    int diag = 131;
1260    int N = 1;
1261    int lda = 1;
1262    double A[] = { 0.693, -0.22 };
1263    double X[] = { -0.101, 0.889 };
1264    int incX = -1;
1265    double x_expected[] = { 0.125587, 0.638297 };
1266    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1267    {
1268      int i;
1269      for (i = 0; i < 1; i++) {
1270        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 872) real");
1271        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 872) imag");
1272      };
1273    };
1274   };
1275
1276
1277   {
1278    int order = 101;
1279    int trans = 111;
1280    int uplo = 122;
1281    int diag = 132;
1282    int N = 1;
1283    int lda = 1;
1284    double A[] = { 0.693, -0.22 };
1285    double X[] = { -0.101, 0.889 };
1286    int incX = -1;
1287    double x_expected[] = { -0.101, 0.889 };
1288    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1289    {
1290      int i;
1291      for (i = 0; i < 1; i++) {
1292        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 873) real");
1293        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 873) imag");
1294      };
1295    };
1296   };
1297
1298
1299   {
1300    int order = 102;
1301    int trans = 111;
1302    int uplo = 121;
1303    int diag = 131;
1304    int N = 1;
1305    int lda = 1;
1306    double A[] = { 0.693, -0.22 };
1307    double X[] = { -0.101, 0.889 };
1308    int incX = -1;
1309    double x_expected[] = { 0.125587, 0.638297 };
1310    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1311    {
1312      int i;
1313      for (i = 0; i < 1; i++) {
1314        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 874) real");
1315        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 874) imag");
1316      };
1317    };
1318   };
1319
1320
1321   {
1322    int order = 102;
1323    int trans = 111;
1324    int uplo = 121;
1325    int diag = 132;
1326    int N = 1;
1327    int lda = 1;
1328    double A[] = { 0.693, -0.22 };
1329    double X[] = { -0.101, 0.889 };
1330    int incX = -1;
1331    double x_expected[] = { -0.101, 0.889 };
1332    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1333    {
1334      int i;
1335      for (i = 0; i < 1; i++) {
1336        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 875) real");
1337        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 875) imag");
1338      };
1339    };
1340   };
1341
1342
1343   {
1344    int order = 102;
1345    int trans = 111;
1346    int uplo = 122;
1347    int diag = 131;
1348    int N = 1;
1349    int lda = 1;
1350    double A[] = { 0.693, -0.22 };
1351    double X[] = { -0.101, 0.889 };
1352    int incX = -1;
1353    double x_expected[] = { 0.125587, 0.638297 };
1354    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1355    {
1356      int i;
1357      for (i = 0; i < 1; i++) {
1358        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 876) real");
1359        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 876) imag");
1360      };
1361    };
1362   };
1363
1364
1365   {
1366    int order = 102;
1367    int trans = 111;
1368    int uplo = 122;
1369    int diag = 132;
1370    int N = 1;
1371    int lda = 1;
1372    double A[] = { 0.693, -0.22 };
1373    double X[] = { -0.101, 0.889 };
1374    int incX = -1;
1375    double x_expected[] = { -0.101, 0.889 };
1376    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1377    {
1378      int i;
1379      for (i = 0; i < 1; i++) {
1380        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 877) real");
1381        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 877) imag");
1382      };
1383    };
1384   };
1385
1386
1387   {
1388    int order = 101;
1389    int trans = 112;
1390    int uplo = 121;
1391    int diag = 131;
1392    int N = 1;
1393    int lda = 1;
1394    double A[] = { -0.216, -0.623 };
1395    double X[] = { 0.048, 0.293 };
1396    int incX = -1;
1397    double x_expected[] = { 0.172171, -0.093192 };
1398    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1399    {
1400      int i;
1401      for (i = 0; i < 1; i++) {
1402        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 878) real");
1403        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 878) imag");
1404      };
1405    };
1406   };
1407
1408
1409   {
1410    int order = 101;
1411    int trans = 112;
1412    int uplo = 121;
1413    int diag = 132;
1414    int N = 1;
1415    int lda = 1;
1416    double A[] = { -0.216, -0.623 };
1417    double X[] = { 0.048, 0.293 };
1418    int incX = -1;
1419    double x_expected[] = { 0.048, 0.293 };
1420    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1421    {
1422      int i;
1423      for (i = 0; i < 1; i++) {
1424        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 879) real");
1425        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 879) imag");
1426      };
1427    };
1428   };
1429
1430
1431   {
1432    int order = 101;
1433    int trans = 112;
1434    int uplo = 122;
1435    int diag = 131;
1436    int N = 1;
1437    int lda = 1;
1438    double A[] = { -0.216, -0.623 };
1439    double X[] = { 0.048, 0.293 };
1440    int incX = -1;
1441    double x_expected[] = { 0.172171, -0.093192 };
1442    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1443    {
1444      int i;
1445      for (i = 0; i < 1; i++) {
1446        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 880) real");
1447        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 880) imag");
1448      };
1449    };
1450   };
1451
1452
1453   {
1454    int order = 101;
1455    int trans = 112;
1456    int uplo = 122;
1457    int diag = 132;
1458    int N = 1;
1459    int lda = 1;
1460    double A[] = { -0.216, -0.623 };
1461    double X[] = { 0.048, 0.293 };
1462    int incX = -1;
1463    double x_expected[] = { 0.048, 0.293 };
1464    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1465    {
1466      int i;
1467      for (i = 0; i < 1; i++) {
1468        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 881) real");
1469        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 881) imag");
1470      };
1471    };
1472   };
1473
1474
1475   {
1476    int order = 102;
1477    int trans = 112;
1478    int uplo = 121;
1479    int diag = 131;
1480    int N = 1;
1481    int lda = 1;
1482    double A[] = { -0.216, -0.623 };
1483    double X[] = { 0.048, 0.293 };
1484    int incX = -1;
1485    double x_expected[] = { 0.172171, -0.093192 };
1486    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1487    {
1488      int i;
1489      for (i = 0; i < 1; i++) {
1490        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 882) real");
1491        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 882) imag");
1492      };
1493    };
1494   };
1495
1496
1497   {
1498    int order = 102;
1499    int trans = 112;
1500    int uplo = 121;
1501    int diag = 132;
1502    int N = 1;
1503    int lda = 1;
1504    double A[] = { -0.216, -0.623 };
1505    double X[] = { 0.048, 0.293 };
1506    int incX = -1;
1507    double x_expected[] = { 0.048, 0.293 };
1508    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1509    {
1510      int i;
1511      for (i = 0; i < 1; i++) {
1512        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 883) real");
1513        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 883) imag");
1514      };
1515    };
1516   };
1517
1518
1519   {
1520    int order = 102;
1521    int trans = 112;
1522    int uplo = 122;
1523    int diag = 131;
1524    int N = 1;
1525    int lda = 1;
1526    double A[] = { -0.216, -0.623 };
1527    double X[] = { 0.048, 0.293 };
1528    int incX = -1;
1529    double x_expected[] = { 0.172171, -0.093192 };
1530    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1531    {
1532      int i;
1533      for (i = 0; i < 1; i++) {
1534        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 884) real");
1535        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 884) imag");
1536      };
1537    };
1538   };
1539
1540
1541   {
1542    int order = 102;
1543    int trans = 112;
1544    int uplo = 122;
1545    int diag = 132;
1546    int N = 1;
1547    int lda = 1;
1548    double A[] = { -0.216, -0.623 };
1549    double X[] = { 0.048, 0.293 };
1550    int incX = -1;
1551    double x_expected[] = { 0.048, 0.293 };
1552    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1553    {
1554      int i;
1555      for (i = 0; i < 1; i++) {
1556        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 885) real");
1557        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 885) imag");
1558      };
1559    };
1560   };
1561
1562
1563   {
1564    int order = 101;
1565    int trans = 113;
1566    int uplo = 121;
1567    int diag = 131;
1568    int N = 1;
1569    int lda = 1;
1570    double A[] = { -0.345, -0.851 };
1571    double X[] = { -0.708, 0.298 };
1572    int incX = -1;
1573    double x_expected[] = { -0.009338, -0.705318 };
1574    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1575    {
1576      int i;
1577      for (i = 0; i < 1; i++) {
1578        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 886) real");
1579        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 886) imag");
1580      };
1581    };
1582   };
1583
1584
1585   {
1586    int order = 101;
1587    int trans = 113;
1588    int uplo = 121;
1589    int diag = 132;
1590    int N = 1;
1591    int lda = 1;
1592    double A[] = { -0.345, -0.851 };
1593    double X[] = { -0.708, 0.298 };
1594    int incX = -1;
1595    double x_expected[] = { -0.708, 0.298 };
1596    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1597    {
1598      int i;
1599      for (i = 0; i < 1; i++) {
1600        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 887) real");
1601        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 887) imag");
1602      };
1603    };
1604   };
1605
1606
1607   {
1608    int order = 101;
1609    int trans = 113;
1610    int uplo = 122;
1611    int diag = 131;
1612    int N = 1;
1613    int lda = 1;
1614    double A[] = { -0.345, -0.851 };
1615    double X[] = { -0.708, 0.298 };
1616    int incX = -1;
1617    double x_expected[] = { -0.009338, -0.705318 };
1618    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1619    {
1620      int i;
1621      for (i = 0; i < 1; i++) {
1622        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 888) real");
1623        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 888) imag");
1624      };
1625    };
1626   };
1627
1628
1629   {
1630    int order = 101;
1631    int trans = 113;
1632    int uplo = 122;
1633    int diag = 132;
1634    int N = 1;
1635    int lda = 1;
1636    double A[] = { -0.345, -0.851 };
1637    double X[] = { -0.708, 0.298 };
1638    int incX = -1;
1639    double x_expected[] = { -0.708, 0.298 };
1640    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1641    {
1642      int i;
1643      for (i = 0; i < 1; i++) {
1644        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 889) real");
1645        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 889) imag");
1646      };
1647    };
1648   };
1649
1650
1651   {
1652    int order = 102;
1653    int trans = 113;
1654    int uplo = 121;
1655    int diag = 131;
1656    int N = 1;
1657    int lda = 1;
1658    double A[] = { -0.345, -0.851 };
1659    double X[] = { -0.708, 0.298 };
1660    int incX = -1;
1661    double x_expected[] = { -0.009338, -0.705318 };
1662    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1663    {
1664      int i;
1665      for (i = 0; i < 1; i++) {
1666        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 890) real");
1667        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 890) imag");
1668      };
1669    };
1670   };
1671
1672
1673   {
1674    int order = 102;
1675    int trans = 113;
1676    int uplo = 121;
1677    int diag = 132;
1678    int N = 1;
1679    int lda = 1;
1680    double A[] = { -0.345, -0.851 };
1681    double X[] = { -0.708, 0.298 };
1682    int incX = -1;
1683    double x_expected[] = { -0.708, 0.298 };
1684    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1685    {
1686      int i;
1687      for (i = 0; i < 1; i++) {
1688        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 891) real");
1689        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 891) imag");
1690      };
1691    };
1692   };
1693
1694
1695   {
1696    int order = 102;
1697    int trans = 113;
1698    int uplo = 122;
1699    int diag = 131;
1700    int N = 1;
1701    int lda = 1;
1702    double A[] = { -0.345, -0.851 };
1703    double X[] = { -0.708, 0.298 };
1704    int incX = -1;
1705    double x_expected[] = { -0.009338, -0.705318 };
1706    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1707    {
1708      int i;
1709      for (i = 0; i < 1; i++) {
1710        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 892) real");
1711        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 892) imag");
1712      };
1713    };
1714   };
1715
1716
1717   {
1718    int order = 102;
1719    int trans = 113;
1720    int uplo = 122;
1721    int diag = 132;
1722    int N = 1;
1723    int lda = 1;
1724    double A[] = { -0.345, -0.851 };
1725    double X[] = { -0.708, 0.298 };
1726    int incX = -1;
1727    double x_expected[] = { -0.708, 0.298 };
1728    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1729    {
1730      int i;
1731      for (i = 0; i < 1; i++) {
1732        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 893) real");
1733        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 893) imag");
1734      };
1735    };
1736   };
1737
1738
1739 }