/* 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();}