Télécharger la plaquette Cast3M


fr en

Télécharger fuspro.eso

Retour à la liste

Numérotation des lignes : 

fuspro

  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