blob: 6d1dc23bfda3857e1a3dcf387aaeed141f2fbca1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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
|