Esope source files

   1 : C SWAP      SOURCE    CHAT      05/01/13    03:28:33     5004           
   2 : ******
   3 : *      -- CETTE PROCEDURE ECHANGE LES TERMES I ET I+1 DANS LA LISTE
   4 : *      DE 'CHPOINT' ET DANS CELLE DE 'REEL' --
   5 : ******
   6 :       SUBROUTINE SWAP ( ISWAP, IPLVAL, IPLVEC )
   7 :       IMPLICIT INTEGER(I-N)
   8 :       IMPLICIT REAL*8 (A-H,O-Z)
   9 : 
  10 : -INC  CCOPTIO

  11 : -INC  SMLCHPO

  12 : -INC  SMLREEL

  13 : 
  14 :       POINTEUR IPLVAL.MLREEL, IPLVEC.MLCHPO
  15 :       REAL*8   XTPM
  16 :       INTEGER  ITMP
  17 : 
  18 :       SEGACT IPLVAL*MOD
  19 :       SEGACT IPLVEC*MOD
  20 : 
  21 :       XTMP = IPLVAL.PROG( ISWAP )
  22 :       IPLVAL.PROG( ISWAP ) = IPLVAL.PROG( ISWAP+1 )
  23 :       IPLVAL.PROG( ISWAP+1 ) = XTMP
  24 : 
  25 :       ITMP = IPLVEC.ICHPOI( ISWAP )
  26 :       IPLVEC.ICHPOI( ISWAP ) = IPLVEC.ICHPOI( ISWAP+1 )
  27 :       IPLVEC.ICHPOI( ISWAP+1 ) = ITMP
  28 : 
  29 :       SEGDES ,IPLVAL, IPLVEC
  30 : 
  31 :       RETURN
  32 :       END
  33 :  
  34 :  
  35 :