*IF DEF,OCEAN                                                              @DYALLOC.4629   
C ******************************COPYRIGHT******************************    GTS2F400.1657   
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved.    GTS2F400.1658   
C                                                                          GTS2F400.1659   
C Use, duplication or disclosure of this code is subject to the            GTS2F400.1660   
C restrictions as set forth in the contract.                               GTS2F400.1661   
C                                                                          GTS2F400.1662   
C                Meteorological Office                                     GTS2F400.1663   
C                London Road                                               GTS2F400.1664   
C                BRACKNELL                                                 GTS2F400.1665   
C                Berkshire UK                                              GTS2F400.1666   
C                RG12 2SZ                                                  GTS2F400.1667   
C                                                                          GTS2F400.1668   
C If no contract has been raised with this copy of the code, the use,      GTS2F400.1669   
C duplication or disclosure of it is strictly prohibited.  Permission      GTS2F400.1670   
C to do so must first be obtained in writing from the Head of Numerical    GTS2F400.1671   
C Modelling at the above address.                                          GTS2F400.1672   
C ******************************COPYRIGHT******************************    GTS2F400.1673   
C                                                                          GTS2F400.1674   
CLL Subroutine DATASWAP------------------------------------------------    DATASWAP.2      
CLL                                                                        DATASWAP.3      
CLL Level 2 control routine                                                DATASWAP.4      
CLL                                                                        DATASWAP.5      
CLL version for CRAY YMP                                                   DATASWAP.6      
CLL written by S. Ineson                                                   DATASWAP.7      
CLL                                                                        DATASWAP.8      
CLL Modification History                                                   OSI0F402.7      
CLL                                                                        DATASWAP.10     
CLL version  date                                                          OSI0F402.8      
CLL                                                                        DATASWAP.15     
CLL  4.2   22/11/96  Length of data to copy now calculted outside          OSI0F402.9      
CLL                  this routine. S Ineson                                OSI0F402.10     
CLL                                                                        DATASWAP.16     
CLLEND -----------------------------------------------------------------   DATASWAP.22     
C*L Arguments                                                              DATASWAP.23     
                                                                           DATASWAP.24     

      SUBROUTINE DATASWAP(LENDATA,DATA1,DATA2)                              3OSI0F402.11     
                                                                           DATASWAP.26     
      IMPLICIT NONE                                                        DATASWAP.27     
                                                                           DATASWAP.28     
      INTEGER                                                              DATASWAP.29     
     &       LENDATA    ! no words of data to copy                         OSI0F402.12     
      REAL                                                                 DATASWAP.32     
     &       DATA1(LENDATA)   ! data being overwritten                     OSI0F402.13     
     &,      DATA2(LENDATA)   ! data being copied                          OSI0F402.14     
C*                                                                         DATASWAP.35     
CL Local variables                                                         DATASWAP.36     
                                                                           DATASWAP.37     
      INTEGER                                                              DATASWAP.38     
     & len                                                                 OSI0F402.15     
                                                                           DATASWAP.40     
                                                                           DATASWAP.41     
CL  Copy data                                                              DATASWAP.42     
                                                                           DATASWAP.43     
      DO len=1,LENDATA                                                     OSI0F402.16     
        DATA1(len)=DATA2(len)                                              DATASWAP.47     
      END DO                                                               DATASWAP.48     
                                                                           DATASWAP.49     
      RETURN                                                               DATASWAP.50     
      END                                                                  DATASWAP.51     
*ENDIF                                                                     @DYALLOC.4630