hwrf-baseline-20120103-1354/ungrib/src/swap.F

   1 subroutine swap4(in,nn)
   2 !#if defined (DEC) || defined (ALPHA) || defined (alpha) || defined (LINUX)
   3 #ifdef BYTESWAP
   4 ! swaps bytes in groups of 4 to compensate for byte swapping within
   5 !    words
   6   implicit none
   7   integer, intent(in) :: nn ! number of bytes to be swapped
   8   logical*1 , dimension(nn) , intent(inout) :: in  ! Array to be swapped
   9
  10   logical*1, dimension(4) :: ia
  11   integer :: i
  12   do i=1,nn,4
  13      ia = in(i+3:i:-1)
  14      in(i:i+3) = ia
  15   enddo
  16
  17 #endif
  18 end