Corretta moltiplicazione di un reale < 1 con un double

git-svn-id: svn://10.65.10.50/trunk@6155 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1998-02-09 14:20:24 +00:00
parent 1c2ee5aafb
commit 35ed35349b

View File

@ -713,14 +713,18 @@ real operator *(
real operator *(double a, const real & b)
{
muldfd (__tmp_real.ptr (), b.ptr (), a);
__tmp_real = a;
dmul(__tmp_real.ptr (), __tmp_real.ptr (), b.ptr ());
/* muldfd (__tmp_real.ptr (), b.ptr (), a); */
__tmp_real.trail( );
return __tmp_real;
}
real operator *(const real & a, double b)
{
muldfd (__tmp_real.ptr (), a.ptr (), b);
__tmp_real = b;
dmul (__tmp_real.ptr (), a.ptr (), __tmp_real.ptr ());
/* muldfd (__tmp_real.ptr (), a.ptr (), b); */
__tmp_real.trail( );
return __tmp_real;
}