program etopo5
parameter(NLON=351,MLAT=276)
real tmax(nlon,mlat)
integer :: irec,i,j,k,t
OPEN(31,FILE='xxx.dat',FORM='UNFORMATTED',ACCESS='direct',RECL=mlat*nlon)
READ(31,rec=1) tmax
close(31)
open (32,FILE='cn_grid.dat')
do j=1,mlat
write(32,100) (tmax(i,j),i=1,nlon) !"(69f10.2)"
100 format(351f10.2)
enddo
close(32)
end