updated smallscaling.c to build without C99 or C11
authorWerner Saar <wernsaar@googlemail.com>
Sun, 6 Mar 2016 07:40:51 +0000 (08:40 +0100)
committerWerner Saar <wernsaar@googlemail.com>
Sun, 6 Mar 2016 07:40:51 +0000 (08:40 +0100)
increased the threshold value of nep.in to 40

benchmark/smallscaling.c
lapack-netlib/TESTING/nep.in

index daed8f3..9068c61 100644 (file)
@@ -23,28 +23,32 @@ typedef struct {
 
 void * s_create_matrix(int size) {
     float * r = malloc(size * sizeof(double));
-    for(int i = 0; i < size; i++)
+    int i;
+    for(i = 0; i < size; i++)
         r[i] = 1e3 * i / size;
     return r;
 }
 
 void * c_create_matrix(int size) {
     float * r = malloc(size * 2 * sizeof(double));
-    for(int i = 0; i < 2 * size; i++)
+    int i;
+    for(i = 0; i < 2 * size; i++)
         r[i] = 1e3 * i / size;
     return r;
 }
 
 void * z_create_matrix(int size) {
     double * r = malloc(size * 2 * sizeof(double));
-    for(int i = 0; i < 2 * size; i++)
+    int i;
+    for(i = 0; i < 2 * size; i++)
         r[i] = 1e3 * i / size;
     return r;
 }
 
 void * d_create_matrix(int size) {
     double * r = malloc(size * sizeof(double));
-    for(int i = 0; i < size; i++)
+    int i;
+    for(i = 0; i < size; i++)
         r[i] = 1e3 * i / size;
     return r;
 }
@@ -188,4 +192,5 @@ int main(int argc, char * argv[]) {
             size *= inc_factor;
         }
     }
+    return(0);
 }
index ed6869b..af427fb 100644 (file)
@@ -10,7 +10,7 @@ NEP:  Data file for testing Nonsymmetric Eigenvalue Problem routines
   0   5   7    3  200             Values of INIBL  (nibble crossover point)
   1   2   4    2    1             Values of ISHFTS (number of simultaneous shifts)
   0   1   2    0    1             Values of IACC22 (select structured matrix multiply: 0, 1 or 2)
-30.0                              Threshold value
+40.0                              Threshold value
 T                                 Put T to test the error exits
 1                                 Code to interpret the seed
 NEP  21