c
c sample program to read binary file in fortran
c this may or may not work! (system dependent)
c often works with UNIX fortrans
c
real array(192,94)
character*1 line(192)
write(*,*) 'should first run wgrib -d 1 land.grb'
open(unit=1,file='dump',form='unformatted',status='old')
read(1) array
err=1e-6
do 100 j = 1, 94
do 90 i = 1, 192
if (array(i,j).eq.0.0) then
line(i) = ' '
else if (abs(array(i,j)-1.0).lt.err) then
line(i) = 'x'
else
write(*,*) 'bad values:',array(i,j)
stop
endif
90 continue
if (mod(j,3).eq.0) write(*,*) (line(i),i=1,192,3)
100 continue
write(*,*) 'should see continents'
stop
end