home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / f2cbin.zip / f2cbin / example / second_.c < prev   
C/C++ Source or Header  |  1994-08-09  |  245b  |  11 lines
  1. /* GCC/EMX "stub" for fortran real function second_() */
  2. #include <time.h>
  3. #include <sys/times.h>
  4. #include <sys/param.h>
  5. float second_(void)
  6. {
  7.   struct tms clock;
  8.   times(&clock);
  9.   return( ( (float) clock.tms_utime / (float)HZ ) );
  10. }
  11.