00001 #include "f2c.h" 00002 #include <sys/times.h> 00003 #include <sys/types.h> 00004 #include <time.h> 00005 00006 #ifndef CLK_TCK 00007 #define CLK_TCK 60 00008 #endif 00009 00010 doublereal second_() 00011 { 00012 struct tms rusage; 00013 00014 times(&rusage); 00015 return (doublereal)(rusage.tms_utime) / CLK_TCK; 00016 00017 } /* second_ */