interface_test/code/mdsio_byteswapr8.F

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

#include "MDSIO_OPTIONS.h"

      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
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     ------------------------------------------------------------------
      return
      end
1	cnh	1.1	C $Header: /u/u0/gcmpack/MITgcm/pkg/mdsio/mdsio_byteswapr8.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_BYTESWAPR8( n, arr )
7			C IN:
8			C n integer - Number of 8-byte words in arr
9			C IN/OUT:
10			C arr real8 - 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,8*n,8
23			cc=arr(i:i)
24			arr(i:i)=arr(i+7:i+7)
25			arr(i+7:i+7)=cc
26			cc=arr(i+1:i+1)
27			arr(i+1:i+1)=arr(i+6:i+6)
28			arr(i+6:i+6)=cc
29			cc=arr(i+2:i+2)
30			arr(i+2:i+2)=arr(i+5:i+5)
31			arr(i+5:i+5)=cc
32			cc=arr(i+3:i+3)
33			arr(i+3:i+3)=arr(i+4:i+4)
34			arr(i+4:i+4)=cc
35			enddo
36			C ------------------------------------------------------------------
37			return
38			end