second.c
Go to the documentation of this file.
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_ */


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:56:01