1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/npp/02.read_binary.f90.x	Mon Jan 26 22:08:20 2009 -0500
     1.3 @@ -0,0 +1,14 @@
     1.4 +program to_read_int
     1.5 +integer, parameter :: nlat = 180 * 20, nlon = 360 * 20, &
     1.6 +       recl = 2*nlat*nlon
     1.7 +integer(2), dimension(nlat,nlon) :: data
     1.8 +open(11,file='Npp_0.05deg_mean.int16',form='unformatted',&
     1.9 +    access='direct',recl=recl)
    1.10 +read(11,rec=1)data
    1.11 +close(11)
    1.12 +do i = 1, nlon
    1.13 +  do j = 1, nlat
    1.14 +     write(*,*)data(j,i)
    1.15 +  end do
    1.16 +enddo
    1.17 +end