floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updated smallscaling.c to build without C99 or C11 

increased the threshold value of nep.in to 40
This commit is contained in:
Werner Saar 2016-03-06 08:40:51 +01:00
parent 6c86570e1f
commit 8d652f11e7
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
benchmark/smallscaling.c
View File

@ -23,28 +23,32 @@ typedef struct {
void * s_create_matrix(int size) { void * s_create_matrix(int size) {
float * r = malloc(size * sizeof(double)); 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; r[i] = 1e3 * i / size;
return r; return r;
} }
void * c_create_matrix(int size) { void * c_create_matrix(int size) {
float * r = malloc(size * 2 * sizeof(double)); 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; r[i] = 1e3 * i / size;
return r; return r;
} }
void * z_create_matrix(int size) { void * z_create_matrix(int size) {
double * r = malloc(size * 2 * sizeof(double)); 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; r[i] = 1e3 * i / size;
return r; return r;
} }
void * d_create_matrix(int size) { void * d_create_matrix(int size) {
double * r = malloc(size * sizeof(double)); 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; r[i] = 1e3 * i / size;
return r; return r;
} }
@ -188,4 +192,5 @@ int main(int argc, char * argv[]) {
size *= inc_factor; size *= inc_factor;
} }
} }
return(0);
} }

2
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) 0 5 7 3 200 Values of INIBL (nibble crossover point)
1 2 4 2 1 Values of ISHFTS (number of simultaneous shifts) 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) 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 T Put T to test the error exits
1 Code to interpret the seed 1 Code to interpret the seed
NEP 21 NEP 21