/[MITgcm]/MITgcm/eesupp/src/mds_byteswapr4.F
ViewVC logotype

Contents of /MITgcm/eesupp/src/mds_byteswapr4.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Tue Aug 23 13:21:08 2005 UTC (18 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint58e_post, checkpoint57s_post, checkpoint58r_post, checkpoint57y_post, checkpoint58n_post, checkpoint58h_post, checkpoint57y_pre, checkpoint58q_post, checkpoint57v_post, checkpoint58j_post, checkpoint57r_post, checkpoint58, checkpoint58f_post, checkpoint57x_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint58k_post, checkpoint58p_post, checkpoint58b_post, checkpoint58m_post
move basic S/R (with no I/O, + used outside of pkg/mdsio) from pkg/mdsio
 to allow to compile the code without pkg/mdsio.

1 C $Header: $
2 C $Name: $
3
4 #include "CPP_EEOPTIONS.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 real*4 - Array declared as real*4(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

  ViewVC Help
Powered by ViewVC 1.1.22