Fortran to Xojo

General
1

Hello my friends,
I’m trying to translate a Fortran program into Xojo.
This program is about finding all the roots of a polynomial “Algorithm 493: Zeros of a Real Polynomial”.
I have a few questions regarding certain values.
ETA : The maximum relative representation error which can be described as the
smallest positive floating-point number such that 1 + ETA > 1.
INFIN : The largest floating-point number.
SMALNO : The smallest positive floating-point number if the exponent range differs in single and double precision then SMALNO and INFIN should indicate the smaller range.
BASE : The base of the floating-point number system used.

The values below correspond to the Burroughs B6700 :
BASE = 8
ETA = .5*BASE**(1-26)
INFIN = 4.3E68
SMALNO = 1.0E-45

With Xojo (2024):
BASE = ?
ETA : I don’t understand the exponent (1-26).
The maximum value of a Double is (INFIN): ±1.79769313486231570814527423731704357e+308
The minimum value towards zero is (SMALNO): ±4.94065645841246544176568792868221372e-324

If anyone could enlighten me I would be very grateful.

2

I got the answer from a Fortran forum.
I discovered and learned a lot about IEEE 754 on number management in computer science. IEEE 754 — Wikipédia
I don’t know how to share a program on this forum but if anyone is interested in a program that gives the roots of any polynomial (even with complex roots), I will be happy to provide it.

3

@Benoit_Griveau smaller files, saved as a Xojo binary project and zipped can be dragged into your post in the browser (just drag it into the text field) and will appear like this:

sample shared project.xojo_binary_project.zip (4.2 KB)