diff options
Diffstat (limited to 'contrib/libf2c/libF77/dtime_.c')
-rw-r--r-- | contrib/libf2c/libF77/dtime_.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/libf2c/libF77/dtime_.c b/contrib/libf2c/libF77/dtime_.c index 4b37320..e2c3a03 100644 --- a/contrib/libf2c/libF77/dtime_.c +++ b/contrib/libf2c/libF77/dtime_.c @@ -45,8 +45,8 @@ dtime_(float *tarray) static struct tms t0; times(&t); - tarray[0] = (t.tms_utime - t0.tms_utime) / Hz; - tarray[1] = (t.tms_stime - t0.tms_stime) / Hz; + tarray[0] = (double)(t.tms_utime - t0.tms_utime) / Hz; + tarray[1] = (double)(t.tms_stime - t0.tms_stime) / Hz; t0 = t; return tarray[0] + tarray[1]; #endif |