C SWAP      SOURCE    BP208322  19/04/29    21:15:18     10213          

************************************************************************
*      CETTE PROCEDURE ECHANGE LES TERMES I ET I+1 DANS LA LISTE
*      DE 'CHPOINT' ET DANS CELLE DE 'REEL'
************************************************************************
*     ! IPLVAL et IPLVEC ouverts en *MOD en entree/sortie !

      SUBROUTINE SWAP ( ISWAP, IPLVAL, IPLVEC )
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
-INC  SMLCHPO
-INC  SMLREEL

      POINTEUR IPLVAL.MLREEL, IPLVEC.MLCHPO
      REAL*8   XTPM
      INTEGER  ITMP

c       SEGACT IPLVAL*MOD
c       SEGACT IPLVEC*MOD

      XTMP = IPLVAL.PROG( ISWAP )
      IPLVAL.PROG( ISWAP ) = IPLVAL.PROG( ISWAP+1 )
      IPLVAL.PROG( ISWAP+1 ) = XTMP

      ITMP = IPLVEC.ICHPOI( ISWAP )
      IPLVEC.ICHPOI( ISWAP ) = IPLVEC.ICHPOI( ISWAP+1 )
      IPLVEC.ICHPOI( ISWAP+1 ) = ITMP

c       SEGDES ,IPLVAL, IPLVEC

      RETURN
      END