From 6224148fdd809170d138216d72b8e6180d626aec Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 17 Feb 2010 13:44:32 +0000 Subject: Reorganization test directory git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1253 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- test/ccured_olden/health/poisson.c | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete mode 100644 test/ccured_olden/health/poisson.c (limited to 'test/ccured_olden/health/poisson.c') 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 -#include -#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; -} - - - - - - -- cgit