1 : C FUSMOT SOURCE CHAT 05/01/13 00:12:51 5004 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 : -INC CCOPTIO 12 : -INC SMLMOTS 13 : IRETOU=0 14 : MLMOT1=IP1 15 : SEGACT MLMOT1 16 : JGN1=MLMOT1.MOTS(/1) 17 : JGM1=MLMOT1.MOTS(/2) 18 : * 19 : MLMOT2=IP2 20 : SEGACT MLMOT2 21 : JGN2=MLMOT2.MOTS(/1) 22 : JGM2=MLMOT2.MOTS(/2) 23 : * 24 : IF(JGN1.NE.JGN2) THEN 24 : CALL ERREUR(556) 25 : SEGDES MLMOT1 26 : SEGDES MLMOT2 27 : RETURN 28 : ENDIF 29 : * 30 : JGN =JGN1 31 : JGM =JGM1+JGM2 32 : SEGINI MLMOTS 33 : IRETOU=MLMOTS 34 : DO 100 IA=1,JGM1 35 : MOTS(IA)=MLMOT1.MOTS(IA) 36 : 100 CONTINUE 37 : DO 200 IA=1,JGM2 38 : MOTS(IA+JGM1)=MLMOT2.MOTS(IA) 39 : 200 CONTINUE 40 : SEGDES MLMOTS,MLMOT1,MLMOT2 41 : RETURN 42 : END 43 :
© Cast3M 2003 - All rights reserved.
Disclaimer