/* double precision functions sec and secmic, interfaced from c */

#include <sys/types.h>
#include <sys/time.h>

double sec_()
{
	static struct timeval temp;
	double foo;

	gettimeofday(&temp,0);
/* 
  subtract approximate number of seconds in a decade, so as to make it
  close to since Jan 1, 1980, rather than 1970
*/
	foo = temp.tv_sec + temp.tv_usec / 1000000. - 3.1536e+8 ;
return  foo;
}

double secmic_()
{
	static struct timeval temp;
	double foo;

	gettimeofday(&temp,0);
	foo = temp.tv_usec ;
return  foo;
}