|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »tfloattest2«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tfloattest2«
dimension ia(4)
write(6,10)
10 format('0no',11x,'sum',10x,'fejl',11x,'cpu')
pi=arcsin(1)
delta=pi
do 50 no=1,20
sum = 0
v = 0
delta = 0.5*delta
cp1 = systime(1,0,time)
20 do 22 i=1,100000
j=ii1+ii2+ii3*ii4*ii5*ii6*ii7/34
ia(1) = ia(2) + ia(3) + ia(4)
22 continue
v=v+delta
if (v .ge. pi) goto 30
sum = sum + delta*sin(v)
goto 20
30 cp2=systime(1,0,time)
cpu=cp2-cp1
cp1=cp2
fejl = 1 - sum
write(6,40) no,sum,fejl,cpu
40 format(1h ,i2,2f14.8,f14.4)
50 continue
stop
end
▶EOF◀