Télécharger fuspro.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSPRO SOURCE CB215821 18/12/06 21:15:13 10021
  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.  
  13. -INC SMLREEL
  14.  
  15. MLREE1=IP1
  16. MLREE2=IP2
  17.  
  18. SEGACT,MLREE1
  19. SEGACT,MLREE2
  20.  
  21. NN1=MLREE1.PROG(/1)
  22. NN2=MLREE2.PROG(/1)
  23. C
  24. JG=NN1+NN2
  25. SEGINI,MLREEL
  26. DO 100 IA=1,NN1
  27. PROG(IA)=MLREE1.PROG(IA)
  28. 100 CONTINUE
  29. DO 200 IA=1,NN2
  30. PROG(IA+NN1)=MLREE2.PROG(IA)
  31. 200 CONTINUE
  32. SEGACT,MLREEL*NOMOD
  33. IRETOU=MLREEL
  34. END
  35.  
  36.  
  37.  

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