home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / pd0.lzh / DEMO / float.f < prev    next >
Text File  |  1987-09-02  |  624b  |  32 lines
  1.  options float=hard, CPU=68020
  2.       program float
  3.  
  4.       parameter CONST1 = 3.141597e0
  5.       parameter CONST2 = 1.783903E4
  6.       parameter COUNT = 1000
  7.       real a, b, c
  8.       integer i
  9.       equivalence (a, f7), (b, f6), (c, f5)
  10.       equivalence (i, d7)
  11.      
  12.       a = CONST1
  13.       b = CONST2
  14.       do i = 1, COUNT
  15.         c = a * b
  16.         c = c / a
  17.         c = a * b
  18.         c = c / a
  19.         c = a * b
  20.         c = c / a
  21.         c = a * b
  22.         c = c / a
  23.         c = a * b
  24.         c = c / a
  25.         c = a * b
  26.         c = c / a
  27.         c = a * b
  28.         c = c / a
  29.       end do
  30.       call shell('procs', i)
  31.       end
  32.