diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2000-12-09 16:34:53 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2000-12-09 15:34:53 +0000 |
| commit | a40bb4d3457a605b5fdb63da04aae6bfa02938e5 (patch) | |
| tree | e96069addc998cc95cee16e821cf01a3d8ae6b6f /libf2c/libF77/dtime_.c | |
| parent | 976654912051f4b6680973c01da45c3697645f24 (diff) | |
| download | gcc-a40bb4d3457a605b5fdb63da04aae6bfa02938e5.zip gcc-a40bb4d3457a605b5fdb63da04aae6bfa02938e5.tar.gz gcc-a40bb4d3457a605b5fdb63da04aae6bfa02938e5.tar.bz2 | |
Update to Netlib version 20001205.
2000-12-09 Toon Moene <toon@moene.indiv.nluug.nl>
Update to Netlib version 20001205.
Thanks go to David M. Gay for these updates.
* libF77/Version.c: Update version information.
* libF77/z_log.c: Improve accuracy of real(log(z)) for
z near (+-1,eps) with |eps| small.
* libF77/s_cat.c: Adjust call when ftnint and ftnlen are
of different size.
* libF77/dtime_.c, libF77/etime_.c: Use floating point divide.
* libI77/Version.c: Update version information.
* libI77/rsne.c, libI77/xwsne.c: Adjust code for when ftnint
and ftnlen differ in size.
* libI77/lread.c: Fix reading of namelist logical values followed
by <name>= where <name> starts with T or F.
From-SVN: r38152
Diffstat (limited to 'libf2c/libF77/dtime_.c')
| -rw-r--r-- | libf2c/libF77/dtime_.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libf2c/libF77/dtime_.c b/libf2c/libF77/dtime_.c index 4b37320..e2c3a03 100644 --- a/libf2c/libF77/dtime_.c +++ b/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 |