eesupp/src/mds_byteswapr8.F

d7dd491794 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
27ce1202c5 Jean*0003       SUBROUTINE MDS_BYTESWAPR8( n, arr )
d7dd491794 Jean*0004 C IN:
27ce1202c5 Jean*0005 C   n    INTEGER :: Number of 8-byte words in arr
d7dd491794 Jean*0006 C IN/OUT:
4d40368441 Jean*0007 C   arr  real*8  :: Array declared as real*8(n)
d7dd491794 Jean*0008 C
                0009 C Created: 05/05/99 adcroft@mit.edu (This is an unfortunate hack!!)
                0010
27ce1202c5 Jean*0011       IMPLICIT NONE
9c4e526255 Dimi*0012
d7dd491794 Jean*0013 C Arguments
27ce1202c5 Jean*0014       INTEGER n
                0015       CHARACTER*(*) arr
9c4e526255 Dimi*0016
d7dd491794 Jean*0017 C Local
27ce1202c5 Jean*0018       INTEGER i
                0019       CHARACTER*(1) cc
9c4e526255 Dimi*0020
27ce1202c5 Jean*0021       DO i=1,8*n,8
d7dd491794 Jean*0022        cc=arr(i:i)
                0023        arr(i:i)=arr(i+7:i+7)
                0024        arr(i+7:i+7)=cc
                0025        cc=arr(i+1:i+1)
                0026        arr(i+1:i+1)=arr(i+6:i+6)
                0027        arr(i+6:i+6)=cc
                0028        cc=arr(i+2:i+2)
                0029        arr(i+2:i+2)=arr(i+5:i+5)
                0030        arr(i+5:i+5)=cc
                0031        cc=arr(i+3:i+3)
                0032        arr(i+3:i+3)=arr(i+4:i+4)
                0033        arr(i+4:i+4)=cc
27ce1202c5 Jean*0034       ENDDO
9c4e526255 Dimi*0035
27ce1202c5 Jean*0036       RETURN
                0037       END