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