Télécharger fuspro.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSPRO SOURCE CHAT 05/01/13 00:13:09 5004
  2. SUBROUTINE FUSPRO(IP1,IP2,IRETOU)
  3. C======================================================================
  4. C ENTREES
  5. C IP1 = POINTEUR SUR LA PREMIERER PROGRESSION
  6. C IP2 = POINTEUR SUR LA DEUXIEME PROGRESSION
  7. C SORTIES
  8. C IRETOU = POINTEUR SUR LA CONCATENATION DES 2 PROGRESSIONS
  9. C GIAN/LOYS JUILLET 18/86
  10. C======================================================================
  11. IMPLICIT INTEGER(I-N)
  12. -INC SMLREEL
  13. MLREE1=IP1
  14. SEGACT MLREE1
  15. NN1=MLREE1.PROG(/1)
  16. C
  17. MLREE2=IP2
  18. SEGACT MLREE2
  19. NN2=MLREE2.PROG(/1)
  20. C
  21. JG=NN1+NN2
  22. SEGINI MLREEL
  23. DO 100 IA=1,NN1
  24. PROG(IA)=MLREE1.PROG(IA)
  25. 100 CONTINUE
  26. DO 200 IA=1,NN2
  27. PROG(IA+NN1)=MLREE2.PROG(IA)
  28. 200 CONTINUE
  29. SEGDES MLREEL,MLREE1,MLREE2
  30. IRETOU=MLREEL
  31. RETURN
  32. END
  33.  
  34.  

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