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