DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦dfc04057d⟧ TextFile

    Length: 10752 (0x2a00)
    Types: TextFile
    Names: »xx«

Derivation

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »xx«

TextFile

    1       dimension ia(4)
    2       write(6,10)
    3   10  format('0no',11x,'sum',10x,'fejl',11x,'cpu')
    4       pi=arcsin(1)
    5       delta=pi
    6       do 50 no=1,20
    7       sum = 0
    8       v = 0
    9       delta = 0.5*delta
   10       cp1 = systime(1,0,time)
   11    20 do 22 i=1,100000
   12       j=ii1+ii2+ii3*ii4*ii5*ii6*ii7/34
   13       ia(1) = ia(2) + ia(3) + ia(4)
   14   22  continue
   15       v=v+delta
   16       if (v .ge. pi) goto 30
   17       sum = sum + delta*sin(v)
   18       goto 20
   19   30  cp2=systime(1,0,time)
   20       cpu=cp2-cp1
   21       cp1=cp2
   22       fejl = 1 - sum
   23       write(6,40) no,sum,fejl,cpu
   24   40  format(1h ,i2,2f14.8,f14.4)
   25   50  continue
   26       stop
   27       end

ftn.  end 19
 index yes


no           sum          fejl           cpu
 1    0.55536037    0.44463963       21.5883
 2    0.79076626    0.20923374       43.1958
 3    0.89861040    0.10138960       86.6938
 4    0.95010930    0.04989070      172.8531
break        8  line  13-17

▶EOF◀