diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-12-09 15:34:53 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-12-09 15:34:53 +0000 |
| commit | b29c5077c085dc32c9ce06e3d8e665d678c5744c (patch) | |
| tree | e96069addc998cc95cee16e821cf01a3d8ae6b6f /libf2c/libF77/dtime_.c | |
| parent | 877b19cd944f9d6cee9e6512a40699294147401d (diff) | |
| download | gcc-b29c5077c085dc32c9ce06e3d8e665d678c5744c.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@38152 138bc75d-0d04-0410-961f-82ee72b054a4
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 4b37320d43b..e2c3a03cb7a 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 |