home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / whets / second.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-05  |  176 b   |  10 lines

  1. #include <sys/types.h>
  2.  
  3. #include <sys/times.h>
  4.  
  5. float
  6.  
  7. second_()
  8.  
  9. {
  10.  
  11.     struct tms buf;
  12.  
  13.     times(&buf);
  14.  
  15.     return(buf.tms_utime*0.02);         /* 1 tick = 1/50 sec */
  16.  
  17. }
  18.  
  19.