Coastal & Marine Geology InfoBank
rtopo2
/infobank/programs/bat/etopo2/rtopo2.for
read(20,'(15i6)')(itopo(i),i=1,ilon)
write(*,49)alatb,alonl,alatt,alonr write(*,'(24i6)')(itopo(i),i=ilonl,ilonr,60)
open(20,file='/infobank/programs/bat/etopo2/etopo2.dat')