ccc readpos.f   Time-stamp: <2005-09-14 15:24:30 hamana>

! px(1024,1024)=theta_x
! py(1024,1024)=theta_y
      
      real px,py
      integer nr,i,j
      
      parameter (nr=1024)
      dimension px(nr,nr)
      dimension py(nr,nr)
      
      character*88 fname
      write(*,*)'file name'
      read(*,'(a88)')fname

      open(10,file=fname,form='unformatted',status='old')
!
! for big_endian machines
! 
!      open(10,file=fname,form='unformatted',convert='little_endian',
!     $     status='old')

      read(10)px
      read(10)py
      close(10)

      do i=1,10
         write(*,*)px(i,1),py(i,1)
      enddo


      end