source: trunk/gcc/libf2c/libF77/etime_.c

Last change on this file was 1392, checked in by bird, 21 years ago

This commit was generated by cvs2svn to compensate for changes in r1391,
which included commits to RCS files with non-trunk default branches.

  • Property cvs2svn:cvs-rev set to 1.1.1.2
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 685 bytes
Line 
1#include "time.h"
2
3#ifdef MSDOS
4#undef USE_CLOCK
5#define USE_CLOCK
6#endif
7
8#ifndef USE_CLOCK
9#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
10#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
11#include "sys/types.h"
12#include "sys/times.h"
13#endif
14
15#undef Hz
16#ifdef CLK_TCK
17#define Hz CLK_TCK
18#else
19#ifdef HZ
20#define Hz HZ
21#else
22#define Hz 60
23#endif
24#endif
25
26double
27etime_ (float *tarray)
28{
29#ifdef USE_CLOCK
30#ifndef CLOCKS_PER_SECOND
31#define CLOCKS_PER_SECOND Hz
32#endif
33 double t = clock ();
34 tarray[1] = 0;
35 return tarray[0] = t / CLOCKS_PER_SECOND;
36#else
37 struct tms t;
38
39 times (&t);
40 return (tarray[0] = (double) t.tms_utime / Hz)
41 + (tarray[1] = (double) t.tms_stime / Hz);
42#endif
43}
Note: See TracBrowser for help on using the repository browser.