home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / progjrn / pj_6_1.arc / WHETLIN.ARC / SECONDP.FOR < prev    next >
Text File  |  1987-12-22  |  272b  |  12 lines
  1. *     a SECOND function for Prospero Fortran 77
  2.  
  3. *    Author:    M. Steven Baker
  4. *    Date:    May 20, 1987
  5. *
  6.        real function second()
  7.        integer*4 hh,mm,ss,hd
  8.        call TIME(hh,mm,ss,hd)
  9.        second = float(hh)*3600 + float(mm*60+ss) + float(hd)/100
  10.        end
  11.  
  12.