ascend/general/tm_time.c

/*
 *  Time module
 *  by Karl Westerberg
 *  Created: 6/90
 *  Version: $Revision: 1.1 $
 *  Version control file: $RCSfile: tm_time.c,v $
 *  Date last modified: $Date: 2000/01/25 02:21:26 $
 *  Last modified by: $Author: ballan $
 *
 *  This file is part of the Ascend Language Interpreter.
 *
 *  Copyright (C) 1997 Carnegie Mellon University
 *
 *  The Ascend Language Interpreter is free software; you can redistribute
 *  it and/or modify it under the terms of the GNU General Public License as
 *  published by the Free Software Foundation; either version 2 of the
 *  License, or (at your option) any later version.
 *
 *  The Ascend Language Interpreter is distributed in hope that it will be
 *  useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with the program; if not, write to the Free Software Foundation,
 *  Inc., 675 Mass Ave, Cambridge, MA 02139 USA.  Check the file named
 *  COPYING.  COPYING is in ../compiler.
 */

#include <time.h>
#include <utilities/ascConfig.h>
#include <utilities/ascPanic.h>
#include "tm_time.h"

static boolean f_first = TRUE;

double tm_cpu_time(void)
{
   static clock_t ref;
   static double dref;
   static double dcps;
   clock_t now;
   double dnow;

   if( f_first ) {
      dcps = (double) CLOCKS_PER_SEC;
      ref = clock();
      dref = (double) ref;
      f_first = FALSE;
   }
   now = clock();
   dnow = (double) now;

   return( (dnow - dref)/dcps );
}

double tm_reset_cpu_time(void)
{
  f_first = TRUE;
  return tm_cpu_time();
}

void tm_cpu_time_ftn_(double *t)
{
  asc_assert(NULL != t);
  *t = tm_cpu_time();
}

void aftime_(double *t)
{
  asc_assert(NULL != t);
  *t = tm_cpu_time();
}

void tm_cpu_time_ftn(double *t)
{
  asc_assert(NULL != t);
  *t = tm_cpu_time();
}

void aftime(double *t)
{
  asc_assert(NULL != t);
  *t = tm_cpu_time();
}

void TM_CPU_TIME_FTN(double *t)
{
  asc_assert(NULL != t);
  *t = tm_cpu_time();
}

void AFTIME(double *t)
{
  asc_assert(NULL != t);
  *t = tm_cpu_time();
}
1	aw0a	1	/*
2			* Time module
3			* by Karl Westerberg
4			* Created: 6/90
5			* Version: $Revision: 1.1 $
6			* Version control file: $RCSfile: tm_time.c,v $
7			* Date last modified: $Date: 2000/01/25 02:21:26 $
8			* Last modified by: $Author: ballan $
9			*
10			* This file is part of the Ascend Language Interpreter.
11			*
12			* Copyright (C) 1997 Carnegie Mellon University
13			*
14			* The Ascend Language Interpreter is free software; you can redistribute
15			* it and/or modify it under the terms of the GNU General Public License as
16			* published by the Free Software Foundation; either version 2 of the
17			* License, or (at your option) any later version.
18			*
19			* The Ascend Language Interpreter is distributed in hope that it will be
20			* useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
21			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22			* General Public License for more details.
23			*
24			* You should have received a copy of the GNU General Public License
25			* along with the program; if not, write to the Free Software Foundation,
26			* Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check the file named
27			* COPYING. COPYING is in ../compiler.
28			*/
29
30			#include <time.h>
31	johnpye	399	#include <utilities/ascConfig.h>
32			#include <utilities/ascPanic.h>
33			#include "tm_time.h"
34	aw0a	1
35	jds	59	static boolean f_first = TRUE;
36
37			double tm_cpu_time(void)
38	aw0a	1	{
39			static clock_t ref;
40			static double dref;
41			static double dcps;
42			clock_t now;
43			double dnow;
44
45	jds	59	if( f_first ) {
46	aw0a	1	dcps = (double) CLOCKS_PER_SEC;
47			ref = clock();
48			dref = (double) ref;
49	jds	59	f_first = FALSE;
50	aw0a	1	}
51			now = clock();
52			dnow = (double) now;
53
54			return( (dnow - dref)/dcps );
55			}
56
57	jds	59	double tm_reset_cpu_time(void)
58			{
59			f_first = TRUE;
60			return tm_cpu_time();
61			}
62
63	aw0a	1	void tm_cpu_time_ftn_(double *t)
64			{
65	jds	59	asc_assert(NULL != t);
66	aw0a	1	*t = tm_cpu_time();
67			}
68
69			void aftime_(double *t)
70			{
71	jds	59	asc_assert(NULL != t);
72	aw0a	1	*t = tm_cpu_time();
73			}
74
75			void tm_cpu_time_ftn(double *t)
76			{
77	jds	59	asc_assert(NULL != t);
78	aw0a	1	*t = tm_cpu_time();
79			}
80
81			void aftime(double *t)
82			{
83	jds	59	asc_assert(NULL != t);
84	aw0a	1	*t = tm_cpu_time();
85			}
86
87			void TM_CPU_TIME_FTN(double *t)
88			{
89	jds	59	asc_assert(NULL != t);
90	aw0a	1	*t = tm_cpu_time();
91			}
92
93			void AFTIME(double *t)
94			{
95	jds	59	asc_assert(NULL != t);
96	aw0a	1	*t = tm_cpu_time();
97			}