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 CCOPTIO
  14. -INC SMLCHPO
  15. -INC SMLREEL
  16.  
  17. POINTEUR IPLVAL.MLREEL, IPLVEC.MLCHPO
  18. REAL*8 XTPM
  19. INTEGER ITMP
  20.  
  21. c SEGACT IPLVAL*MOD
  22. c SEGACT IPLVEC*MOD
  23.  
  24. XTMP = IPLVAL.PROG( ISWAP )
  25. IPLVAL.PROG( ISWAP ) = IPLVAL.PROG( ISWAP+1 )
  26. IPLVAL.PROG( ISWAP+1 ) = XTMP
  27.  
  28. ITMP = IPLVEC.ICHPOI( ISWAP )
  29. IPLVEC.ICHPOI( ISWAP ) = IPLVEC.ICHPOI( ISWAP+1 )
  30. IPLVEC.ICHPOI( ISWAP+1 ) = ITMP
  31.  
  32. c SEGDES ,IPLVAL, IPLVEC
  33.  
  34. RETURN
  35. END
  36.  
  37.  
  38.  
  39.  
  40.  

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