home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / pd0.lzh / DEMO / vtest.f < prev   
Text File  |  1987-08-09  |  232b  |  12 lines
  1.       program vtest
  2.       common a
  3.       dimension a(3000, 50)
  4.       equivalence (i, d7)
  5.       do i = 1, 3000
  6.         do j = 1, 50
  7.            a(i, j) = float(i * j)
  8.         end do
  9.       end do
  10.       call shell('procs', i)
  11.       end
  12.