pkg/atm_ocn_coupler/mds_byteswap.F

C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/mds_byteswap.F,v 1.1 2003/12/15 02:28:01 jmc Exp $
C $Name:  $

#include "CPP_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

#ifdef _BYTESWAPIO

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     ------------------------------------------------------------------
#endif /* _BYTESWAPIO */
      RETURN
      END
C=======================================================================

C=======================================================================
      SUBROUTINE MDS_BYTESWAPR8( n, arr )
C IN:
C   n           integer - Number of 8-byte words in arr
C IN/OUT:
C   arr         real*8  - 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

#ifdef _BYTESWAPIO

C Local
      integer i
      character*(1) cc
C     ------------------------------------------------------------------
      do i=1,8*n,8
       cc=arr(i:i)
       arr(i:i)=arr(i+7:i+7)
       arr(i+7:i+7)=cc
       cc=arr(i+1:i+1)
       arr(i+1:i+1)=arr(i+6:i+6)
       arr(i+6:i+6)=cc
       cc=arr(i+2:i+2)
       arr(i+2:i+2)=arr(i+5:i+5)
       arr(i+5:i+5)=cc
       cc=arr(i+3:i+3)
       arr(i+3:i+3)=arr(i+4:i+4)
       arr(i+4:i+4)=cc
      enddo
C     ------------------------------------------------------------------
#endif /* _BYTESWAPIO */
      RETURN
      END
C=======================================================================
1	C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/mds_byteswap.F,v 1.1 2003/12/15 02:28:01 jmc Exp $
2	C $Name: $
3
4	#include "CPP_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
19	#ifdef _BYTESWAPIO
20
21	C Local
22	integer i
23	character*(1) cc
24	C ------------------------------------------------------------------
25	do i=1,4*n,4
26	cc=arr(i:i)
27	arr(i:i)=arr(i+3:i+3)
28	arr(i+3:i+3)=cc
29	cc=arr(i+1:i+1)
30	arr(i+1:i+1)=arr(i+2:i+2)
31	arr(i+2:i+2)=cc
32	enddo
33	C ------------------------------------------------------------------
34	#endif /* _BYTESWAPIO */
35	RETURN
36	END
37	C=======================================================================
38
39	C=======================================================================
40	SUBROUTINE MDS_BYTESWAPR8( n, arr )
41	C IN:
42	C n integer - Number of 8-byte words in arr
43	C IN/OUT:
44	C arr real8 - Array declared as real4(n)
45	C
46	C Created: 05/05/99 adcroft@mit.edu (This is an unfortunate hack!!)
47
48	IMPLICIT NONE
49	C Arguments
50	INTEGER n
51	CHARACTER() arr
52
53	#ifdef _BYTESWAPIO
54
55	C Local
56	integer i
57	character*(1) cc
58	C ------------------------------------------------------------------
59	do i=1,8*n,8
60	cc=arr(i:i)
61	arr(i:i)=arr(i+7:i+7)
62	arr(i+7:i+7)=cc
63	cc=arr(i+1:i+1)
64	arr(i+1:i+1)=arr(i+6:i+6)
65	arr(i+6:i+6)=cc
66	cc=arr(i+2:i+2)
67	arr(i+2:i+2)=arr(i+5:i+5)
68	arr(i+5:i+5)=cc
69	cc=arr(i+3:i+3)
70	arr(i+3:i+3)=arr(i+4:i+4)
71	arr(i+4:i+4)=cc
72	enddo
73	C ------------------------------------------------------------------
74	#endif /* _BYTESWAPIO */
75	RETURN
76	END
77	C=======================================================================