home *** CD-ROM | disk | FTP | other *** search
/ Avalon - 3D Objects & Resources / Avalon.iso / objects / obj / terrain / read.f < prev    next >
Encoding:
Text File  |  1995-01-01  |  251 b   |  13 lines

  1.       real a(2500)
  2.       open(unit=10,file='TOPOGRAPHY.DAT',access='direct'm
  3.      & ,recl=5000)
  4.  
  5.       print*,'enter record number to read'
  6.       read(*,*)num
  7.  
  8.       read(unit=10,rec=num)a(a(i),i=1,2500)
  9.  
  10.       print*,'array'
  11.       print*,a
  12.       end
  13.