Mercurial > forge
view main/sparse/SuperLU/SRC/superlu_timer.c @ 0:6b33357c7561 octave-forge
Initial revision
author | pkienzle |
---|---|
date | Wed, 10 Oct 2001 19:54:49 +0000 |
parents | |
children |
line wrap: on
line source
/* * Purpose * ======= * Returns the time in seconds used by the process. * * Note: the timer function call is machine dependent. Use conditional * compilation to choose the appropriate function. * */ #ifdef SUN /* * It uses the system call gethrtime(3C), which is accurate to * nanoseconds. */ #include <sys/time.h> double SuperLU_timer_() { return ( (double)gethrtime() / 1e9 ); } #else #include <sys/types.h> #include <sys/times.h> #include <time.h> #include <sys/time.h> #ifndef CLK_TCK #define CLK_TCK 60 #endif double SuperLU_timer_() { struct tms use; double tmp; times(&use); tmp = use.tms_utime; tmp += use.tms_stime; return (double)(tmp) / CLK_TCK; } #endif