home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / pd0.lzh / DEMO / bench.f next >
Text File  |  1987-09-02  |  318b  |  18 lines
  1.  options float=hard, CPU=68020
  2.       program bench
  3.  
  4.       parameter COUNT = 10000
  5.       real s
  6.       integer i
  7. c      equivalence (s, f0)
  8.       equivalence (i, d7)
  9.  
  10.       s = 0.0
  11.       do i = 1, COUNT
  12.       s = s + atan(tan(alog(exp(sqrt(i*i)/i))))
  13.       end do
  14.       call shell('procs', i)
  15.       type *, s
  16.       end
  17.  
  18.