summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libF77/etime_.c
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/lib/libf2c/libF77/etime_.c')
-rw-r--r--gnu/lib/libf2c/libF77/etime_.c43
1 files changed, 0 insertions, 43 deletions
diff --git a/gnu/lib/libf2c/libF77/etime_.c b/gnu/lib/libf2c/libF77/etime_.c
deleted file mode 100644
index cc64612c8d9..00000000000
--- a/gnu/lib/libf2c/libF77/etime_.c
+++ /dev/null
@@ -1,43 +0,0 @@
-#include "time.h"
-
-#ifdef MSDOS
-#undef USE_CLOCK
-#define USE_CLOCK
-#endif
-
-#ifndef USE_CLOCK
-#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
-#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
-#include "sys/types.h"
-#include "sys/times.h"
-#endif
-
-#undef Hz
-#ifdef CLK_TCK
-#define Hz CLK_TCK
-#else
-#ifdef HZ
-#define Hz HZ
-#else
-#define Hz 60
-#endif
-#endif
-
-double
-etime_ (float *tarray)
-{
-#ifdef USE_CLOCK
-#ifndef CLOCKS_PER_SECOND
-#define CLOCKS_PER_SECOND Hz
-#endif
- double t = clock ();
- tarray[1] = 0;
- return tarray[0] = t / CLOCKS_PER_SECOND;
-#else
- struct tms t;
-
- times (&t);
- return (tarray[0] = (double) t.tms_utime / Hz)
- + (tarray[1] = (double) t.tms_stime / Hz);
-#endif
-}