program byteswap
c ######################################################################
c #   This program converts the i*2 validation files from little       #
c # Endian to big Endian.                                              #
c ######################################################################
      implicit none
      integer nx,ny,ist
      parameter (nx=1075,ny=800)   ! Grid size
      parameter (ist=7)            ! 7 component algorithms
      byte it1,it2                 ! Byte values in each word
      integer i,j,k                ! Counters corresponding to nx,ny,ist
      integer irc                  ! Record number in file
c -- Read data from i*2 file -------------------------------------------
      open (10,file='all20031115.13',access='direct',form='unformatted',
     & status='old',recl=2)
      open (20,file='big20031115.13',access='direct',form='unformatted',
     & status='new',recl=2)
      irc=0
      do k=1,ist
         do j=1,ny
            do i=1,nx
               irc=irc+1
               read (10,rec=irc) it1,it2 ! Read in little Endian order
               write (20,rec=irc) it2,it1  ! Write in big Endian order
            end do
         end do
      end do
      close (10)
      close (20)
      end