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/etime_.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/etime_.c')
| -rw-r--r-- | libf2c/libF77/etime_.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libf2c/libF77/etime_.c b/libf2c/libF77/etime_.c index e88cfd88648..0c3209d2612 100644 --- a/libf2c/libF77/etime_.c +++ b/libf2c/libF77/etime_.c @@ -41,6 +41,7 @@ etime_(float *tarray) struct tms t; times(&t); - return (tarray[0] = t.tms_utime/Hz) + (tarray[1] = t.tms_stime/Hz); + return (tarray[0] = (double)t.tms_utime/Hz) + + (tarray[1] = (double)t.tms_stime/Hz); #endif } |