Logo Search packages:      
Sourcecode: gsl version File versions  Download package

test_rotg.c

#include <gsl/gsl_test.h>
#include <gsl/gsl_ieee_utils.h>
#include <gsl/gsl_math.h>
#include <gsl/gsl_cblas.h>

#include "tests.h"

void
test_rotg (void) {
const double flteps = 1e-4, dbleps = 1e-6;
  {
   float a = -1.5f;
   float b = -1.5f;
   float c;
   float s;
   float r_expected = -2.12132034356f;
   float z_expected = 1.41421356237f;
   float c_expected = 0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 166)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 167)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 168)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 169)");
  };


  {
   float a = -1.5f;
   float b = -1.0f;
   float c;
   float s;
   float r_expected = -1.80277563773f;
   float z_expected = 0.554700196225f;
   float c_expected = 0.832050294338f;
   float s_expected = 0.554700196225f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 170)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 171)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 172)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 173)");
  };


  {
   float a = -1.5f;
   float b = -0.1f;
   float c;
   float s;
   float r_expected = -1.50332963784f;
   float z_expected = 0.0665190105238f;
   float c_expected = 0.997785157857f;
   float s_expected = 0.0665190105238f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 174)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 175)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 176)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 177)");
  };


  {
   float a = -1.5f;
   float b = 0.0f;
   float c;
   float s;
   float r_expected = -1.5f;
   float z_expected = -0.0f;
   float c_expected = 1.0f;
   float s_expected = -0.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 178)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 179)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 180)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 181)");
  };


  {
   float a = -1.5f;
   float b = 0.1f;
   float c;
   float s;
   float r_expected = -1.50332963784f;
   float z_expected = -0.0665190105238f;
   float c_expected = 0.997785157857f;
   float s_expected = -0.0665190105238f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 182)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 183)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 184)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 185)");
  };


  {
   float a = -1.5f;
   float b = 1.0f;
   float c;
   float s;
   float r_expected = -1.80277563773f;
   float z_expected = -0.554700196225f;
   float c_expected = 0.832050294338f;
   float s_expected = -0.554700196225f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 186)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 187)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 188)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 189)");
  };


  {
   float a = -1.5f;
   float b = 1.5f;
   float c;
   float s;
   float r_expected = 2.12132034356f;
   float z_expected = -1.41421356237f;
   float c_expected = -0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 190)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 191)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 192)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 193)");
  };


  {
   float a = -1.0f;
   float b = -1.5f;
   float c;
   float s;
   float r_expected = -1.80277563773f;
   float z_expected = 1.80277563773f;
   float c_expected = 0.554700196225f;
   float s_expected = 0.832050294338f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 194)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 195)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 196)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 197)");
  };


  {
   float a = -1.0f;
   float b = -1.0f;
   float c;
   float s;
   float r_expected = -1.41421356237f;
   float z_expected = 1.41421356237f;
   float c_expected = 0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 198)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 199)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 200)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 201)");
  };


  {
   float a = -1.0f;
   float b = -0.1f;
   float c;
   float s;
   float r_expected = -1.00498756211f;
   float z_expected = 0.099503719021f;
   float c_expected = 0.99503719021f;
   float s_expected = 0.099503719021f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 202)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 203)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 204)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 205)");
  };


  {
   float a = -1.0f;
   float b = 0.0f;
   float c;
   float s;
   float r_expected = -1.0f;
   float z_expected = -0.0f;
   float c_expected = 1.0f;
   float s_expected = -0.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 206)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 207)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 208)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 209)");
  };


  {
   float a = -1.0f;
   float b = 0.1f;
   float c;
   float s;
   float r_expected = -1.00498756211f;
   float z_expected = -0.099503719021f;
   float c_expected = 0.99503719021f;
   float s_expected = -0.099503719021f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 210)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 211)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 212)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 213)");
  };


  {
   float a = -1.0f;
   float b = 1.0f;
   float c;
   float s;
   float r_expected = 1.41421356237f;
   float z_expected = -1.41421356237f;
   float c_expected = -0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 214)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 215)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 216)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 217)");
  };


  {
   float a = -1.0f;
   float b = 1.5f;
   float c;
   float s;
   float r_expected = 1.80277563773f;
   float z_expected = -1.80277563773f;
   float c_expected = -0.554700196225f;
   float s_expected = 0.832050294338f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 218)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 219)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 220)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 221)");
  };


  {
   float a = -0.1f;
   float b = -1.5f;
   float c;
   float s;
   float r_expected = -1.50332963784f;
   float z_expected = 15.0332963784f;
   float c_expected = 0.0665190105238f;
   float s_expected = 0.997785157857f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 222)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 223)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 224)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 225)");
  };


  {
   float a = -0.1f;
   float b = -1.0f;
   float c;
   float s;
   float r_expected = -1.00498756211f;
   float z_expected = 10.0498756211f;
   float c_expected = 0.099503719021f;
   float s_expected = 0.99503719021f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 226)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 227)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 228)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 229)");
  };


  {
   float a = -0.1f;
   float b = -0.1f;
   float c;
   float s;
   float r_expected = -0.141421356237f;
   float z_expected = 1.41421356237f;
   float c_expected = 0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 230)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 231)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 232)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 233)");
  };


  {
   float a = -0.1f;
   float b = 0.0f;
   float c;
   float s;
   float r_expected = -0.1f;
   float z_expected = -0.0f;
   float c_expected = 1.0f;
   float s_expected = -0.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 234)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 235)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 236)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 237)");
  };


  {
   float a = -0.1f;
   float b = 0.1f;
   float c;
   float s;
   float r_expected = 0.141421356237f;
   float z_expected = -1.41421356237f;
   float c_expected = -0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 238)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 239)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 240)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 241)");
  };


  {
   float a = -0.1f;
   float b = 1.0f;
   float c;
   float s;
   float r_expected = 1.00498756211f;
   float z_expected = -10.0498756211f;
   float c_expected = -0.099503719021f;
   float s_expected = 0.99503719021f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 242)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 243)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 244)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 245)");
  };


  {
   float a = -0.1f;
   float b = 1.5f;
   float c;
   float s;
   float r_expected = 1.50332963784f;
   float z_expected = -15.0332963784f;
   float c_expected = -0.0665190105238f;
   float s_expected = 0.997785157857f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 246)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 247)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 248)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 249)");
  };


  {
   float a = 0.0f;
   float b = -1.5f;
   float c;
   float s;
   float r_expected = -1.5f;
   float z_expected = 1.0f;
   float c_expected = -0.0f;
   float s_expected = 1.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 250)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 251)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 252)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 253)");
  };


  {
   float a = 0.0f;
   float b = -1.0f;
   float c;
   float s;
   float r_expected = -1.0f;
   float z_expected = 1.0f;
   float c_expected = -0.0f;
   float s_expected = 1.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 254)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 255)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 256)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 257)");
  };


  {
   float a = 0.0f;
   float b = -0.1f;
   float c;
   float s;
   float r_expected = -0.1f;
   float z_expected = 1.0f;
   float c_expected = -0.0f;
   float s_expected = 1.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 258)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 259)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 260)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 261)");
  };


  {
   float a = 0.0f;
   float b = 0.0f;
   float c;
   float s;
   float r_expected = 0.0f;
   float z_expected = 0.0f;
   float c_expected = 1.0f;
   float s_expected = 0.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 262)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 263)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 264)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 265)");
  };


  {
   float a = 0.0f;
   float b = 0.1f;
   float c;
   float s;
   float r_expected = 0.1f;
   float z_expected = 1.0f;
   float c_expected = 0.0f;
   float s_expected = 1.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 266)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 267)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 268)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 269)");
  };


  {
   float a = 0.0f;
   float b = 1.0f;
   float c;
   float s;
   float r_expected = 1.0f;
   float z_expected = 1.0f;
   float c_expected = 0.0f;
   float s_expected = 1.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 270)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 271)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 272)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 273)");
  };


  {
   float a = 0.0f;
   float b = 1.5f;
   float c;
   float s;
   float r_expected = 1.5f;
   float z_expected = 1.0f;
   float c_expected = 0.0f;
   float s_expected = 1.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 274)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 275)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 276)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 277)");
  };


  {
   float a = 0.1f;
   float b = -1.5f;
   float c;
   float s;
   float r_expected = -1.50332963784f;
   float z_expected = -15.0332963784f;
   float c_expected = -0.0665190105238f;
   float s_expected = 0.997785157857f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 278)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 279)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 280)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 281)");
  };


  {
   float a = 0.1f;
   float b = -1.0f;
   float c;
   float s;
   float r_expected = -1.00498756211f;
   float z_expected = -10.0498756211f;
   float c_expected = -0.099503719021f;
   float s_expected = 0.99503719021f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 282)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 283)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 284)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 285)");
  };


  {
   float a = 0.1f;
   float b = -0.1f;
   float c;
   float s;
   float r_expected = -0.141421356237f;
   float z_expected = -1.41421356237f;
   float c_expected = -0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 286)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 287)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 288)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 289)");
  };


  {
   float a = 0.1f;
   float b = 0.0f;
   float c;
   float s;
   float r_expected = 0.1f;
   float z_expected = 0.0f;
   float c_expected = 1.0f;
   float s_expected = 0.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 290)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 291)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 292)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 293)");
  };


  {
   float a = 0.1f;
   float b = 0.1f;
   float c;
   float s;
   float r_expected = 0.141421356237f;
   float z_expected = 1.41421356237f;
   float c_expected = 0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 294)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 295)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 296)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 297)");
  };


  {
   float a = 0.1f;
   float b = 1.0f;
   float c;
   float s;
   float r_expected = 1.00498756211f;
   float z_expected = 10.0498756211f;
   float c_expected = 0.099503719021f;
   float s_expected = 0.99503719021f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 298)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 299)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 300)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 301)");
  };


  {
   float a = 0.1f;
   float b = 1.5f;
   float c;
   float s;
   float r_expected = 1.50332963784f;
   float z_expected = 15.0332963784f;
   float c_expected = 0.0665190105238f;
   float s_expected = 0.997785157857f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 302)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 303)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 304)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 305)");
  };


  {
   float a = 1.0f;
   float b = -1.5f;
   float c;
   float s;
   float r_expected = -1.80277563773f;
   float z_expected = -1.80277563773f;
   float c_expected = -0.554700196225f;
   float s_expected = 0.832050294338f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 306)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 307)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 308)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 309)");
  };


  {
   float a = 1.0f;
   float b = -1.0f;
   float c;
   float s;
   float r_expected = -1.41421356237f;
   float z_expected = -1.41421356237f;
   float c_expected = -0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 310)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 311)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 312)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 313)");
  };


  {
   float a = 1.0f;
   float b = -0.1f;
   float c;
   float s;
   float r_expected = 1.00498756211f;
   float z_expected = -0.099503719021f;
   float c_expected = 0.99503719021f;
   float s_expected = -0.099503719021f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 314)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 315)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 316)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 317)");
  };


  {
   float a = 1.0f;
   float b = 0.0f;
   float c;
   float s;
   float r_expected = 1.0f;
   float z_expected = 0.0f;
   float c_expected = 1.0f;
   float s_expected = 0.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 318)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 319)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 320)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 321)");
  };


  {
   float a = 1.0f;
   float b = 0.1f;
   float c;
   float s;
   float r_expected = 1.00498756211f;
   float z_expected = 0.099503719021f;
   float c_expected = 0.99503719021f;
   float s_expected = 0.099503719021f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 322)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 323)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 324)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 325)");
  };


  {
   float a = 1.0f;
   float b = 1.0f;
   float c;
   float s;
   float r_expected = 1.41421356237f;
   float z_expected = 1.41421356237f;
   float c_expected = 0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 326)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 327)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 328)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 329)");
  };


  {
   float a = 1.0f;
   float b = 1.5f;
   float c;
   float s;
   float r_expected = 1.80277563773f;
   float z_expected = 1.80277563773f;
   float c_expected = 0.554700196225f;
   float s_expected = 0.832050294338f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 330)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 331)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 332)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 333)");
  };


  {
   float a = 1.5f;
   float b = -1.5f;
   float c;
   float s;
   float r_expected = -2.12132034356f;
   float z_expected = -1.41421356237f;
   float c_expected = -0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 334)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 335)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 336)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 337)");
  };


  {
   float a = 1.5f;
   float b = -1.0f;
   float c;
   float s;
   float r_expected = 1.80277563773f;
   float z_expected = -0.554700196225f;
   float c_expected = 0.832050294338f;
   float s_expected = -0.554700196225f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 338)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 339)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 340)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 341)");
  };


  {
   float a = 1.5f;
   float b = -0.1f;
   float c;
   float s;
   float r_expected = 1.50332963784f;
   float z_expected = -0.0665190105238f;
   float c_expected = 0.997785157857f;
   float s_expected = -0.0665190105238f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 342)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 343)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 344)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 345)");
  };


  {
   float a = 1.5f;
   float b = 0.0f;
   float c;
   float s;
   float r_expected = 1.5f;
   float z_expected = 0.0f;
   float c_expected = 1.0f;
   float s_expected = 0.0f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 346)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 347)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 348)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 349)");
  };


  {
   float a = 1.5f;
   float b = 0.1f;
   float c;
   float s;
   float r_expected = 1.50332963784f;
   float z_expected = 0.0665190105238f;
   float c_expected = 0.997785157857f;
   float s_expected = 0.0665190105238f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 350)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 351)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 352)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 353)");
  };


  {
   float a = 1.5f;
   float b = 1.0f;
   float c;
   float s;
   float r_expected = 1.80277563773f;
   float z_expected = 0.554700196225f;
   float c_expected = 0.832050294338f;
   float s_expected = 0.554700196225f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 354)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 355)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 356)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 357)");
  };


  {
   float a = 1.5f;
   float b = 1.5f;
   float c;
   float s;
   float r_expected = 2.12132034356f;
   float z_expected = 1.41421356237f;
   float c_expected = 0.707106781187f;
   float s_expected = 0.707106781187f;
   cblas_srotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, flteps, "srotg(case 358)");
   gsl_test_rel(b, z_expected, flteps, "srotg(case 359)");
   gsl_test_rel(c, c_expected, flteps, "srotg(case 360)");
   gsl_test_rel(s, s_expected, flteps, "srotg(case 361)");
  };


  {
   double a = -1.5;
   double b = -1.5;
   double c;
   double s;
   double r_expected = -2.12132034356;
   double z_expected = 1.41421356237;
   double c_expected = 0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 362)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 363)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 364)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 365)");
  };


  {
   double a = -1.5;
   double b = -1;
   double c;
   double s;
   double r_expected = -1.80277563773;
   double z_expected = 0.554700196225;
   double c_expected = 0.832050294338;
   double s_expected = 0.554700196225;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 366)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 367)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 368)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 369)");
  };


  {
   double a = -1.5;
   double b = -0.1;
   double c;
   double s;
   double r_expected = -1.50332963784;
   double z_expected = 0.0665190105238;
   double c_expected = 0.997785157857;
   double s_expected = 0.0665190105238;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 370)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 371)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 372)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 373)");
  };


  {
   double a = -1.5;
   double b = 0;
   double c;
   double s;
   double r_expected = -1.5;
   double z_expected = -0;
   double c_expected = 1;
   double s_expected = -0;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 374)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 375)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 376)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 377)");
  };


  {
   double a = -1.5;
   double b = 0.1;
   double c;
   double s;
   double r_expected = -1.50332963784;
   double z_expected = -0.0665190105238;
   double c_expected = 0.997785157857;
   double s_expected = -0.0665190105238;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 378)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 379)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 380)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 381)");
  };


  {
   double a = -1.5;
   double b = 1;
   double c;
   double s;
   double r_expected = -1.80277563773;
   double z_expected = -0.554700196225;
   double c_expected = 0.832050294338;
   double s_expected = -0.554700196225;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 382)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 383)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 384)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 385)");
  };


  {
   double a = -1.5;
   double b = 1.5;
   double c;
   double s;
   double r_expected = 2.12132034356;
   double z_expected = -1.41421356237;
   double c_expected = -0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 386)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 387)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 388)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 389)");
  };


  {
   double a = -1;
   double b = -1.5;
   double c;
   double s;
   double r_expected = -1.80277563773;
   double z_expected = 1.80277563773;
   double c_expected = 0.554700196225;
   double s_expected = 0.832050294338;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 390)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 391)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 392)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 393)");
  };


  {
   double a = -1;
   double b = -1;
   double c;
   double s;
   double r_expected = -1.41421356237;
   double z_expected = 1.41421356237;
   double c_expected = 0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 394)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 395)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 396)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 397)");
  };


  {
   double a = -1;
   double b = -0.1;
   double c;
   double s;
   double r_expected = -1.00498756211;
   double z_expected = 0.099503719021;
   double c_expected = 0.99503719021;
   double s_expected = 0.099503719021;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 398)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 399)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 400)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 401)");
  };


  {
   double a = -1;
   double b = 0;
   double c;
   double s;
   double r_expected = -1;
   double z_expected = -0;
   double c_expected = 1;
   double s_expected = -0;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 402)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 403)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 404)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 405)");
  };


  {
   double a = -1;
   double b = 0.1;
   double c;
   double s;
   double r_expected = -1.00498756211;
   double z_expected = -0.099503719021;
   double c_expected = 0.99503719021;
   double s_expected = -0.099503719021;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 406)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 407)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 408)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 409)");
  };


  {
   double a = -1;
   double b = 1;
   double c;
   double s;
   double r_expected = 1.41421356237;
   double z_expected = -1.41421356237;
   double c_expected = -0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 410)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 411)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 412)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 413)");
  };


  {
   double a = -1;
   double b = 1.5;
   double c;
   double s;
   double r_expected = 1.80277563773;
   double z_expected = -1.80277563773;
   double c_expected = -0.554700196225;
   double s_expected = 0.832050294338;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 414)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 415)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 416)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 417)");
  };


  {
   double a = -0.1;
   double b = -1.5;
   double c;
   double s;
   double r_expected = -1.50332963784;
   double z_expected = 15.0332963784;
   double c_expected = 0.0665190105238;
   double s_expected = 0.997785157857;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 418)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 419)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 420)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 421)");
  };


  {
   double a = -0.1;
   double b = -1;
   double c;
   double s;
   double r_expected = -1.00498756211;
   double z_expected = 10.0498756211;
   double c_expected = 0.099503719021;
   double s_expected = 0.99503719021;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 422)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 423)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 424)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 425)");
  };


  {
   double a = -0.1;
   double b = -0.1;
   double c;
   double s;
   double r_expected = -0.141421356237;
   double z_expected = 1.41421356237;
   double c_expected = 0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 426)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 427)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 428)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 429)");
  };


  {
   double a = -0.1;
   double b = 0;
   double c;
   double s;
   double r_expected = -0.1;
   double z_expected = -0;
   double c_expected = 1;
   double s_expected = -0;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 430)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 431)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 432)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 433)");
  };


  {
   double a = -0.1;
   double b = 0.1;
   double c;
   double s;
   double r_expected = 0.141421356237;
   double z_expected = -1.41421356237;
   double c_expected = -0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 434)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 435)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 436)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 437)");
  };


  {
   double a = -0.1;
   double b = 1;
   double c;
   double s;
   double r_expected = 1.00498756211;
   double z_expected = -10.0498756211;
   double c_expected = -0.099503719021;
   double s_expected = 0.99503719021;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 438)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 439)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 440)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 441)");
  };


  {
   double a = -0.1;
   double b = 1.5;
   double c;
   double s;
   double r_expected = 1.50332963784;
   double z_expected = -15.0332963784;
   double c_expected = -0.0665190105238;
   double s_expected = 0.997785157857;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 442)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 443)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 444)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 445)");
  };


  {
   double a = 0;
   double b = -1.5;
   double c;
   double s;
   double r_expected = -1.5;
   double z_expected = 1;
   double c_expected = -0;
   double s_expected = 1;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 446)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 447)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 448)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 449)");
  };


  {
   double a = 0;
   double b = -1;
   double c;
   double s;
   double r_expected = -1;
   double z_expected = 1;
   double c_expected = -0;
   double s_expected = 1;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 450)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 451)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 452)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 453)");
  };


  {
   double a = 0;
   double b = -0.1;
   double c;
   double s;
   double r_expected = -0.1;
   double z_expected = 1;
   double c_expected = -0;
   double s_expected = 1;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 454)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 455)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 456)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 457)");
  };


  {
   double a = 0;
   double b = 0;
   double c;
   double s;
   double r_expected = 0;
   double z_expected = 0;
   double c_expected = 1;
   double s_expected = 0;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 458)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 459)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 460)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 461)");
  };


  {
   double a = 0;
   double b = 0.1;
   double c;
   double s;
   double r_expected = 0.1;
   double z_expected = 1;
   double c_expected = 0;
   double s_expected = 1;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 462)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 463)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 464)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 465)");
  };


  {
   double a = 0;
   double b = 1;
   double c;
   double s;
   double r_expected = 1;
   double z_expected = 1;
   double c_expected = 0;
   double s_expected = 1;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 466)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 467)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 468)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 469)");
  };


  {
   double a = 0;
   double b = 1.5;
   double c;
   double s;
   double r_expected = 1.5;
   double z_expected = 1;
   double c_expected = 0;
   double s_expected = 1;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 470)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 471)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 472)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 473)");
  };


  {
   double a = 0.1;
   double b = -1.5;
   double c;
   double s;
   double r_expected = -1.50332963784;
   double z_expected = -15.0332963784;
   double c_expected = -0.0665190105238;
   double s_expected = 0.997785157857;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 474)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 475)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 476)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 477)");
  };


  {
   double a = 0.1;
   double b = -1;
   double c;
   double s;
   double r_expected = -1.00498756211;
   double z_expected = -10.0498756211;
   double c_expected = -0.099503719021;
   double s_expected = 0.99503719021;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 478)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 479)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 480)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 481)");
  };


  {
   double a = 0.1;
   double b = -0.1;
   double c;
   double s;
   double r_expected = -0.141421356237;
   double z_expected = -1.41421356237;
   double c_expected = -0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 482)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 483)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 484)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 485)");
  };


  {
   double a = 0.1;
   double b = 0;
   double c;
   double s;
   double r_expected = 0.1;
   double z_expected = 0;
   double c_expected = 1;
   double s_expected = 0;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 486)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 487)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 488)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 489)");
  };


  {
   double a = 0.1;
   double b = 0.1;
   double c;
   double s;
   double r_expected = 0.141421356237;
   double z_expected = 1.41421356237;
   double c_expected = 0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 490)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 491)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 492)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 493)");
  };


  {
   double a = 0.1;
   double b = 1;
   double c;
   double s;
   double r_expected = 1.00498756211;
   double z_expected = 10.0498756211;
   double c_expected = 0.099503719021;
   double s_expected = 0.99503719021;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 494)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 495)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 496)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 497)");
  };


  {
   double a = 0.1;
   double b = 1.5;
   double c;
   double s;
   double r_expected = 1.50332963784;
   double z_expected = 15.0332963784;
   double c_expected = 0.0665190105238;
   double s_expected = 0.997785157857;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 498)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 499)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 500)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 501)");
  };


  {
   double a = 1;
   double b = -1.5;
   double c;
   double s;
   double r_expected = -1.80277563773;
   double z_expected = -1.80277563773;
   double c_expected = -0.554700196225;
   double s_expected = 0.832050294338;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 502)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 503)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 504)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 505)");
  };


  {
   double a = 1;
   double b = -1;
   double c;
   double s;
   double r_expected = -1.41421356237;
   double z_expected = -1.41421356237;
   double c_expected = -0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 506)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 507)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 508)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 509)");
  };


  {
   double a = 1;
   double b = -0.1;
   double c;
   double s;
   double r_expected = 1.00498756211;
   double z_expected = -0.099503719021;
   double c_expected = 0.99503719021;
   double s_expected = -0.099503719021;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 510)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 511)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 512)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 513)");
  };


  {
   double a = 1;
   double b = 0;
   double c;
   double s;
   double r_expected = 1;
   double z_expected = 0;
   double c_expected = 1;
   double s_expected = 0;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 514)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 515)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 516)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 517)");
  };


  {
   double a = 1;
   double b = 0.1;
   double c;
   double s;
   double r_expected = 1.00498756211;
   double z_expected = 0.099503719021;
   double c_expected = 0.99503719021;
   double s_expected = 0.099503719021;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 518)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 519)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 520)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 521)");
  };


  {
   double a = 1;
   double b = 1;
   double c;
   double s;
   double r_expected = 1.41421356237;
   double z_expected = 1.41421356237;
   double c_expected = 0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 522)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 523)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 524)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 525)");
  };


  {
   double a = 1;
   double b = 1.5;
   double c;
   double s;
   double r_expected = 1.80277563773;
   double z_expected = 1.80277563773;
   double c_expected = 0.554700196225;
   double s_expected = 0.832050294338;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 526)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 527)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 528)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 529)");
  };


  {
   double a = 1.5;
   double b = -1.5;
   double c;
   double s;
   double r_expected = -2.12132034356;
   double z_expected = -1.41421356237;
   double c_expected = -0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 530)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 531)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 532)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 533)");
  };


  {
   double a = 1.5;
   double b = -1;
   double c;
   double s;
   double r_expected = 1.80277563773;
   double z_expected = -0.554700196225;
   double c_expected = 0.832050294338;
   double s_expected = -0.554700196225;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 534)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 535)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 536)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 537)");
  };


  {
   double a = 1.5;
   double b = -0.1;
   double c;
   double s;
   double r_expected = 1.50332963784;
   double z_expected = -0.0665190105238;
   double c_expected = 0.997785157857;
   double s_expected = -0.0665190105238;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 538)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 539)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 540)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 541)");
  };


  {
   double a = 1.5;
   double b = 0;
   double c;
   double s;
   double r_expected = 1.5;
   double z_expected = 0;
   double c_expected = 1;
   double s_expected = 0;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 542)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 543)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 544)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 545)");
  };


  {
   double a = 1.5;
   double b = 0.1;
   double c;
   double s;
   double r_expected = 1.50332963784;
   double z_expected = 0.0665190105238;
   double c_expected = 0.997785157857;
   double s_expected = 0.0665190105238;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 546)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 547)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 548)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 549)");
  };


  {
   double a = 1.5;
   double b = 1;
   double c;
   double s;
   double r_expected = 1.80277563773;
   double z_expected = 0.554700196225;
   double c_expected = 0.832050294338;
   double s_expected = 0.554700196225;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 550)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 551)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 552)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 553)");
  };


  {
   double a = 1.5;
   double b = 1.5;
   double c;
   double s;
   double r_expected = 2.12132034356;
   double z_expected = 1.41421356237;
   double c_expected = 0.707106781187;
   double s_expected = 0.707106781187;
   cblas_drotg(&a, &b, &c, &s);
   gsl_test_rel(a, r_expected, dbleps, "drotg(case 554)");
   gsl_test_rel(b, z_expected, dbleps, "drotg(case 555)");
   gsl_test_rel(c, c_expected, dbleps, "drotg(case 556)");
   gsl_test_rel(s, s_expected, dbleps, "drotg(case 557)");
  };


}

Generated by  Doxygen 1.6.0   Back to index