fussui
C FUSSUI SOURCE CB215821 20/11/25 13:29:42 10792 C====================================================================== C ENTREES C IP1 = POINTEUR SUR LA PREMIERE LECTURE C IP2 = POINTEUR SUR LA DEUXIEME LECTURE C C SORTIES C IRETOU = POINTEUR SUR LA CONCATENATION DES 2 LECTURES C C Auteur : PM 10/05/2007 C====================================================================== IMPLICIT INTEGER(I-N) -INC SMCHPOI -INC SMLCHPO * Première liste MLCHP1=IP1 SEGACT MLCHP1 NN1=MLCHP1.ICHPOI(/1) * Deuxième liste MLCHP2=IP2 SEGACT MLCHP2 NN2=MLCHP2.ICHPOI(/1) * liste concatéée N1=NN1+NN2 SEGINI MLCHPO IRETOU=MLCHPO DO IA=1,NN1 ICHPOI(IA)=MLCHP1.ICHPOI(IA) ENDDO DO IA=1,NN2 ICHPOI(IA+NN1)=MLCHP2.ICHPOI(IA) ENDDO * Ménage et sortie SEGDES MLCHPO,MLCHP1,MLCHP2 RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales