********************************************************** Numeric_Inquiry Program to display numeric inquiry intrinsic results. $Revision: 14334 $ ********************************************************** Single kind type : 4 Number = 1.2345678583288E-16 1.2345679104328E-01 1.2345679283142E+01 1.2345678407664E+16 9.9999997764826E-03 ----------------------------------------------------------------------------------------------------------------------------- DIGITS() = 24 24 24 24 24 EPSILON() = 1.1920928955078E-07 1.1920928955078E-07 1.1920928955078E-07 1.1920928955078E-07 1.1920928955078E-07 HUGE() = 3.4028234663853E+38 3.4028234663853E+38 3.4028234663853E+38 3.4028234663853E+38 3.4028234663853E+38 MAXEXPONENT() = 128 128 128 128 128 MINEXPONENT() = -125 -125 -125 -125 -125 PRECISION() = 6 6 6 6 6 RADIX() = 2 2 2 2 2 RANGE() = 37 37 37 37 37 TINY() = 1.1754943508223E-38 1.1754943508223E-38 1.1754943508223E-38 1.1754943508223E-38 1.1754943508223E-38 EXPONENT() = -52 -3 4 54 -6 FRACTION() = 5.5599993467331E-01 9.8765432834625E-01 7.7160495519638E-01 6.8532282114029E-01 6.3999998569489E-01 NEAREST(-) = 1.2345677259799E-16 1.2345678359270E-01 1.2345678329468E+01 1.2345677333922E+16 9.9999988451600E-03 NEAREST(+) = 1.2345679906777E-16 1.2345679849386E-01 1.2345680236816E+01 1.2345679481405E+16 1.0000000707805E-02 RRSPACING() = 9.3281310000000E+06 1.6570090000000E+07 1.2945383000000E+07 1.1497809000000E+07 1.0737418000000E+07 SCALE(x,0) = 1.2345678583288E-16 1.2345679104328E-01 1.2345679283142E+01 1.2345678407664E+16 9.9999997764826E-03 SET_EXPONENT(x,0) = 5.5599993467331E-01 9.8765432834625E-01 7.7160495519638E-01 6.8532282114029E-01 6.3999998569489E-01 SPACING() = 1.3234889800848E-23 7.4505805969238E-09 9.5367431640625E-07 1.0737418240000E+09 9.3132257461548E-10 EPSILON/SPACING = 9.0071992547410E+15 1.6000000000000E+01 1.2500000000000E-01 1.1102230246252E-16 1.2800000000000E+02 EPSILON_DELTA = 1.3234889800848E-23 7.4505805969238E-09 9.5367431640625E-07 1.0737418240000E+09 9.3132257461548E-10 Double kind type : 8 Number = 1.23456789012345603894E-16 1.23456789012345594103E-01 1.23456789012345602430E+01 1.23456789012345600000E+16 1.00000000000000002082E-02 ---------------------------------------------------------------------------------------------------------------------------------------------------------------- DIGITS() = 53 53 53 53 53 EPSILON() = 2.22044604925031308085E-16 2.22044604925031308085E-16 2.22044604925031308085E-16 2.22044604925031308085E-16 2.22044604925031308085E-16 HUGE() = 1.79769313486231570815+308 1.79769313486231570815+308 1.79769313486231570815+308 1.79769313486231570815+308 1.79769313486231570815+308 MAXEXPONENT() = 1024 1024 1024 1024 1024 MINEXPONENT() = -1021 -1021 -1021 -1021 -1021 PRECISION() = 15 15 15 15 15 RADIX() = 2 2 2 2 2 RANGE() = 307 307 307 307 307 TINY() = 2.22507385850720138309-308 2.22507385850720138309-308 2.22507385850720138309-308 2.22507385850720138309-308 2.22507385850720138309-308 EXPONENT() = -52 -3 4 54 -6 FRACTION() = 5.55999948992357606592E-01 9.87654312098764752825E-01 7.71604931327160015186E-01 6.85322848538980622379E-01 6.40000000000000013323E-01 NEAREST(-) = 1.23456789012345579242E-16 1.23456789012345580225E-01 1.23456789012345584666E+01 1.23456789012345580000E+16 9.99999999999999847344E-03 NEAREST(+) = 1.23456789012345628545E-16 1.23456789012345607981E-01 1.23456789012345620193E+01 1.23456789012345620000E+16 1.00000000000000019429E-02 RRSPACING() = 5.00800232619999300000E+15 8.89599918387772100000E+15 6.94999936240447000000E+15 6.17283945061728000000E+15 5.76460752303423500000E+15 SCALE(x,0) = 1.23456789012345603894E-16 1.23456789012345594103E-01 1.23456789012345602430E+01 1.23456789012345600000E+16 1.00000000000000002082E-02 SET_EXPONENT(x,0) = 5.55999948992357606592E-01 9.87654312098764752825E-01 7.71604931327160015186E-01 6.85322848538980622379E-01 6.40000000000000013323E-01 SPACING() = 2.46519032881566189191E-32 1.38777878078144567553E-17 1.77635683940025046468E-15 2.00000000000000000000E+00 1.73472347597680709441E-18 EPSILON/SPACING = 9.00719925474099200000E+15 1.60000000000000000000E+01 1.25000000000000000000E-01 1.11022302462515654042E-16 1.28000000000000000000E+02 EPSILON_DELTA = 2.46519032881566189191E-32 1.38777878078144567553E-17 1.77635683940025046468E-15 2.00000000000000000000E+00 1.73472347597680709441E-18