eesupp/src/mds_byteswapr4.F

d7dd491794 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
27ce1202c5 Jean*0003       SUBROUTINE MDS_BYTESWAPR4( n, arr )
d7dd491794 Jean*0004 C IN:
27ce1202c5 Jean*0005 C   n    INTEGER :: Number of 4-byte words in arr
d7dd491794 Jean*0006 C IN/OUT:
4d40368441 Jean*0007 C   arr  real*4  :: Array declared as real*4(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,4*n,4
d7dd491794 Jean*0022        cc=arr(i:i)
                0023        arr(i:i)=arr(i+3:i+3)
                0024        arr(i+3:i+3)=cc
                0025        cc=arr(i+1:i+1)
                0026        arr(i+1:i+1)=arr(i+2:i+2)
                0027        arr(i+2:i+2)=cc
27ce1202c5 Jean*0028       ENDDO
9c4e526255 Dimi*0029
27ce1202c5 Jean*0030       RETURN
                0031       END