htswanalysis/MACS/lib/gsl/gsl-1.11/cblas/test_rotm.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_rotm (void) {
  10 const double flteps = 1e-4, dbleps = 1e-6;
  11   {
  12    int N = 1;
  13    float h[] = { -1.0f, -4.44982e+03f, -15.5826f, 7.091334e+04f, 2.95912e+04f };
  14    float X[] = { -0.034f };
  15    int incX = 1;
  16    float Y[] = { -0.56f };
  17    int incY = -1;
  18    float x_expected[] = { -3.956017e+04f };
  19    float y_expected[] = { -1.657054e+04f };
  20    cblas_srotm(N, X, incX, Y, incY, h);
  21    {
  22      int i;
  23      for (i = 0; i < 1; i++) {
  24        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 654)");
  25      }
  26    };
  27    {
  28      int i;
  29      for (i = 0; i < 1; i++) {
  30        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 655)");
  31      }
  32    };
  33   };
  34
  35
  36   {
  37    int N = 1;
  38    float h[] = { 0.0f, 15.9728f, 6.400638e+03f, 1.733082e-05f, 1.524511e-04f };
  39    float X[] = { -0.034f };
  40    int incX = 1;
  41    float Y[] = { -0.56f };
  42    int incY = -1;
  43    float x_expected[] = { -0.0340097f };
  44    float y_expected[] = { -218.182f };
  45    cblas_srotm(N, X, incX, Y, incY, h);
  46    {
  47      int i;
  48      for (i = 0; i < 1; i++) {
  49        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 656)");
  50      }
  51    };
  52    {
  53      int i;
  54      for (i = 0; i < 1; i++) {
  55        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 657)");
  56      }
  57    };
  58   };
  59
  60
  61   {
  62    int N = 1;
  63    float h[] = { 1.0f, 5.688411e+04f, 5.914789e+03f, 0.00210473f, 0.0231019f };
  64    float X[] = { -0.034f };
  65    int incX = 1;
  66    float Y[] = { -0.56f };
  67    int incY = -1;
  68    float x_expected[] = { -1.93462e+03f };
  69    float y_expected[] = { 0.0210629f };
  70    cblas_srotm(N, X, incX, Y, incY, h);
  71    {
  72      int i;
  73      for (i = 0; i < 1; i++) {
  74        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 658)");
  75      }
  76    };
  77    {
  78      int i;
  79      for (i = 0; i < 1; i++) {
  80        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 659)");
  81      }
  82    };
  83   };
  84
  85
  86   {
  87    int N = 1;
  88    float h[] = { -2.0f, -0.582083f, 0.00103161f, -3.429851e-05f, 7.411469e-05f };
  89    float X[] = { -0.034f };
  90    int incX = 1;
  91    float Y[] = { -0.56f };
  92    int incY = -1;
  93    float x_expected[] = { -0.034f };
  94    float y_expected[] = { -0.56f };
  95    cblas_srotm(N, X, incX, Y, incY, h);
  96    {
  97      int i;
  98      for (i = 0; i < 1; i++) {
  99        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 660)");
 100      }
 101    };
 102    {
 103      int i;
 104      for (i = 0; i < 1; i++) {
 105        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 661)");
 106      }
 107    };
 108   };
 109
 110
 111   {
 112    int N = 1;
 113    float h[] = { -1.0f, 115.163f, -6.715448e+04f, -258.695f, -16.2552f };
 114    float X[] = { -0.034f };
 115    int incX = 1;
 116    float Y[] = { -0.56f };
 117    int incY = -1;
 118    float x_expected[] = { 140.954f };
 119    float y_expected[] = { 2.292355e+03f };
 120    cblas_srotm(N, X, incX, Y, incY, h);
 121    {
 122      int i;
 123      for (i = 0; i < 1; i++) {
 124        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 662)");
 125      }
 126    };
 127    {
 128      int i;
 129      for (i = 0; i < 1; i++) {
 130        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 663)");
 131      }
 132    };
 133   };
 134
 135
 136   {
 137    int N = 1;
 138    float h[] = { 0.0f, -3.314862e+03f, -442.976f, -214.586f, -25.9716f };
 139    float X[] = { -0.034f };
 140    int incX = 1;
 141    float Y[] = { -0.56f };
 142    int incY = -1;
 143    float x_expected[] = { 120.134f };
 144    float y_expected[] = { 14.5012f };
 145    cblas_srotm(N, X, incX, Y, incY, h);
 146    {
 147      int i;
 148      for (i = 0; i < 1; i++) {
 149        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 664)");
 150      }
 151    };
 152    {
 153      int i;
 154      for (i = 0; i < 1; i++) {
 155        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 665)");
 156      }
 157    };
 158   };
 159
 160
 161   {
 162    int N = 1;
 163    float h[] = { 1.0f, -1.177304e+03f, -1.236662e-04f, -0.186585f, 1.15841f };
 164    float X[] = { -0.034f };
 165    int incX = 1;
 166    float Y[] = { -0.56f };
 167    int incY = -1;
 168    float x_expected[] = { 39.4683f };
 169    float y_expected[] = { -0.614711f };
 170    cblas_srotm(N, X, incX, Y, incY, h);
 171    {
 172      int i;
 173      for (i = 0; i < 1; i++) {
 174        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 666)");
 175      }
 176    };
 177    {
 178      int i;
 179      for (i = 0; i < 1; i++) {
 180        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 667)");
 181      }
 182    };
 183   };
 184
 185
 186   {
 187    int N = 1;
 188    float h[] = { -2.0f, -88.9796f, 0.808226f, 1.106582e-05f, -0.00862288f };
 189    float X[] = { -0.034f };
 190    int incX = 1;
 191    float Y[] = { -0.56f };
 192    int incY = -1;
 193    float x_expected[] = { -0.034f };
 194    float y_expected[] = { -0.56f };
 195    cblas_srotm(N, X, incX, Y, incY, h);
 196    {
 197      int i;
 198      for (i = 0; i < 1; i++) {
 199        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 668)");
 200      }
 201    };
 202    {
 203      int i;
 204      for (i = 0; i < 1; i++) {
 205        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 669)");
 206      }
 207    };
 208   };
 209
 210
 211   {
 212    int N = 1;
 213    float h[] = { -1.0f, -0.00225865f, 8.338551e+04f, -1.98282f, -2.409905e-05f };
 214    float X[] = { -0.034f };
 215    int incX = 1;
 216    float Y[] = { -0.56f };
 217    int incY = -1;
 218    float x_expected[] = { 1.11046f };
 219    float y_expected[] = { -2.835107e+03f };
 220    cblas_srotm(N, X, incX, Y, incY, h);
 221    {
 222      int i;
 223      for (i = 0; i < 1; i++) {
 224        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 670)");
 225      }
 226    };
 227    {
 228      int i;
 229      for (i = 0; i < 1; i++) {
 230        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 671)");
 231      }
 232    };
 233   };
 234
 235
 236   {
 237    int N = 1;
 238    float h[] = { 0.0f, 0.258779f, 74.2802f, 0.923299f, 4.847128e+03f };
 239    float X[] = { -0.034f };
 240    int incX = 1;
 241    float Y[] = { -0.56f };
 242    int incY = -1;
 243    float x_expected[] = { -0.551048f };
 244    float y_expected[] = { -3.08553f };
 245    cblas_srotm(N, X, incX, Y, incY, h);
 246    {
 247      int i;
 248      for (i = 0; i < 1; i++) {
 249        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 672)");
 250      }
 251    };
 252    {
 253      int i;
 254      for (i = 0; i < 1; i++) {
 255        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 673)");
 256      }
 257    };
 258   };
 259
 260
 261   {
 262    int N = 1;
 263    double h[] = { -1.0, -8.00850735044, 0.0204647351647, 1.898461360078e-04, -4.32701487194 };
 264    double X[] = { 0.84 };
 265    int incX = 1;
 266    double Y[] = { -0.711 };
 267    int incY = -1;
 268    double x_expected[] = { -6.72728115497 };
 269    double y_expected[] = { 3.09369795149 };
 270    cblas_drotm(N, X, incX, Y, incY, h);
 271    {
 272      int i;
 273      for (i = 0; i < 1; i++) {
 274        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 674)");
 275      }
 276    };
 277    {
 278      int i;
 279      for (i = 0; i < 1; i++) {
 280        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 675)");
 281      }
 282    };
 283   };
 284
 285
 286   {
 287    int N = 1;
 288    double h[] = { 0.0, 1.230610998905e+04, 210.056650134, 9.20757074452, 2.072879691524e+03 };
 289    double X[] = { 0.84 };
 290    int incX = 1;
 291    double Y[] = { -0.711 };
 292    int incY = -1;
 293    double x_expected[] = { -5.70658279935 };
 294    double y_expected[] = { 175.736586112 };
 295    cblas_drotm(N, X, incX, Y, incY, h);
 296    {
 297      int i;
 298      for (i = 0; i < 1; i++) {
 299        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 676)");
 300      }
 301    };
 302    {
 303      int i;
 304      for (i = 0; i < 1; i++) {
 305        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 677)");
 306      }
 307    };
 308   };
 309
 310
 311   {
 312    int N = 1;
 313    double h[] = { 1.0, -1.244580625511e+03, 1.11154682624, 2.269384716089e-05, -0.0143785338883 };
 314    double X[] = { 0.84 };
 315    int incX = 1;
 316    double Y[] = { -0.711 };
 317    int incY = -1;
 318    double x_expected[] = { -1.046158725429e+03 };
 319    double y_expected[] = { -0.829776862405 };
 320    cblas_drotm(N, X, incX, Y, incY, h);
 321    {
 322      int i;
 323      for (i = 0; i < 1; i++) {
 324        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 678)");
 325      }
 326    };
 327    {
 328      int i;
 329      for (i = 0; i < 1; i++) {
 330        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 679)");
 331      }
 332    };
 333   };
 334
 335
 336   {
 337    int N = 1;
 338    double h[] = { -2.0, 293.927527276, -2.614737743134e+03, 10.3164975867, -7.947030813329e+03 };
 339    double X[] = { 0.84 };
 340    int incX = 1;
 341    double Y[] = { -0.711 };
 342    int incY = -1;
 343    double x_expected[] = { 0.84 };
 344    double y_expected[] = { -0.711 };
 345    cblas_drotm(N, X, incX, Y, incY, h);
 346    {
 347      int i;
 348      for (i = 0; i < 1; i++) {
 349        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 680)");
 350      }
 351    };
 352    {
 353      int i;
 354      for (i = 0; i < 1; i++) {
 355        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 681)");
 356      }
 357    };
 358   };
 359
 360
 361   {
 362    int N = 1;
 363    double h[] = { -1.0, -0.0178609251786, 0.00983044958941, 105.944529127, 1.687350579234e-05 };
 364    double X[] = { 0.84 };
 365    int incX = 1;
 366    double Y[] = { -0.711 };
 367    int incY = -1;
 368    double x_expected[] = { -75.3415633866 };
 369    double y_expected[] = { 0.00824558059248 };
 370    cblas_drotm(N, X, incX, Y, incY, h);
 371    {
 372      int i;
 373      for (i = 0; i < 1; i++) {
 374        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 682)");
 375      }
 376    };
 377    {
 378      int i;
 379      for (i = 0; i < 1; i++) {
 380        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 683)");
 381      }
 382    };
 383   };
 384
 385
 386   {
 387    int N = 1;
 388    double h[] = { 0.0, 6.241999071283e-05, 2.495425882445e+03, 304.604891146, 1.604644714854e+04 };
 389    double X[] = { 0.84 };
 390    int incX = 1;
 391    double Y[] = { -0.711 };
 392    int incY = -1;
 393    double x_expected[] = { -215.734077605 };
 394    double y_expected[] = { 2.095446741254e+03 };
 395    cblas_drotm(N, X, incX, Y, incY, h);
 396    {
 397      int i;
 398      for (i = 0; i < 1; i++) {
 399        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 684)");
 400      }
 401    };
 402    {
 403      int i;
 404      for (i = 0; i < 1; i++) {
 405        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 685)");
 406      }
 407    };
 408   };
 409
 410
 411   {
 412    int N = 1;
 413    double h[] = { 1.0, -0.058097639487, 8.386083625428e+03, -10.5233229994, 184.653245391 };
 414    double X[] = { 0.84 };
 415    int incX = 1;
 416    double Y[] = { -0.711 };
 417    int incY = -1;
 418    double x_expected[] = { -0.759802017169 };
 419    double y_expected[] = { -132.128457473 };
 420    cblas_drotm(N, X, incX, Y, incY, h);
 421    {
 422      int i;
 423      for (i = 0; i < 1; i++) {
 424        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 686)");
 425      }
 426    };
 427    {
 428      int i;
 429      for (i = 0; i < 1; i++) {
 430        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 687)");
 431      }
 432    };
 433   };
 434
 435
 436   {
 437    int N = 1;
 438    double h[] = { -2.0, -92.8754629217, 1.467547244529e-04, -3.197881072301e-04, -1.89874629713 };
 439    double X[] = { 0.84 };
 440    int incX = 1;
 441    double Y[] = { -0.711 };
 442    int incY = -1;
 443    double x_expected[] = { 0.84 };
 444    double y_expected[] = { -0.711 };
 445    cblas_drotm(N, X, incX, Y, incY, h);
 446    {
 447      int i;
 448      for (i = 0; i < 1; i++) {
 449        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 688)");
 450      }
 451    };
 452    {
 453      int i;
 454      for (i = 0; i < 1; i++) {
 455        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 689)");
 456      }
 457    };
 458   };
 459
 460
 461   {
 462    int N = 1;
 463    double h[] = { -1.0, -0.0961996230646, -2.248344186185e-05, -316.856396787, 1.663969157848e+03 };
 464    double X[] = { 0.84 };
 465    int incX = 1;
 466    double Y[] = { -0.711 };
 467    int incY = -1;
 468    double x_expected[] = { 225.204090432 };
 469    double y_expected[] = { -1.183082090116e+03 };
 470    cblas_drotm(N, X, incX, Y, incY, h);
 471    {
 472      int i;
 473      for (i = 0; i < 1; i++) {
 474        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 690)");
 475      }
 476    };
 477    {
 478      int i;
 479      for (i = 0; i < 1; i++) {
 480        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 691)");
 481      }
 482    };
 483   };
 484
 485
 486   {
 487    int N = 1;
 488    double h[] = { 0.0, -201.862043128, 4.999906166451e-04, -0.0653365534487, 586.454083328 };
 489    double X[] = { 0.84 };
 490    int incX = 1;
 491    double Y[] = { -0.711 };
 492    int incY = -1;
 493    double x_expected[] = { 0.886454289502 };
 494    double y_expected[] = { -0.710580007882 };
 495    cblas_drotm(N, X, incX, Y, incY, h);
 496    {
 497      int i;
 498      for (i = 0; i < 1; i++) {
 499        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 692)");
 500      }
 501    };
 502    {
 503      int i;
 504      for (i = 0; i < 1; i++) {
 505        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 693)");
 506      }
 507    };
 508   };
 509
 510
 511   {
 512    int N = 1;
 513    float h[] = { -1.0f, 162.86f, 1.379231e-04f, 9.67285f, 0.929218f };
 514    float X[] = { 0.629f };
 515    int incX = -1;
 516    float Y[] = { 0.386f };
 517    int incY = 1;
 518    float x_expected[] = { 106.173f };
 519    float y_expected[] = { 0.358765f };
 520    cblas_srotm(N, X, incX, Y, incY, h);
 521    {
 522      int i;
 523      for (i = 0; i < 1; i++) {
 524        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 694)");
 525      }
 526    };
 527    {
 528      int i;
 529      for (i = 0; i < 1; i++) {
 530        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 695)");
 531      }
 532    };
 533   };
 534
 535
 536   {
 537    int N = 1;
 538    float h[] = { 0.0f, 537.387f, -21.6404f, -1.017074e+03f, -1.730546e-05f };
 539    float X[] = { 0.629f };
 540    int incX = -1;
 541    float Y[] = { 0.386f };
 542    int incY = 1;
 543    float x_expected[] = { -391.961f };
 544    float y_expected[] = { -13.2258f };
 545    cblas_srotm(N, X, incX, Y, incY, h);
 546    {
 547      int i;
 548      for (i = 0; i < 1; i++) {
 549        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 696)");
 550      }
 551    };
 552    {
 553      int i;
 554      for (i = 0; i < 1; i++) {
 555        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 697)");
 556      }
 557    };
 558   };
 559
 560
 561   {
 562    int N = 1;
 563    float h[] = { 1.0f, -1.339977e-05f, 0.00522784f, 2.020352e-05f, -0.0654088f };
 564    float X[] = { 0.629f };
 565    int incX = -1;
 566    float Y[] = { 0.386f };
 567    int incY = 1;
 568    float x_expected[] = { 0.385992f };
 569    float y_expected[] = { -0.654248f };
 570    cblas_srotm(N, X, incX, Y, incY, h);
 571    {
 572      int i;
 573      for (i = 0; i < 1; i++) {
 574        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 698)");
 575      }
 576    };
 577    {
 578      int i;
 579      for (i = 0; i < 1; i++) {
 580        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 699)");
 581      }
 582    };
 583   };
 584
 585
 586   {
 587    int N = 1;
 588    float h[] = { -2.0f, -50.922f, 31.5261f, -0.194913f, 0.206417f };
 589    float X[] = { 0.629f };
 590    int incX = -1;
 591    float Y[] = { 0.386f };
 592    int incY = 1;
 593    float x_expected[] = { 0.629f };
 594    float y_expected[] = { 0.386f };
 595    cblas_srotm(N, X, incX, Y, incY, h);
 596    {
 597      int i;
 598      for (i = 0; i < 1; i++) {
 599        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 700)");
 600      }
 601    };
 602    {
 603      int i;
 604      for (i = 0; i < 1; i++) {
 605        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 701)");
 606      }
 607    };
 608   };
 609
 610
 611   {
 612    int N = 1;
 613    float h[] = { -1.0f, 1.15659f, 2.599832e+04f, 435.891f, 1.546671e+03f };
 614    float X[] = { 0.629f };
 615    int incX = -1;
 616    float Y[] = { 0.386f };
 617    int incY = 1;
 618    float x_expected[] = { 168.981f };
 619    float y_expected[] = { 1.694996e+04f };
 620    cblas_srotm(N, X, incX, Y, incY, h);
 621    {
 622      int i;
 623      for (i = 0; i < 1; i++) {
 624        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 702)");
 625      }
 626    };
 627    {
 628      int i;
 629      for (i = 0; i < 1; i++) {
 630        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 703)");
 631      }
 632    };
 633   };
 634
 635
 636   {
 637    int N = 1;
 638    float h[] = { 0.0f, 3.359889e-04f, -0.00134822f, -12.9136f, -5.655622e+04f };
 639    float X[] = { 0.629f };
 640    int incX = -1;
 641    float Y[] = { 0.386f };
 642    int incY = 1;
 643    float x_expected[] = { -4.35566f };
 644    float y_expected[] = { 0.385152f };
 645    cblas_srotm(N, X, incX, Y, incY, h);
 646    {
 647      int i;
 648      for (i = 0; i < 1; i++) {
 649        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 704)");
 650      }
 651    };
 652    {
 653      int i;
 654      for (i = 0; i < 1; i++) {
 655        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 705)");
 656      }
 657    };
 658   };
 659
 660
 661   {
 662    int N = 1;
 663    float h[] = { 1.0f, 2.75119e-05f, 1.70314f, 18.4063f, 185.731f };
 664    float X[] = { 0.629f };
 665    int incX = -1;
 666    float Y[] = { 0.386f };
 667    int incY = 1;
 668    float x_expected[] = { 0.386017f };
 669    float y_expected[] = { 71.063f };
 670    cblas_srotm(N, X, incX, Y, incY, h);
 671    {
 672      int i;
 673      for (i = 0; i < 1; i++) {
 674        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 706)");
 675      }
 676    };
 677    {
 678      int i;
 679      for (i = 0; i < 1; i++) {
 680        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 707)");
 681      }
 682    };
 683   };
 684
 685
 686   {
 687    int N = 1;
 688    float h[] = { -2.0f, -1.031009e-04f, -3.378602e+04f, 7.869358e-05f, 157.303f };
 689    float X[] = { 0.629f };
 690    int incX = -1;
 691    float Y[] = { 0.386f };
 692    int incY = 1;
 693    float x_expected[] = { 0.629f };
 694    float y_expected[] = { 0.386f };
 695    cblas_srotm(N, X, incX, Y, incY, h);
 696    {
 697      int i;
 698      for (i = 0; i < 1; i++) {
 699        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 708)");
 700      }
 701    };
 702    {
 703      int i;
 704      for (i = 0; i < 1; i++) {
 705        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 709)");
 706      }
 707    };
 708   };
 709
 710
 711   {
 712    int N = 1;
 713    float h[] = { -1.0f, 0.00207419f, -89.9374f, -1.40414f, -25.1433f };
 714    float X[] = { 0.629f };
 715    int incX = -1;
 716    float Y[] = { 0.386f };
 717    int incY = 1;
 718    float x_expected[] = { -0.540694f };
 719    float y_expected[] = { -66.276f };
 720    cblas_srotm(N, X, incX, Y, incY, h);
 721    {
 722      int i;
 723      for (i = 0; i < 1; i++) {
 724        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 710)");
 725      }
 726    };
 727    {
 728      int i;
 729      for (i = 0; i < 1; i++) {
 730        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 711)");
 731      }
 732    };
 733   };
 734
 735
 736   {
 737    int N = 1;
 738    float h[] = { 0.0f, -4.972562e+04f, 3.65698e-05f, 632.116f, 0.195207f };
 739    float X[] = { 0.629f };
 740    int incX = -1;
 741    float Y[] = { 0.386f };
 742    int incY = 1;
 743    float x_expected[] = { 244.626f };
 744    float y_expected[] = { 0.386023f };
 745    cblas_srotm(N, X, incX, Y, incY, h);
 746    {
 747      int i;
 748      for (i = 0; i < 1; i++) {
 749        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 712)");
 750      }
 751    };
 752    {
 753      int i;
 754      for (i = 0; i < 1; i++) {
 755        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 713)");
 756      }
 757    };
 758   };
 759
 760
 761   {
 762    int N = 1;
 763    double h[] = { -1.0, 8.64768339859, -105.906731008, -347.053994991, -1.28802789909 };
 764    double X[] = { -0.674 };
 765    int incX = -1;
 766    double Y[] = { -0.645 };
 767    int incY = 1;
 768    double x_expected[] = { 218.021288159 };
 769    double y_expected[] = { 72.2119146942 };
 770    cblas_drotm(N, X, incX, Y, incY, h);
 771    {
 772      int i;
 773      for (i = 0; i < 1; i++) {
 774        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 714)");
 775      }
 776    };
 777    {
 778      int i;
 779      for (i = 0; i < 1; i++) {
 780        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 715)");
 781      }
 782    };
 783   };
 784
 785
 786   {
 787    int N = 1;
 788    double h[] = { 0.0, 0.926057152065, 3.315158944851e-04, -1.203638835886e+03, 0.00197484344868 };
 789    double X[] = { -0.674 };
 790    int incX = -1;
 791    double Y[] = { -0.645 };
 792    int incY = 1;
 793    double x_expected[] = { 775.673049147 };
 794    double y_expected[] = { -0.645223441713 };
 795    cblas_drotm(N, X, incX, Y, incY, h);
 796    {
 797      int i;
 798      for (i = 0; i < 1; i++) {
 799        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 716)");
 800      }
 801    };
 802    {
 803      int i;
 804      for (i = 0; i < 1; i++) {
 805        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 717)");
 806      }
 807    };
 808   };
 809
 810
 811   {
 812    int N = 1;
 813    double h[] = { 1.0, -9.404298701289e-05, -0.00380843381223, -0.0767212569647, -3.66628238398 };
 814    double X[] = { -0.674 };
 815    int incX = -1;
 816    double Y[] = { -0.645 };
 817    int incY = 1;
 818    double x_expected[] = { -0.644936615027 };
 819    double y_expected[] = { 3.03875213767 };
 820    cblas_drotm(N, X, incX, Y, incY, h);
 821    {
 822      int i;
 823      for (i = 0; i < 1; i++) {
 824        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 718)");
 825      }
 826    };
 827    {
 828      int i;
 829      for (i = 0; i < 1; i++) {
 830        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 719)");
 831      }
 832    };
 833   };
 834
 835
 836   {
 837    int N = 1;
 838    double h[] = { -2.0, 0.0900662226146, 0.00250500071094, 6.46624826995, -2.159443948633e-05 };
 839    double X[] = { -0.674 };
 840    int incX = -1;
 841    double Y[] = { -0.645 };
 842    int incY = 1;
 843    double x_expected[] = { -0.674 };
 844    double y_expected[] = { -0.645 };
 845    cblas_drotm(N, X, incX, Y, incY, h);
 846    {
 847      int i;
 848      for (i = 0; i < 1; i++) {
 849        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 720)");
 850      }
 851    };
 852    {
 853      int i;
 854      for (i = 0; i < 1; i++) {
 855        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 721)");
 856      }
 857    };
 858   };
 859
 860
 861   {
 862    int N = 1;
 863    double h[] = { -1.0, 8.011686652935e+03, -23.8989526115, -1.104879849207e+04, 0.108740065261 };
 864    double X[] = { -0.674 };
 865    int incX = -1;
 866    double Y[] = { -0.645 };
 867    int incY = 1;
 868    double x_expected[] = { 1.726598223305e+03 };
 869    double y_expected[] = { 16.0377567181 };
 870    cblas_drotm(N, X, incX, Y, incY, h);
 871    {
 872      int i;
 873      for (i = 0; i < 1; i++) {
 874        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 722)");
 875      }
 876    };
 877    {
 878      int i;
 879      for (i = 0; i < 1; i++) {
 880        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 723)");
 881      }
 882    };
 883   };
 884
 885
 886   {
 887    int N = 1;
 888    double h[] = { 0.0, 5.162681717012e-05, 48.059409562, -4.701209666609e+04, -6.80333644488e+04 };
 889    double X[] = { -0.674 };
 890    int incX = -1;
 891    double Y[] = { -0.645 };
 892    int incY = 1;
 893    double x_expected[] = { 3.032212834963e+04 };
 894    double y_expected[] = { -33.0370420448 };
 895    cblas_drotm(N, X, incX, Y, incY, h);
 896    {
 897      int i;
 898      for (i = 0; i < 1; i++) {
 899        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 724)");
 900      }
 901    };
 902    {
 903      int i;
 904      for (i = 0; i < 1; i++) {
 905        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 725)");
 906      }
 907    };
 908   };
 909
 910
 911   {
 912    int N = 1;
 913    double h[] = { 1.0, -5.554806445579e-04, 5.101973060197e+04, -5.932040237374e+03, 3.91045757161 };
 914    double X[] = { -0.674 };
 915    int incX = -1;
 916    double Y[] = { -0.645 };
 917    int incY = 1;
 918    double x_expected[] = { -0.644625606046 };
 919    double y_expected[] = { -1.84824513369 };
 920    cblas_drotm(N, X, incX, Y, incY, h);
 921    {
 922      int i;
 923      for (i = 0; i < 1; i++) {
 924        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 726)");
 925      }
 926    };
 927    {
 928      int i;
 929      for (i = 0; i < 1; i++) {
 930        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 727)");
 931      }
 932    };
 933   };
 934
 935
 936   {
 937    int N = 1;
 938    double h[] = { -2.0, -1.697234884626e-05, 101.466514367, 5.772202675851e+03, -6.884724590773e-04 };
 939    double X[] = { -0.674 };
 940    int incX = -1;
 941    double Y[] = { -0.645 };
 942    int incY = 1;
 943    double x_expected[] = { -0.674 };
 944    double y_expected[] = { -0.645 };
 945    cblas_drotm(N, X, incX, Y, incY, h);
 946    {
 947      int i;
 948      for (i = 0; i < 1; i++) {
 949        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 728)");
 950      }
 951    };
 952    {
 953      int i;
 954      for (i = 0; i < 1; i++) {
 955        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 729)");
 956      }
 957    };
 958   };
 959
 960
 961   {
 962    int N = 1;
 963    double h[] = { -1.0, -0.0199779342753, 13.013123509, -17.8393347684, 0.129333249919 };
 964    double X[] = { -0.674 };
 965    int incX = -1;
 966    double Y[] = { -0.645 };
 967    int incY = 1;
 968    double x_expected[] = { 11.5198360534 };
 969    double y_expected[] = { -8.85426519126 };
 970    cblas_drotm(N, X, incX, Y, incY, h);
 971    {
 972      int i;
 973      for (i = 0; i < 1; i++) {
 974        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 730)");
 975      }
 976    };
 977    {
 978      int i;
 979      for (i = 0; i < 1; i++) {
 980        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 731)");
 981      }
 982    };
 983   };
 984
 985
 986   {
 987    int N = 1;
 988    double h[] = { 0.0, -6.673799053773e+04, 587.759435538, 3.493966594965e+04, 2.098374142331e-05 };
 989    double X[] = { -0.674 };
 990    int incX = -1;
 991    double Y[] = { -0.645 };
 992    int incY = 1;
 993    double x_expected[] = { -2.253675853752e+04 };
 994    double y_expected[] = { -396.794859553 };
 995    cblas_drotm(N, X, incX, Y, incY, h);
 996    {
 997      int i;
 998      for (i = 0; i < 1; i++) {
 999        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 732)");
1000      }
1001    };
1002    {
1003      int i;
1004      for (i = 0; i < 1; i++) {
1005        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 733)");
1006      }
1007    };
1008   };
1009
1010
1011   {
1012    int N = 1;
1013    float h[] = { -1.0f, 0.070033f, 0.034824f, -0.00740144f, -0.153474f };
1014    float X[] = { -0.111f };
1015    int incX = -1;
1016    float Y[] = { -0.103f };
1017    int incY = -1;
1018    float x_expected[] = { -0.00701131f };
1019    float y_expected[] = { 0.0119423f };
1020    cblas_srotm(N, X, incX, Y, incY, h);
1021    {
1022      int i;
1023      for (i = 0; i < 1; i++) {
1024        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 734)");
1025      }
1026    };
1027    {
1028      int i;
1029      for (i = 0; i < 1; i++) {
1030        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 735)");
1031      }
1032    };
1033   };
1034
1035
1036   {
1037    int N = 1;
1038    float h[] = { 0.0f, 7.618016e-04f, -0.00396806f, -92.8408f, -0.0018571f };
1039    float X[] = { -0.111f };
1040    int incX = -1;
1041    float Y[] = { -0.103f };
1042    int incY = -1;
1043    float x_expected[] = { 9.4516f };
1044    float y_expected[] = { -0.10256f };
1045    cblas_srotm(N, X, incX, Y, incY, h);
1046    {
1047      int i;
1048      for (i = 0; i < 1; i++) {
1049        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 736)");
1050      }
1051    };
1052    {
1053      int i;
1054      for (i = 0; i < 1; i++) {
1055        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 737)");
1056      }
1057    };
1058   };
1059
1060
1061   {
1062    int N = 1;
1063    float h[] = { 1.0f, -5.833806e+03f, 0.00265668f, -587.573f, 0.0972416f };
1064    float X[] = { -0.111f };
1065    int incX = -1;
1066    float Y[] = { -0.103f };
1067    int incY = -1;
1068    float x_expected[] = { 647.449f };
1069    float y_expected[] = { 0.100984f };
1070    cblas_srotm(N, X, incX, Y, incY, h);
1071    {
1072      int i;
1073      for (i = 0; i < 1; i++) {
1074        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 738)");
1075      }
1076    };
1077    {
1078      int i;
1079      for (i = 0; i < 1; i++) {
1080        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 739)");
1081      }
1082    };
1083   };
1084
1085
1086   {
1087    int N = 1;
1088    float h[] = { -2.0f, -8.93339e+04f, -5.16022e-05f, 2.589784e-05f, -7.52586f };
1089    float X[] = { -0.111f };
1090    int incX = -1;
1091    float Y[] = { -0.103f };
1092    int incY = -1;
1093    float x_expected[] = { -0.111f };
1094    float y_expected[] = { -0.103f };
1095    cblas_srotm(N, X, incX, Y, incY, h);
1096    {
1097      int i;
1098      for (i = 0; i < 1; i++) {
1099        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 740)");
1100      }
1101    };
1102    {
1103      int i;
1104      for (i = 0; i < 1; i++) {
1105        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 741)");
1106      }
1107    };
1108   };
1109
1110
1111   {
1112    int N = 1;
1113    float h[] = { -1.0f, 0.125135f, 0.00586453f, 1.100694e-05f, -0.0137436f };
1114    float X[] = { -0.111f };
1115    int incX = -1;
1116    float Y[] = { -0.103f };
1117    int incY = -1;
1118    float x_expected[] = { -0.0138912f };
1119    float y_expected[] = { 7.64631e-04f };
1120    cblas_srotm(N, X, incX, Y, incY, h);
1121    {
1122      int i;
1123      for (i = 0; i < 1; i++) {
1124        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 742)");
1125      }
1126    };
1127    {
1128      int i;
1129      for (i = 0; i < 1; i++) {
1130        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 743)");
1131      }
1132    };
1133   };
1134
1135
1136   {
1137    int N = 1;
1138    float h[] = { 0.0f, -0.0996414f, 0.00505806f, 1.321441e-05f, 1.151406e-04f };
1139    float X[] = { -0.111f };
1140    int incX = -1;
1141    float Y[] = { -0.103f };
1142    int incY = -1;
1143    float x_expected[] = { -0.111001f };
1144    float y_expected[] = { -0.103561f };
1145    cblas_srotm(N, X, incX, Y, incY, h);
1146    {
1147      int i;
1148      for (i = 0; i < 1; i++) {
1149        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 744)");
1150      }
1151    };
1152    {
1153      int i;
1154      for (i = 0; i < 1; i++) {
1155        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 745)");
1156      }
1157    };
1158   };
1159
1160
1161   {
1162    int N = 1;
1163    float h[] = { 1.0f, 8.18165f, 169.902f, -1.453316e-05f, 1.539957e+03f };
1164    float X[] = { -0.111f };
1165    int incX = -1;
1166    float Y[] = { -0.103f };
1167    int incY = -1;
1168    float x_expected[] = { -1.01116f };
1169    float y_expected[] = { -158.505f };
1170    cblas_srotm(N, X, incX, Y, incY, h);
1171    {
1172      int i;
1173      for (i = 0; i < 1; i++) {
1174        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 746)");
1175      }
1176    };
1177    {
1178      int i;
1179      for (i = 0; i < 1; i++) {
1180        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 747)");
1181      }
1182    };
1183   };
1184
1185
1186   {
1187    int N = 1;
1188    float h[] = { -2.0f, 1.827623e-04f, -0.0528808f, 24.7305f, 328.39f };
1189    float X[] = { -0.111f };
1190    int incX = -1;
1191    float Y[] = { -0.103f };
1192    int incY = -1;
1193    float x_expected[] = { -0.111f };
1194    float y_expected[] = { -0.103f };
1195    cblas_srotm(N, X, incX, Y, incY, h);
1196    {
1197      int i;
1198      for (i = 0; i < 1; i++) {
1199        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 748)");
1200      }
1201    };
1202    {
1203      int i;
1204      for (i = 0; i < 1; i++) {
1205        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 749)");
1206      }
1207    };
1208   };
1209
1210
1211   {
1212    int N = 1;
1213    float h[] = { -1.0f, -0.0876053f, 7.858704e+04f, -4.758389e+03f, -0.0114841f };
1214    float X[] = { -0.111f };
1215    int incX = -1;
1216    float Y[] = { -0.103f };
1217    int incY = -1;
1218    float x_expected[] = { 490.124f };
1219    float y_expected[] = { -8.72316e+03f };
1220    cblas_srotm(N, X, incX, Y, incY, h);
1221    {
1222      int i;
1223      for (i = 0; i < 1; i++) {
1224        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 750)");
1225      }
1226    };
1227    {
1228      int i;
1229      for (i = 0; i < 1; i++) {
1230        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 751)");
1231      }
1232    };
1233   };
1234
1235
1236   {
1237    int N = 1;
1238    float h[] = { 0.0f, 0.00192188f, -1.031412e-05f, -0.00123957f, 0.312197f };
1239    float X[] = { -0.111f };
1240    int incX = -1;
1241    float Y[] = { -0.103f };
1242    int incY = -1;
1243    float x_expected[] = { -0.110872f };
1244    float y_expected[] = { -0.102999f };
1245    cblas_srotm(N, X, incX, Y, incY, h);
1246    {
1247      int i;
1248      for (i = 0; i < 1; i++) {
1249        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 752)");
1250      }
1251    };
1252    {
1253      int i;
1254      for (i = 0; i < 1; i++) {
1255        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 753)");
1256      }
1257    };
1258   };
1259
1260
1261   {
1262    int N = 1;
1263    double h[] = { -1.0, -0.0253351881542, -0.105247702585, -7.18405641016, -5.409804811228e+04 };
1264    double X[] = { 0.203 };
1265    int incX = -1;
1266    double Y[] = { -0.03 };
1267    int incY = -1;
1268    double x_expected[] = { 0.21037864911 };
1269    double y_expected[] = { 1.622920078085e+03 };
1270    cblas_drotm(N, X, incX, Y, incY, h);
1271    {
1272      int i;
1273      for (i = 0; i < 1; i++) {
1274        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 754)");
1275      }
1276    };
1277    {
1278      int i;
1279      for (i = 0; i < 1; i++) {
1280        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 755)");
1281      }
1282    };
1283   };
1284
1285
1286   {
1287    int N = 1;
1288    double h[] = { 0.0, 8.503080247483e+03, -6.186691885896e-05, -0.201279925805, -5.810746179529e-05 };
1289    double X[] = { 0.203 };
1290    int incX = -1;
1291    double Y[] = { -0.03 };
1292    int incY = -1;
1293    double x_expected[] = { 0.209038397774 };
1294    double y_expected[] = { -0.0300125589845 };
1295    cblas_drotm(N, X, incX, Y, incY, h);
1296    {
1297      int i;
1298      for (i = 0; i < 1; i++) {
1299        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 756)");
1300      }
1301    };
1302    {
1303      int i;
1304      for (i = 0; i < 1; i++) {
1305        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 757)");
1306      }
1307    };
1308   };
1309
1310
1311   {
1312    int N = 1;
1313    double h[] = { 1.0, 0.351101212426, 64.9574703355, 3.015315809025e-05, -5.291308403203e-04 };
1314    double X[] = { 0.203 };
1315    int incX = -1;
1316    double Y[] = { -0.03 };
1317    int incY = -1;
1318    double x_expected[] = { 0.0412735461225 };
1319    double y_expected[] = { -0.202984126075 };
1320    cblas_drotm(N, X, incX, Y, incY, h);
1321    {
1322      int i;
1323      for (i = 0; i < 1; i++) {
1324        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 758)");
1325      }
1326    };
1327    {
1328      int i;
1329      for (i = 0; i < 1; i++) {
1330        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 759)");
1331      }
1332    };
1333   };
1334
1335
1336   {
1337    int N = 1;
1338    double h[] = { -2.0, 0.0220262018719, -0.00311338149392, -70.6413298654, 31.8952671416 };
1339    double X[] = { 0.203 };
1340    int incX = -1;
1341    double Y[] = { -0.03 };
1342    int incY = -1;
1343    double x_expected[] = { 0.203 };
1344    double y_expected[] = { -0.03 };
1345    cblas_drotm(N, X, incX, Y, incY, h);
1346    {
1347      int i;
1348      for (i = 0; i < 1; i++) {
1349        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 760)");
1350      }
1351    };
1352    {
1353      int i;
1354      for (i = 0; i < 1; i++) {
1355        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 761)");
1356      }
1357    };
1358   };
1359
1360
1361   {
1362    int N = 1;
1363    double h[] = { -1.0, 1.549812806922e+04, -4.868519165134e+04, -5.230242596804e+04, 1.58043443456e+04 };
1364    double X[] = { 0.203 };
1365    int incX = -1;
1366    double Y[] = { -0.03 };
1367    int incY = -1;
1368    double x_expected[] = { 4.715192777093e+03 };
1369    double y_expected[] = { -1.035722423559e+04 };
1370    cblas_drotm(N, X, incX, Y, incY, h);
1371    {
1372      int i;
1373      for (i = 0; i < 1; i++) {
1374        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 762)");
1375      }
1376    };
1377    {
1378      int i;
1379      for (i = 0; i < 1; i++) {
1380        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 763)");
1381      }
1382    };
1383   };
1384
1385
1386   {
1387    int N = 1;
1388    double h[] = { 0.0, -3.30917942895, -0.0100316602276, -0.0222191220411, -0.0881815578726 };
1389    double X[] = { 0.203 };
1390    int incX = -1;
1391    double Y[] = { -0.03 };
1392    int incY = -1;
1393    double x_expected[] = { 0.203666573661 };
1394    double y_expected[] = { -0.0320364270262 };
1395    cblas_drotm(N, X, incX, Y, incY, h);
1396    {
1397      int i;
1398      for (i = 0; i < 1; i++) {
1399        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 764)");
1400      }
1401    };
1402    {
1403      int i;
1404      for (i = 0; i < 1; i++) {
1405        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 765)");
1406      }
1407    };
1408   };
1409
1410
1411   {
1412    int N = 1;
1413    double h[] = { 1.0, 5.68327898035, 1.646867755046e-04, -0.106527931872, -28.2458905362 };
1414    double X[] = { 0.203 };
1415    int incX = -1;
1416    double Y[] = { -0.03 };
1417    int incY = -1;
1418    double x_expected[] = { 1.12370563301 };
1419    double y_expected[] = { 0.644376716086 };
1420    cblas_drotm(N, X, incX, Y, incY, h);
1421    {
1422      int i;
1423      for (i = 0; i < 1; i++) {
1424        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 766)");
1425      }
1426    };
1427    {
1428      int i;
1429      for (i = 0; i < 1; i++) {
1430        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 767)");
1431      }
1432    };
1433   };
1434
1435
1436   {
1437    int N = 1;
1438    double h[] = { -2.0, 2.20585352008, 1.117638462348e+03, -0.116329468158, 0.00362096329059 };
1439    double X[] = { 0.203 };
1440    int incX = -1;
1441    double Y[] = { -0.03 };
1442    int incY = -1;
1443    double x_expected[] = { 0.203 };
1444    double y_expected[] = { -0.03 };
1445    cblas_drotm(N, X, incX, Y, incY, h);
1446    {
1447      int i;
1448      for (i = 0; i < 1; i++) {
1449        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 768)");
1450      }
1451    };
1452    {
1453      int i;
1454      for (i = 0; i < 1; i++) {
1455        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 769)");
1456      }
1457    };
1458   };
1459
1460
1461   {
1462    int N = 1;
1463    double h[] = { -1.0, -0.00182683798892, -2.288460066516e-05, -37.55844708, -9.54075659826e-05 };
1464    double X[] = { 0.203 };
1465    int incX = -1;
1466    double Y[] = { -0.03 };
1467    int incY = -1;
1468    double x_expected[] = { 1.12638256429 };
1469    double y_expected[] = { -1.783346955549e-06 };
1470    cblas_drotm(N, X, incX, Y, incY, h);
1471    {
1472      int i;
1473      for (i = 0; i < 1; i++) {
1474        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 770)");
1475      }
1476    };
1477    {
1478      int i;
1479      for (i = 0; i < 1; i++) {
1480        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 771)");
1481      }
1482    };
1483   };
1484
1485
1486   {
1487    int N = 1;
1488    double h[] = { 0.0, 1.02690456955e-04, -20.1292302013, -1.703870486677e-04, 5.17477399477 };
1489    double X[] = { 0.203 };
1490    int incX = -1;
1491    double Y[] = { -0.03 };
1492    int incY = -1;
1493    double x_expected[] = { 0.203005111611 };
1494    double y_expected[] = { -4.11623373087 };
1495    cblas_drotm(N, X, incX, Y, incY, h);
1496    {
1497      int i;
1498      for (i = 0; i < 1; i++) {
1499        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 772)");
1500      }
1501    };
1502    {
1503      int i;
1504      for (i = 0; i < 1; i++) {
1505        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 773)");
1506      }
1507    };
1508   };
1509
1510
1511 }