radix = 2 (not 16) for floats.

This commit is contained in:
Jean-Marc Zucconi 1995-11-30 15:16:20 +00:00
parent 271a11f321
commit ffa8b104c8
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=2507

View file

@ -0,0 +1,38 @@
*** balanc.f~ Sat Jan 28 00:00:00 1984
--- balanc.f Thu Nov 30 15:35:38 1995
***************
*** 57,63 ****
c
c ------------------------------------------------------------------
c
! radix = 16.0d0
c
b2 = radix * radix
k = 1
--- 57,63 ----
c
c ------------------------------------------------------------------
c
! radix = 2.0d0
c
b2 = radix * radix
k = 1
*** cbal.f~ Sat Jan 28 00:00:00 1984
--- cbal.f Thu Nov 30 15:36:01 1995
***************
*** 62,68 ****
c
c ------------------------------------------------------------------
c
! radix = 16.0d0
c
b2 = radix * radix
k = 1
--- 62,68 ----
c
c ------------------------------------------------------------------
c
! radix = 2.0d0
c
b2 = radix * radix
k = 1