27 lines
677 B
C
27 lines
677 B
C
/* A gettimeofday routine to give access to the wall
|
|
clock timer on most UNIX-like systems.
|
|
|
|
This version defines two entry points -- with
|
|
and without appended underscores, so it *should*
|
|
automagically link with FORTRAN */
|
|
|
|
#include <sys/time.h>
|
|
|
|
double mysecond()
|
|
{
|
|
/* struct timeval { long tv_sec;
|
|
long tv_usec; };
|
|
|
|
struct timezone { int tz_minuteswest;
|
|
int tz_dsttime; }; */
|
|
|
|
struct timeval tp;
|
|
struct timezone tzp;
|
|
int i;
|
|
|
|
i = gettimeofday(&tp,&tzp);
|
|
return ( (double) tp.tv_sec + (double) tp.tv_usec * 1.e-6 );
|
|
}
|
|
|
|
double mysecond_() {return mysecond();}
|
|
|