home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / whets / _second.c next >
Encoding:
C/C++ Source or Header  |  1994-07-05  |  498 b   |  25 lines
  1.  
  2.  
  3. #include <sys/time.h>
  4.  
  5. #include <sys/resource.h>
  6.  
  7.  
  8.  
  9. float
  10.  
  11. second ()
  12.  
  13. {
  14.  
  15.     struct rusage ru;
  16.  
  17.  
  18.  
  19. #ifdef MOXIE
  20.  
  21.     static unsigned count = 0;
  22.  
  23.     static unsigned stop;
  24.  
  25.     extern unsigned __Argc;
  26.  
  27.     extern char **__Argv;
  28.  
  29.     if (count == 0 && __Argc > 1) {
  30.  
  31.     stop = atoi(__Argv[__Argc-1]);
  32.  
  33.     }
  34.  
  35.     count += 1;
  36.  
  37.     if (count == stop) exit(0);
  38.  
  39. #endif
  40.  
  41.  
  42.  
  43.     getrusage (0, &ru);
  44.  
  45.     return ((float)ru.ru_utime.tv_sec + ((float)ru.ru_utime.tv_usec / 1.0e6));
  46.  
  47. }
  48.  
  49.