#ifdef EVAT     /* executing on the EVAT */

#include <sys/types.h>
#include <sys/times.h>
#define  HZ 150

struct  tms mybuffer;

float   second_()
{
	times   (&mybuffer);
	return  ((double) mybuffer.tms_utime / HZ);
}



#else
static   float lastTime = 0.0;
float   second_()
{
	/*we've got a 1 usec timer*/
	float time  =(float)times(0) / 1000000.0;

	/*check for wrap arround, every 2^32 usecs */
	if ( time < lastTime)
		time +=4294.967295;
	lastTime = time;
	return time;
}
#endif  /* which host */