eesupp/src/timer_stats.c

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