ccc readdat.f   Time-stamp: <2005-09-14 15:21:56 hamana>

! kappa(1024,1024)=kappa
! gamma1(1024,1024)=gamma_1
! gamma2(1024,1024)=gamma_2
! omega(1024,1024)=omega

      integer nr
      real kappa,gamma1,gamma2,omega
 
      parameter (nr=1024)
      dimension kappa(nr,nr)
      dimension gamma1(nr,nr)
      dimension gamma2(nr,nr)
      dimension omega(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)kappa
      read(10)gamma1
      read(10)gamma2
      read(10)omega
      close(10)
      
      do i=1,10
         write(*,*)kappa(i,1),gamma1(i,1),gamma2(i,1),omega(i,1)
      enddo

      end