diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-02-17 13:44:32 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-02-17 13:44:32 +0000 |
commit | 6224148fdd809170d138216d72b8e6180d626aec (patch) | |
tree | f67127b4ab6026f5e29d0b6aa69bec4f8a223fb2 /test/ccured_olden/health/poisson.c | |
parent | f9ebf19ba3ca4c3ee67cc88bbea407d4dd734249 (diff) | |
download | compcert-6224148fdd809170d138216d72b8e6180d626aec.tar.gz compcert-6224148fdd809170d138216d72b8e6180d626aec.zip |
Reorganization test directory
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1253 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'test/ccured_olden/health/poisson.c')
-rw-r--r-- | test/ccured_olden/health/poisson.c | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/test/ccured_olden/health/poisson.c b/test/ccured_olden/health/poisson.c deleted file mode 100644 index c3ff696f..00000000 --- a/test/ccured_olden/health/poisson.c +++ /dev/null @@ -1,35 +0,0 @@ -/* For copyright information, see olden_v1.0/COPYRIGHT */ - -/********************************************************** - * poisson.c: handles math routines for health.c * - **********************************************************/ - -#include <stdio.h> -#include <math.h> -#include "health.h" - - -float my_rand(long idum) -{ - long k; - float answer; - - idum ^= MASK; - k = idum / IQ; - idum = IA * (idum - k * IQ) - IR * k; - idum ^= MASK; - if (idum < 0) - idum += IM; - answer = AM * idum; -#ifdef GET_OUT - fprintf(stderr, "my_rand: idum = %d, AM = %e, answer = %4.3f\n", - idum, AM, answer); -#endif GET_OUT - return answer; -} - - - - - - |