<div dir="ltr"><div dir="ltr">On Sun, May 26, 2024 at 4:58 PM <<a href="mailto:oberon-eth@email.cz">oberon-eth@email.cz</a>> wrote:<br></div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div>This procedure is using REAL type which is now 64-bit (double precision).</div><div>But constants c3,c4,c5 have only 8 fractional digits (old single precision REAL type?)</div><div>What are these constants and how to make them having more digits to get double precision?</div><div><br></div><div>Zdenek <br></div><div><br></div></div></blockquote><div>The procedure quoted is intended for use in Project Oberon where the REAL / LONGREAL type is 32-bit.</div><div><br></div><div>A similar procedure was implemented using 64-bit LONGREALs in ETH Native Oberon System3. The source code can be downloaded from here:</div><div><br></div><div><a href="https://github.com/rsdoiel/NativeOberon/blob/main/MathL.Mod.txt">https://github.com/rsdoiel/NativeOberon/blob/main/MathL.Mod.txt</a><br></div><div><br></div><div>The use of hexadecimal numbers for the constants circumvents rounding issues that might occur when different compilers convert them from text to binary. </div><div><br></div><div>--</div><div>Regards,</div><div>Chris Burrows</div><div>CFB Software</div><div><a href="http://www.astrobe.com/RISC5">http://www.astrobe.com/RISC5</a></div><div><br></div></div></div>