Télécharger la plaquette Cast3M


fr en

Télécharger swap.eso

Retour à la liste

Numérotation des lignes : 

swap

  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