| /* A gettimeofday routine to give access to the wall |
| clock timer on most UNIX-like systems. |
| |
| You will need to compile with "-DUNDERSCORE" |
| to get this to link with FORTRAN on many systems. |
| */ |
| |
| #include <sys/time.h> |
| /* int gettimeofday(struct timeval *tp, struct timezone *tzp); */ |
| |
| #ifdef UNDERSCORE |
| double mysecond_() |
| #else |
| double mysecond() |
| #endif |
| { |
| /* 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 ); |
| } |
| |