c**********************************************************************
c     sample reader for IDD
c     Satoshi Watanabe
c     Mar. 4th 2014
c**********************************************************************
c
c  This program can read idd file and output ascii data. 
c  output is started from SouthWest (1,1) and ended at NorthEast(84,60) 
c  (lat,lon) 
c  (1,1)->(1,2)->...->(1,60)->(2,1)->(2,2)->...->(2,60)->(3,1)->...
c  (84,1)->...->(84,60)
c
c-----------------------
c Usage: 
c idd_reader [dir]
c
c if target file is located at ./0101.dtn, type as follows
c idd_reader ./0101.dtn
c
c
       implicit none

       integer        nx
       parameter      (nx=5040)
       real           data(nx)
       character*256  GAinput
       integer        x,recnum
c
c***************
c
       call getarg(1,GAinput)
c
      open (15, file=GAinput,
     $     status='old', form='unformatted', access='direct',
     $     recl=nx*4)
c
       read(15,rec=1) (data(x),x=1,nx)
c
       do x=1,nx
        write(*,*) data(x)
       end do
c
       close(15)
c
       end