home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / whets / _second.c next >
C/C++ Source or Header  |  1994-07-05  |  498b  |  25 lines
  1.  
  2. #include <sys/time.h>
  3. #include <sys/resource.h>
  4.  
  5. float
  6. second ()
  7. {
  8.     struct rusage ru;
  9.  
  10. #ifdef MOXIE
  11.     static unsigned count = 0;
  12.     static unsigned stop;
  13.     extern unsigned __Argc;
  14.     extern char **__Argv;
  15.     if (count == 0 && __Argc > 1) {
  16.     stop = atoi(__Argv[__Argc-1]);
  17.     }
  18.     count += 1;
  19.     if (count == stop) exit(0);
  20. #endif
  21.  
  22.     getrusage (0, &ru);
  23.     return ((float)ru.ru_utime.tv_sec + ((float)ru.ru_utime.tv_usec / 1.0e6));
  24. }
  25.