Télécharger swap.eso

Retour à la liste

Numérotation des lignes :

  1. C SWAP SOURCE BP208322 19/04/29 21:15:18 10213
  2.  
  3. ************************************************************************
  4. * CETTE PROCEDURE ECHANGE LES TERMES I ET I+1 DANS LA LISTE
  5. * DE 'CHPOINT' ET DANS CELLE DE 'REEL'
  6. ************************************************************************
  7. * ! IPLVAL et IPLVEC ouverts en *MOD en entree/sortie !
  8.  
  9. SUBROUTINE SWAP ( ISWAP, IPLVAL, IPLVEC )
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8 (A-H,O-Z)
  12.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. -INC SMLCHPO
  16. -INC SMLREEL
  17.  
  18. POINTEUR IPLVAL.MLREEL, IPLVEC.MLCHPO
  19. REAL*8 XTPM
  20. INTEGER ITMP
  21.  
  22. c SEGACT IPLVAL*MOD
  23. c SEGACT IPLVEC*MOD
  24.  
  25. XTMP = IPLVAL.PROG( ISWAP )
  26. IPLVAL.PROG( ISWAP ) = IPLVAL.PROG( ISWAP+1 )
  27. IPLVAL.PROG( ISWAP+1 ) = XTMP
  28.  
  29. ITMP = IPLVEC.ICHPOI( ISWAP )
  30. IPLVEC.ICHPOI( ISWAP ) = IPLVEC.ICHPOI( ISWAP+1 )
  31. IPLVEC.ICHPOI( ISWAP+1 ) = ITMP
  32.  
  33. c SEGDES ,IPLVAL, IPLVEC
  34.  
  35. RETURN
  36. END
  37.  
  38.  
  39.  
  40.  
  41.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales