|
Last change
on this file since 87 was
11,
checked in by aslmd, 14 years ago
|
|
spiga@svn-planeto:ajoute le modele meso-echelle martien
|
|
File size:
470 bytes
|
| Line | |
|---|
| 1 | subroutine swap4(in,nn) |
|---|
| 2 | !#if defined (DEC) || defined (ALPHA) || defined (alpha) || defined (LINUX) |
|---|
| 3 | #ifdef BYTESWAP |
|---|
| 4 | ! swaps bytes in groups of 4 to compensate for byte swapping within |
|---|
| 5 | ! words |
|---|
| 6 | implicit none |
|---|
| 7 | integer, intent(in) :: nn ! number of bytes to be swapped |
|---|
| 8 | logical*1 , dimension(nn) , intent(inout) :: in ! Array to be swapped |
|---|
| 9 | |
|---|
| 10 | logical*1, dimension(4) :: ia |
|---|
| 11 | integer :: i |
|---|
| 12 | do i=1,nn,4 |
|---|
| 13 | ia = in(i+3:i:-1) |
|---|
| 14 | in(i:i+3) = ia |
|---|
| 15 | enddo |
|---|
| 16 | |
|---|
| 17 | #endif |
|---|
| 18 | end |
|---|
Note: See
TracBrowser
for help on using the repository browser.
