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