home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Avalon - 3D Objects & Resources
/
Avalon.iso
/
objects
/
obj
/
terrain
/
read.f
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1995-01-01
|
251 b
|
13 lines
real a(2500)
open(unit=10,file='TOPOGRAPHY.DAT',access='direct'm
& ,recl=5000)
print*,'enter record number to read'
read(*,*)num
read(unit=10,rec=num)a(a(i),i=1,2500)
print*,'array'
print*,a
end