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