home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / progjrn / pj_6_1.arc / WHETLIN.ARC / SECONDL.FOR < prev    next >
Text File  |  1987-12-22  |  227b  |  12 lines
  1. *    a TIME function for LAHEY F77L
  2. *
  3. *    Author:    M. Steven Baker
  4. *    Date:    September 20, 1986
  5. *
  6.        real function second()
  7.        integer*4 iticks
  8.        call timer(iticks)
  9.        second = float(iticks)/100
  10.        end
  11.  
  12.