Browse Source

updated smallscaling.c to build without C99 or C11

increased the threshold value of nep.in to 40
tags/v0.2.16^2
Werner Saar 9 years ago
parent
commit
8d652f11e7
2 changed files with 10 additions and 5 deletions
  1. +9
    -4
      benchmark/smallscaling.c
  2. +1
    -1
      lapack-netlib/TESTING/nep.in

+ 9
- 4
benchmark/smallscaling.c View 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);
}

+ 1
- 1
lapack-netlib/TESTING/nep.in View 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

Loading…
Cancel
Save