Mercurial > hg > sv-dependency-builds
annotate src/fftw-3.3.5/libbench2/mflops.c @ 42:2cd0e3b3e1fd
Current fftw source
author | Chris Cannam |
---|---|
date | Tue, 18 Oct 2016 13:40:26 +0100 |
parents | |
children |
rev | line source |
---|---|
Chris@42 | 1 /* not worth copyrighting */ |
Chris@42 | 2 |
Chris@42 | 3 #include "bench.h" |
Chris@42 | 4 #include <math.h> |
Chris@42 | 5 |
Chris@42 | 6 double mflops(const bench_problem *p, double t) |
Chris@42 | 7 { |
Chris@42 | 8 int size = tensor_sz(p->sz); |
Chris@42 | 9 int vsize = tensor_sz(p->vecsz); |
Chris@42 | 10 |
Chris@42 | 11 if (size <= 1) /* a copy: just return reals copied / time */ |
Chris@42 | 12 switch (p->kind) { |
Chris@42 | 13 case PROBLEM_COMPLEX: |
Chris@42 | 14 return (2.0 * size * vsize / (t * 1.0e6)); |
Chris@42 | 15 case PROBLEM_REAL: |
Chris@42 | 16 case PROBLEM_R2R: |
Chris@42 | 17 return (1.0 * size * vsize / (t * 1.0e6)); |
Chris@42 | 18 } |
Chris@42 | 19 |
Chris@42 | 20 switch (p->kind) { |
Chris@42 | 21 case PROBLEM_COMPLEX: |
Chris@42 | 22 return (5.0 * size * vsize * log((double)size) / |
Chris@42 | 23 (log(2.0) * t * 1.0e6)); |
Chris@42 | 24 case PROBLEM_REAL: |
Chris@42 | 25 case PROBLEM_R2R: |
Chris@42 | 26 return (2.5 * vsize * size * log((double) size) / |
Chris@42 | 27 (log(2.0) * t * 1.0e6)); |
Chris@42 | 28 } |
Chris@42 | 29 BENCH_ASSERT(0 /* can't happen */); |
Chris@42 | 30 return 0.0; |
Chris@42 | 31 } |
Chris@42 | 32 |