Télécharger la plaquette Cast3M


fr en

Télécharger fusmot.eso

Retour à la liste

Numérotation des lignes : 

fusmot

  1. C FUSMOT    SOURCE    CB215821  20/11/04    21:17:44     10766          
  2.       SUBROUTINE FUSMOT(IP1,IP2,IRETOU)
  3. C======================================================================
  4. C   ENTREES
  5. C     IP1 = POINTEUR SUR LE PREMIER   LMOTS
  6. C     IP2 = POINTEUR SUR LE DEUXIEME  LMOTS
  7. C  SORTIES
  8. C     IRETOU = POINTEUR SUR LA CONCATENATION DES 2 LMOTS
  9. C======================================================================
  10.       IMPLICIT INTEGER(I-N)
  11.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMLMOTS
  15.       IRETOU=0
  16.       MLMOT1=IP1
  17.       SEGACT MLMOT1
  18.       JGN1=MLMOT1.MOTS(/1)
  19.       JGM1=MLMOT1.MOTS(/2)
  20. *
  21.       MLMOT2=IP2
  22.       SEGACT MLMOT2
  23.       JGN2=MLMOT2.MOTS(/1)
  24.       JGM2=MLMOT2.MOTS(/2)
  25. *
  26.       JGN =MAX(JGN1,JGN2)
  27.       JGM =JGM1+JGM2
  28.       SEGINI MLMOTS
  29.       IRETOU=MLMOTS
  30.       DO 100 IA=1,JGM1
  31.       MOTS(IA)=MLMOT1.MOTS(IA)
  32.  100  CONTINUE
  33.       DO 200 IA=1,JGM2
  34.       MOTS(IA+JGM1)=MLMOT2.MOTS(IA)
  35.  200  CONTINUE
  36.       RETURN
  37.       END
  38.  
  39.  

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