interface_test/code/mdsio_byteswapr4.F

C $Header: /u/u0/gcmpack/MITgcm/pkg/mdsio/mdsio_byteswapr4.F,v 1.1 2001/03/06 15:28:53 adcroft Exp $
C $Name:  $

#include "MDSIO_OPTIONS.h"

      subroutine MDS_BYTESWAPR4( n, arr )
C IN:
C   n           integer - Number of 4-byte words in arr
C IN/OUT:
C   arr         real*4  - Array declared as real*4(n)
C
C Created: 05/05/99 adcroft@mit.edu (This is an unfortunate hack!!)

      implicit none
C Arguments
      integer n
      character*(*) arr
C Local
      integer i
      character*(1) cc
C     ------------------------------------------------------------------
      do i=1,4*n,4
       cc=arr(i:i)
       arr(i:i)=arr(i+3:i+3)
       arr(i+3:i+3)=cc
       cc=arr(i+1:i+1)
       arr(i+1:i+1)=arr(i+2:i+2)
       arr(i+2:i+2)=cc
      enddo
C     ------------------------------------------------------------------
      return
      end
1	C $Header: /u/u0/gcmpack/MITgcm/pkg/mdsio/mdsio_byteswapr4.F,v 1.1 2001/03/06 15:28:53 adcroft Exp $
2	C $Name: $
3
4	#include "MDSIO_OPTIONS.h"
5
6	subroutine MDS_BYTESWAPR4( n, arr )
7	C IN:
8	C n integer - Number of 4-byte words in arr
9	C IN/OUT:
10	C arr real4 - Array declared as real4(n)
11	C
12	C Created: 05/05/99 adcroft@mit.edu (This is an unfortunate hack!!)
13
14	implicit none
15	C Arguments
16	integer n
17	character() arr
18	C Local
19	integer i
20	character*(1) cc
21	C ------------------------------------------------------------------
22	do i=1,4*n,4
23	cc=arr(i:i)
24	arr(i:i)=arr(i+3:i+3)
25	arr(i+3:i+3)=cc
26	cc=arr(i+1:i+1)
27	arr(i+1:i+1)=arr(i+2:i+2)
28	arr(i+2:i+2)=cc
29	enddo
30	C ------------------------------------------------------------------
31	return
32	end