#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <sys/types.h>
#if HAVE_SYS_PARAM_H
# include <sys/param.h>
#endif
#if TIME_WITH_SYS_TIME
# include <sys/time.h>
# include <time.h>
#else
# if HAVE_SYS_TIME_H
# include <sys/time.h>
# else
# include <time.h>
# endif
#endif
#if HAVE_SYS_TIMES_H
# include <sys/times.h>
#endif
#include <limits.h>
#if HAVE_UNISTD_H
# include <unistd.h>
#endif
#include <errno.h>
#include "f2c.h"
int
G77_system_clock_0 (integer * count, integer * count_rate,
integer * count_max)
{
#if defined (HAVE_TIMES)
struct tms buffer;
unsigned long cnt;
if (count_rate)
{
#ifdef _SC_CLK_TCK
*count_rate = sysconf (_SC_CLK_TCK);
#elif defined CLOCKS_PER_SECOND
*count_rate = CLOCKS_PER_SECOND;
#elif defined CLK_TCK
*count_rate = CLK_TCK;
#elif defined HZ
*count_rate = HZ;
#else
#error Dont know clock tick length
#endif
}
if (count_max)
*count_max = INT_MAX;
cnt = times (&buffer);
if (cnt > (unsigned long) (INT_MAX))
*count = INT_MAX;
else
*count = cnt;
return 0;
#else
errno = ENOSYS;
return -1;
#endif
}