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 "general/tm_time.h"

double tm_cpu_time()
{
   static boolean first = TRUE;
   static clock_t ref;
   static double dref;
   static double dcps;
   clock_t now;
   double dnow;

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

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

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

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

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

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

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

void AFTIME(double *t)
{
  *t = tm_cpu_time();
}
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	#include "utilities/ascConfig.h"
32	#include "general/tm_time.h"
33
34	double tm_cpu_time()
35	{
36	static boolean first = TRUE;
37	static clock_t ref;
38	static double dref;
39	static double dcps;
40	clock_t now;
41	double dnow;
42
43	if( first ) {
44	dcps = (double) CLOCKS_PER_SEC;
45	ref = clock();
46	dref = (double) ref;
47	first = FALSE;
48	}
49	now = clock();
50	dnow = (double) now;
51
52	return( (dnow - dref)/dcps );
53	}
54
55	void tm_cpu_time_ftn_(double *t)
56	{
57	*t = tm_cpu_time();
58	}
59
60	void aftime_(double *t)
61	{
62	*t = tm_cpu_time();
63	}
64
65	void tm_cpu_time_ftn(double *t)
66	{
67	*t = tm_cpu_time();
68	}
69
70	void aftime(double *t)
71	{
72	*t = tm_cpu_time();
73	}
74
75	void TM_CPU_TIME_FTN(double *t)
76	{
77	*t = tm_cpu_time();
78	}
79
80	void AFTIME(double *t)
81	{
82	*t = tm_cpu_time();
83	}