et2_subset
/infobank2/programs/bat/etopo2/et2_subset.for
(none)
open(20,file=filein) open(21,file=fileout)
read(20,'(15i6)')(itopo(i),i=1,ilon)
write(21,30)fileout,alatb,alonl,alatt,alonr,minute,idec*2 write(*,30)fileout,alatb,alonl,alatt,alonr,minute,idec*2 write(21,35)ndlon, ndlat, (int(alon(i)), * abs(nint(mod(alon(i),1.0)*60.0)),i=ilonl,ilonr,idec)