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

   1 #include <gsl/gsl_test.h>
   2 #include <gsl/gsl_ieee_utils.h>
   3 #include <gsl/gsl_math.h>
   4 #include <gsl/gsl_cblas.h>
   5
   6 #include "tests.h"
   7
   8 void
   9 test_amax (void) {
  10   {
  11    int N = 1;
  12    float X[] = { -0.388f };
  13    int incX = -1;
  14    int expected = 0;
  15    int k;
  16    k = cblas_isamax(N, X, incX);
  17    gsl_test_int(k, expected, "samax(case 52)");
  18   };
  19
  20
  21   {
  22    int N = 1;
  23    double X[] = { 0.247 };
  24    int incX = -1;
  25    int expected = 0;
  26    int k;
  27    k = cblas_idamax(N, X, incX);
  28    gsl_test_int(k, expected, "damax(case 53)");
  29   };
  30
  31
  32   {
  33    int N = 1;
  34    float X[] = { 0.704f, 0.665f };
  35    int incX = -1;
  36    int expected = 0;
  37    int k;
  38    k = cblas_icamax(N, X, incX);
  39    gsl_test_int(k, expected, "camax(case 54)");
  40   };
  41
  42
  43   {
  44    int N = 1;
  45    double X[] = { -0.599, -0.758 };
  46    int incX = -1;
  47    int expected = 0;
  48    int k;
  49    k = cblas_izamax(N, X, incX);
  50    gsl_test_int(k, expected, "zamax(case 55)");
  51   };
  52
  53
  54   {
  55    int N = 2;
  56    float X[] = { 0.909f, 0.037f };
  57    int incX = 1;
  58    int expected = 0;
  59    int k;
  60    k = cblas_isamax(N, X, incX);
  61    gsl_test_int(k, expected, "samax(case 56)");
  62   };
  63
  64
  65   {
  66    int N = 2;
  67    double X[] = { 0.271, -0.426 };
  68    int incX = 1;
  69    int expected = 1;
  70    int k;
  71    k = cblas_idamax(N, X, incX);
  72    gsl_test_int(k, expected, "damax(case 57)");
  73   };
  74
  75
  76   {
  77    int N = 2;
  78    float X[] = { -0.648f, 0.317f, 0.62f, 0.392f };
  79    int incX = 1;
  80    int expected = 1;
  81    int k;
  82    k = cblas_icamax(N, X, incX);
  83    gsl_test_int(k, expected, "camax(case 58)");
  84   };
  85
  86
  87   {
  88    int N = 2;
  89    double X[] = { -0.789, 0.352, 0.562, 0.697 };
  90    int incX = 1;
  91    int expected = 1;
  92    int k;
  93    k = cblas_izamax(N, X, incX);
  94    gsl_test_int(k, expected, "zamax(case 59)");
  95   };
  96
  97
  98   {
  99    int N = 2;
 100    float X[] = { 0.487f, 0.918f };
 101    int incX = -1;
 102    int expected = 0;
 103    int k;
 104    k = cblas_isamax(N, X, incX);
 105    gsl_test_int(k, expected, "samax(case 60)");
 106   };
 107
 108
 109   {
 110    int N = 2;
 111    double X[] = { 0.537, 0.826 };
 112    int incX = -1;
 113    int expected = 0;
 114    int k;
 115    k = cblas_idamax(N, X, incX);
 116    gsl_test_int(k, expected, "damax(case 61)");
 117   };
 118
 119
 120   {
 121    int N = 2;
 122    float X[] = { 0.993f, 0.172f, -0.825f, 0.873f };
 123    int incX = -1;
 124    int expected = 0;
 125    int k;
 126    k = cblas_icamax(N, X, incX);
 127    gsl_test_int(k, expected, "camax(case 62)");
 128   };
 129
 130
 131   {
 132    int N = 2;
 133    double X[] = { 0.913, -0.436, -0.134, 0.129 };
 134    int incX = -1;
 135    int expected = 0;
 136    int k;
 137    k = cblas_izamax(N, X, incX);
 138    gsl_test_int(k, expected, "zamax(case 63)");
 139   };
 140
 141
 142 }