home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / yaf77-1.1 / yaf77-1 / yaf77 / F77ext / second.f < prev   
Encoding:
Text File  |  1996-01-15  |  243 b   |  12 lines
  1.       REAL FUNCTION SECOND()
  2.  
  3. ******** RETURNS THE ELAPSED CPU TIME, IN SECONDS.
  4. ******** THIS ROUTINE IS OPERATING SYSTEM-DEPENDENT.
  5.  
  6. *        UNIX VERSION
  7.       REAL ETIME
  8.       REAL TARR(2)
  9.       SECOND = ETIME(TARR)
  10.       RETURN
  11.       END
  12.