diff -r 000000000000 -r 0c6405ab2ff4 npp/02.read_binary.f90.x
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/npp/02.read_binary.f90.x	Mon Jan 26 22:08:20 2009 -0500
@@ -0,0 +1,14 @@
+program to_read_int
+integer, parameter :: nlat = 180 * 20, nlon = 360 * 20, &
+       recl = 2*nlat*nlon
+integer(2), dimension(nlat,nlon) :: data
+open(11,file='Npp_0.05deg_mean.int16',form='unformatted',&
+    access='direct',recl=recl)
+read(11,rec=1)data
+close(11)
+do i = 1, nlon
+  do j = 1, nlat
+     write(*,*)data(j,i)
+  end do
+enddo
+end