Accueil Explorer Aide
S'inscrire Connexion
lij
/
PS_Method_CCS_test
1
0
Fork 0
Fichiers Tickets 0 Pull Requests 0 Wiki
Aborescence: 6f9ff47688
Branches Tags
PS_Method_CC...
/
libf2c
/
etime_.c

etime_.c 830 B
Historique Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 
  1. #include "time.h"
    2. 

  2. 

  3. #ifdef MSDOS
    4. 

  4. #undef USE_CLOCK
    5. 

  5. #define USE_CLOCK
    6. 

  6. #endif
    7. 

  7. 

  8. #ifndef REAL
    9. 

  9. #define REAL double
    10. 

  10. #endif
    11. 

  11. 

  12. #ifndef USE_CLOCK
    13. 

  13. #define _INCLUDE_POSIX_SOURCE	/* for HP-UX */
    14. 

  14. #define _INCLUDE_XOPEN_SOURCE	/* for HP-UX */
    15. 

  15. #include "ctype.h"
    16. 

  16. #include "time.h"
    17. 

  17. #ifdef __cplusplus
    18. 

  18. extern "C" {
    19. 

  19. #endif
    20. 

  20. #endif
    21. 

  21. 

  22. #undef Hz
    23. 

  23. #ifdef CLK_TCK
    24. 

  24. #define Hz CLK_TCK
    25. 

  25. #else
    26. 

  26. #ifdef HZ
    27. 

  27. #define Hz HZ
    28. 

  28. #else
    29. 

  29. #define Hz 60
    30. 

  30. #endif
    31. 

  31. #endif
    32. 

  32. 

  33.  REAL
    34. 

  34. #ifdef KR_headers
    35. 

  35. etime_(tarray) float *tarray;
    36. 

  36. #else
    37. 

  37. etime_(float *tarray)
    38. 

  38. #endif
    39. 

  39. {
    40. 

  40. #ifdef USE_CLOCK
    41. 

  41. #ifndef CLOCKS_PER_SECOND
    42. 

  42. #define CLOCKS_PER_SECOND Hz
    43. 

  43. #endif
    44. 

  44. 	double t = clock();
    45. 

  45. 	tarray[1] = 0;
    46. 

  46. 	return tarray[0] = t / CLOCKS_PER_SECOND;
    47. 

  47. #else
    48. 

  48. 	struct tms t;
    49. 

  49. 

  50. 	times(&t);
    51. 

  51. 	return	  (tarray[0] = (double)t.tms_utime/Hz)
    52. 

  52. 		+ (tarray[1] = (double)t.tms_stime/Hz);
    53. 

  53. #endif
    54. 

  54. 	}
    55. 

  55. #ifdef __cplusplus
    56. 

  56. }
    57. 

  57. #endif
    58.