# floating.txt, 15 Feb 10

!title cpu-floating

#  K = 1... SMALLEST POS. ETA SUCH THAT -ETA EXISTS.
#  K = 2... SQUARE ROOT OF ETA.
#  K = 3... UNIT ROUNDOFF = SMALLEST POS. NO. MACHEP SUCH
#           THAT 1 + MACHEP .GT. 1 .AND. 1 - MACHEP .LT. 1.
#  K = 4... SQUARE ROOT OF MACHEP.
#  K = 5... SQUARE ROOT OF BIG (SEE K = 6).
#  K = 6... LARGEST MACHINE NO. BIG SUCH THAT -BIG EXISTS.

#  +++  IBM 360, IBM 370, OR XEROX  +++
BIG/Z7FFFFFFFFFFFFFFF/
ETA/Z0010000000000000/
MACHEP/Z3410000000000000/

#  +++  DATA GENERAL  +++
BIG/0.7237005577D+76/
ETA/0.5397605347D-78/
MACHEP/2.22044605D-16/

#  +++  DEC 11  +++
BIG/1.7D+38/
ETA/2.938735878D-39/
MACHEP/2.775557562D-17/

#  +++  HP3000  +++
BIG/1.157920892D+77/
ETA/8.636168556D-78/,
MACHEP/5.551115124D-17/

#  +++  HONEYWELL  +++
C     DATA BIG/1.69D+38/, ETA/5.9D-39/, MACHEP/2.1680435D-19/

#  +++  DEC10  +++
BIG/"377777100000000000000000/
ETA/"002400400000000000000000/
MACHEP/"104400000000000000000000/

#  +++  BURROUGHS  +++
BIG/O0777777777777777,O7777777777777777/
ETA/O1771000000000000,O7770000000000000/
MACHEP/O1451000000000000,O0000000000000000/

#  +++  CONTROL DATA  +++
BIG/37767777777777777777B,37167777777777777777B/
ETA/00014000000000000000B,00000000000000000000B/
MACHEP/15614000000000000000B,15010000000000000000B/

#  +++  PRIME  +++
BIG/1.0D+9786/
ETA/1.0D-9860/
MACHEP/1.4210855D-14/

#  +++  UNIVAC  +++
BIG/8.988D+307/
ETA/1.2D-308/
MACHEP/1.734723476D-18/

#  +++  VAX  +++
BIG/1.7D+38/
ETA/2.939D-39/
MACHEP/1.3877788D-17/

#  +++  Convex C-1  +++
BIG/8.98D+307/
ETA/5.563D-309/
MACHEP/2.22044605D-16/

#  +++  CRAY 1  +++
BIGI(1)/577767777777777777777B/
BIGI(2)/000007777777777777776B/
ETAI(1)/200004000000000000000B/
ETAI(2)/000000000000000000000B/
MACHEI(1)/377224000000000000000B/
MACHEI(2)/000000000000000000000B/

C     CUTLO, S.P.   U/EPS = 2**(-102) FOR  HONEYWELL.  CLOSE SECONDS ARE
C                   UNIVAC AND DEC AT 2**(-103)
C                   THUS CUTLO = 2**(-51) = 4.44089E-16
C     CUTHI, S.P.   V = 2**127 FOR UNIVAC, HONEYWELL, AND DEC.
C                   THUS CUTHI = 2**(63.5) = 1.30438E19
C     CUTLO, D.P.   U/EPS = 2**(-67) FOR HONEYWELL AND DEC.
C                   THUS CUTLO = 2**(-33.5) = 8.23181D-11

