Go to the documentation of this file.00001
00002 #include "f2c.h"
00003 #if !defined _WIN32
00004 #include <sys/times.h>
00005 #endif
00006 #include <sys/types.h>
00007 #include <time.h>
00008
00009 #ifndef CLK_TCK
00010 #define CLK_TCK 60
00011 #endif
00012
00013 doublereal second_()
00014 {
00015 #if defined _WIN32
00016 clock_t rusage;
00017
00018 rusage = clock();
00019 return (doublereal)(rusage) / CLOCKS_PER_SEC;
00020 #else
00021 struct tms rusage;
00022
00023 times(&rusage);
00024 return (doublereal)(rusage.tms_utime) / CLK_TCK;
00025 #endif
00026 }
00027