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

⟦c86610c32⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »tfloattest1«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tfloattest1«

TextFile

      program speed
      zone out
      external out
      write(out,10)
  10  format('0no',11x,'sum',10x,'fejl',11x,'cpu')
      cp1=systime(1,0,time)
      pi=arcsin(1)
      delta=pi
      do 50 no=1,20
      sum = 0
      v = 0
      delta = 0.5*delta
   20 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(out,40) no,sum,fejl,cpu
  40  format(1h ,i2,2f14.8,f14.4)
  50  continue
      stop
      end
▶EOF◀