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
test_rotm(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 }
1512