From 8d652f11e7c6a728e54cc57a32a45d5516cc916e Mon Sep 17 00:00:00 2001 From: Werner Saar Date: Sun, 6 Mar 2016 08:40:51 +0100 Subject: [PATCH] updated smallscaling.c to build without C99 or C11 increased the threshold value of nep.in to 40 --- benchmark/smallscaling.c | 13 +++++++++---- lapack-netlib/TESTING/nep.in | 2 +- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/benchmark/smallscaling.c b/benchmark/smallscaling.c index daed8f3..9068c61 100644 --- a/benchmark/smallscaling.c +++ b/benchmark/smallscaling.c @@ -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); } diff --git a/lapack-netlib/TESTING/nep.in b/lapack-netlib/TESTING/nep.in index ed6869b..af427fb 100644 --- a/lapack-netlib/TESTING/nep.in +++ b/lapack-netlib/TESTING/nep.in @@ -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 -- 2.7.4