real xllcornr, yllcornr
       integer ka
       integer ncols, nrows, csize, nodata
       dimension ka(2304068)
       open(unit=5,file='biomax.asc',status='old',access='sequential')
       open(unit=6,file='biomax.out',status='new',access='sequential')
       read (5,100) ncols
       read (5,100) nrows
       read (5,110) xllcornr
       read (5,110) yllcornr
       read (5,100) csize
       read (5,120) nodata 
       write (6,200) ncols, nrows, xllcornr, yllcornr,
     1               csize, nodata
       do k=1,1502
       read (5,*) (ka(j),j=1,1534)
       write(6,*) (ka(j),j=1,1534)
       enddo
       continue
100    format (14x,i5)
105    format (14x,f10.1)
110    format (14x,f14.5)
120    format (14x,i5)       
200    format (1x,i5,/,1x,i5,/,1x,f10.1,/,1x,f15.5,/,1x,i5,/,1x,i5)
999    close(unit=5)
       close(unit=6)
       stop
       end