Mathematical constants (RiscSystem)

[Zvika Bar-Deroma]

Hi,
I'm installing  a subroutine library  and need to  know the values  of a
number of mathematical  constants. I would be grateful  if someone could
provide me with the constants for the  RS/6000 (AIX 3.1 w/ xlf) and also
for the PS/2 (AIX 1.2 w/ vs fortran).

Here are the definitions of the required constants:


     ASSUME INTEGERS ARE REPRESENTED IN THE N-DIGIT, BASE-A FORM
               SIGN ( X(N-1)*A**(N-1) + ... + X(1)*A + X(0) )
               WHERE 0 .LE. X(I) .LT. A FOR I=0,...,N-1.
     IPMPAR(1) = A, THE BASE.
     IPMPAR(2) = N, THE NUMBER OF BASE-A DIGITS.
     IPMPAR(3) = A**N - 1, THE LARGEST MAGNITUDE.

  FLOATING-POINT NUMBERS.

     IT IS ASSUMED THAT THE SINGLE AND DOUBLE PRECISION FLOATING
     POINT ARITHMETICS HAVE THE SAME BASE, SAY B, AND THAT THE
     NONZERO NUMBERS ARE REPRESENTED IN THE FORM

               SIGN (B**E) * (X(1)/B + ... + X(M)/B**M)

               WHERE X(I) = 0,1,...,B-1 FOR I=1,...,M,
               X(1) .GE. 1, AND EMIN .LE. E .LE. EMAX.

     IPMPAR(4) = B, THE BASE.

  SINGLE-PRECISION

     IPMPAR(5) = M, THE NUMBER OF BASE-B DIGITS.
     IPMPAR(6) = EMIN, THE SMALLEST EXPONENT E.
     IPMPAR(7) = EMAX, THE LARGEST EXPONENT E.

  DOUBLE-PRECISION

     IPMPAR(8) = M, THE NUMBER OF BASE-B DIGITS.
     IPMPAR(9) = EMIN, THE SMALLEST EXPONENT E.
     IPMPAR(10) = EMAX, THE LARGEST EXPONENT E.

Thanks,
/Zvika


Zvika Bar-Deroma                                  Phone: (+972)-4-292706
Faculty of Aerospace Engineering,                 Fax  : (+972)-4-231848
Technion
Haifa 32000
Israel

BITNET        :   AER7101 at TECHNION
Internet      :   AER7101 at TECHNION.TECHNION.AC.IL
UUCP          :   ...!uunet!pucc.princeton.edu!technion!aer7101