Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!sdd.hp.com!wuarchive!uunet!mcsun!hp4nl!cwi.nl!dik
From: dik@cwi.nl (Dik T. Winter)
Newsgroups: comp.lang.fortran
Subject: Re: making xlf more like f77
Message-ID: <3593@charon.cwi.nl>
Date: 27 May 91 00:08:26 GMT
References: <390@validgh.com>
Sender: news@cwi.nl
Organization: CWI, Amsterdam
Lines: 18

In article <390@validgh.com> dgh@validgh.com (David G. Hough on validgh) writes:
 > You also need to link with a home-brew library that will define familiar but
 > nonstandard functions like etime(3f).
 > 
Here a replacement for etime if you use the function result only.  It
ignores its parameter:
      REAL FUNCTION ETIME(IGN)
      INTEGER MCLOCK
      EXTERNAL MCLOCK
C
C     HARUMPH.  THE MANUAL TELLS IT IS IN 60TH OF A SECOND.
C     EXPERIMENTS TELL SOMETHING DIFFERENT!
      ETIME = MCLOCK() / 100.0
      RETURN
      END
--
dik t. winter, cwi, amsterdam, nederland
dik@cwi.nl