eesupp/src/timer_stats.c

#include <sys/types.h>
#include <sys/times.h>
#include <sys/time.h>
#include <unistd.h>
/*  Here, we get the definition of the FC_NAMEMANGLE() macro. */
#include "FC_NAMEMANGLE.h"

   static long clktck = 0;
   static double invclktck = 0.0;

   double FC_NAMEMANGLE(cusertime) (void);
   double FC_NAMEMANGLE(csystemtime) (void);
   double FC_NAMEMANGLE(timenow) ();
   void init_timer();

  void init_timer()
   {
     clktck = sysconf(_SC_CLK_TCK);
     invclktck = 1.0/clktck;
     return;
   }

  double FC_NAMEMANGLE(cusertime) (void)
   {
     clock_t blabla;
     struct tms timest;
/* This is useless overhead but we'd need to call init_timer() elsewhere */ 
     if (clktck == 0) init_timer();
 
     blabla = times(&timest);
     return invclktck*timest.tms_utime;
  
   }

  double FC_NAMEMANGLE(csystemtime) (void)
   {
     clock_t blabla;
     struct tms timest;
/* This is useless overhead but we'd need to call init_timer() elsewhere */
     if (clktck == 0) init_timer();
     
     blabla = times(&timest);
     return invclktck*timest.tms_stime;
  
   }


 double FC_NAMEMANGLE(timenow) (void)
  {
struct timeval timestr;
   void *Tzp=0;
 gettimeofday(&timestr, Tzp);

  return (double)timestr.tv_sec+1.0E-06*(double)timestr.tv_usec;
 }

1	#include <sys/types.h>
2	#include <sys/times.h>
3	#include <sys/time.h>
4	#include <unistd.h>
5	/* Here, we get the definition of the FC_NAMEMANGLE() macro. */
6	#include "FC_NAMEMANGLE.h"
7
8	static long clktck = 0;
9	static double invclktck = 0.0;
10
11	double FC_NAMEMANGLE(cusertime) (void);
12	double FC_NAMEMANGLE(csystemtime) (void);
13	double FC_NAMEMANGLE(timenow) ();
14	void init_timer();
15
16	void init_timer()
17	{
18	clktck = sysconf(_SC_CLK_TCK);
19	invclktck = 1.0/clktck;
20	return;
21	}
22
23	double FC_NAMEMANGLE(cusertime) (void)
24	{
25	clock_t blabla;
26	struct tms timest;
27	/* This is useless overhead but we'd need to call init_timer() elsewhere */
28	if (clktck == 0) init_timer();
29
30	blabla = times(&timest);
31	return invclktck*timest.tms_utime;
32
33	}
34
35	double FC_NAMEMANGLE(csystemtime) (void)
36	{
37	clock_t blabla;
38	struct tms timest;
39	/* This is useless overhead but we'd need to call init_timer() elsewhere */
40	if (clktck == 0) init_timer();
41
42	blabla = times(&timest);
43	return invclktck*timest.tms_stime;
44
45	}
46
47
48
49	double FC_NAMEMANGLE(timenow) (void)
50	{
51	struct timeval timestr;
52	void *Tzp=0;
53	gettimeofday(&timestr, Tzp);
54
55	return (double)timestr.tv_sec+1.0E-06*(double)timestr.tv_usec;
56	}
57