#include "config.h"
#include <sys/types.h>
#include "libgfortran.h"
#include <stdio.h>
#if defined (HAVE_SYS_TIME_H) && defined (HAVE_SYS_RESOURCE_H)
#include <sys/time.h>
#include <sys/resource.h>
#endif
void
prefix(etime_sub) (gfc_array_r4 *t, GFC_REAL_4 *result)
{
GFC_REAL_4 tu, ts, tt, *tp;
index_type dim;
#if defined(HAVE_SYS_TIME_H) && defined(HAVE_SYS_RESOURCE_H)
struct rusage rt;
if (getrusage(RUSAGE_SELF, &rt) == 0)
{
tu = (GFC_REAL_4)(rt.ru_utime.tv_sec + 1.e-6 * rt.ru_utime.tv_usec);
ts = (GFC_REAL_4)(rt.ru_stime.tv_sec + 1.e-6 * rt.ru_stime.tv_usec);
tt = tu + ts;
}
else
{
tu = -1.;
ts = -1.;
tt = -1.;
}
#else
tu = -1.;
ts = -1.;
tt = -1.;
#endif
if (((t->dim[0].ubound + 1 - t->dim[0].lbound)) < 2)
runtime_error ("Insufficient number of elements in TARRAY.");
if (t->dim[0].stride == 0)
t->dim[0].stride = 1;
tp = t->data;
*tp = tu;
tp += t->dim[0].stride;
*tp = ts;
*result = tt;
}
GFC_REAL_4
prefix(etime) (gfc_array_r4 *t)
{
GFC_REAL_4 val;
prefix(etime_sub) (t, &val);
return val;
}
GFC_REAL_4
etime_ (GFC_REAL_4 *t)
{
gfc_array_r4 desc;
GFC_REAL_4 val;
desc.dim[0].lbound = 0;
desc.dim[0].ubound = 1;
desc.dim[0].stride = 1;
desc.data = t;
prefix(etime_sub) (&desc, &val);
return val;
}