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
Wrap
Text File
|
1987-08-09
|
232b
|
12 lines
program vtest
common a
dimension a(3000, 50)
equivalence (i, d7)
do i = 1, 3000
do j = 1, 50
a(i, j) = float(i * j)
end do
end do
call shell('procs', i)
end