C
C     Fortran code to read in the revised ETOPO2 ASCII data file with
C     correction to Caspian Sea area.  The data are in 2'x2' resulotion and
C     total 10801x5400 grids. Depth values are repeated at longitudes
C     180E and 180W (-180E)
C
      program rdetopo2
      parameter (ilon=10801,ilat=5400)
      dimension idepth(ilon,ilat)
      
      open(10,file='etopo2_new.dat')
      
      read(10,*)idepth
           
      do j = 1,ilat,100
        write(*,'(25i6)')(idepth(i,j),i=1,ilon,435)
      enddo	
            
      stop
      end