Télécharger la plaquette Cast3M


fr en

Télécharger fussui.eso

Retour à la liste

Numérotation des lignes : 

fussui

  1. C FUSSUI    SOURCE    CB215821  20/11/25    13:29:42     10792          
  2.       SUBROUTINE FUSSUI(IP1,IP2,IRETOU)
  3. C======================================================================
  4. C   ENTREES
  5. C     IP1 = POINTEUR SUR LA PREMIERE LECTURE
  6. C     IP2 = POINTEUR SUR LA DEUXIEME LECTURE
  7. C
  8. C   SORTIES
  9. C     IRETOU = POINTEUR SUR LA CONCATENATION DES 2 LECTURES
  10. C
  11. C   Auteur : PM 10/05/2007
  12. C======================================================================
  13.       IMPLICIT INTEGER(I-N)
  14. -INC SMCHPOI
  15. -INC SMLCHPO
  16.  
  17. *     Première liste
  18.       MLCHP1=IP1
  19.       SEGACT MLCHP1
  20.       NN1=MLCHP1.ICHPOI(/1)
  21.  
  22. *     Deuxième liste
  23.       MLCHP2=IP2
  24.       SEGACT MLCHP2
  25.       NN2=MLCHP2.ICHPOI(/1)
  26.  
  27. *     liste concatéée
  28.       N1=NN1+NN2
  29.       SEGINI MLCHPO
  30.       IRETOU=MLCHPO
  31.       DO IA=1,NN1
  32.          ICHPOI(IA)=MLCHP1.ICHPOI(IA)
  33.       ENDDO
  34.       DO IA=1,NN2
  35.          ICHPOI(IA+NN1)=MLCHP2.ICHPOI(IA)
  36.       ENDDO
  37.  
  38. *     Ménage et sortie
  39.       SEGDES MLCHPO,MLCHP1,MLCHP2
  40.       RETURN
  41.       END
  42.  
  43.  
  44.  
  45.  

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