home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
adaptor.zip
/
adapt.zip
/
adaptor
/
examples
/
dalib
/
replic
/
rep1.f
< prev
next >
Wrap
Text File
|
1993-03-23
|
208b
|
18 lines
program replicate
real a(10), ra(5), x
cmf$ layout ra(:serial)
forall (i=1:10) a(i) = i
ra = 0
ra = a(4:8)
print *, ra
x = sum (a)
print *, x
end