Télécharger la plaquette Cast3M


fr en

Télécharger fuevol.eso

Retour à la liste

Numérotation des lignes : 

fuevol

  1. C FUEVOL    SOURCE    BP208322  14/04/03    21:15:01     8017
  2.       SUBROUTINE FUEVOL(IBO1,IBO2,IRET)
  3. C
  4. C   ==================================================================
  5. C   = FUSION DE 2 OBJETS EVOLUTION MEVOL1 ET MEVOL2                  =
  6. C   = LE RESULTAT EST RANGE DANS MEVOLL                              =
  7. C   = SOUS-PROGRAMME APPELE PAR PRFUSE  (OPERATEUR ET )              =
  8. C   = CREATION    : 01/10/86                                         =
  9. C   = PROGRAMMEUR : GUILBAUD                                         =
  10. C   = BP, 2014-04-02 : ajout de ITYEVO                               =
  11. C   ==================================================================
  12. C
  13.       IMPLICIT INTEGER(I-N)
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17. -INC SMEVOLL
  18. C
  19.       CHARACTER *72 TI
  20.       MEVOL1=IBO1
  21.       MEVOL2=IBO2
  22.       SEGACT MEVOL1,MEVOL2
  23.       N1=MEVOL1.IEVOLL(/1)
  24.       N2=MEVOL2.IEVOLL(/1)
  25.       N=N1+N2
  26.       SEGINI MEVOLL
  27.       IRET=MEVOLL
  28.       IF(MEVOL1.ITYEVO .EQ. MEVOL2.ITYEVO) THEN
  29.         ITYEVO = MEVOL1.ITYEVO
  30.       ELSEIF(MEVOL2.ITYEVO .EQ. '        ') THEN
  31.         ITYEVO = MEVOL1.ITYEVO
  32.       ELSEIF(MEVOL1.ITYEVO .EQ. '        ') THEN
  33.         ITYEVO = MEVOL2.ITYEVO
  34.       ELSE
  35. c         ITYEVO='REEL'
  36.         ITYEVO=' '
  37.       ENDIF
  38.       TI(1:72)=TITREE
  39.       IEVTEX=TI
  40.       DO 3 I=1,N1
  41.       IEVOLL(I)=MEVOL1.IEVOLL(I)
  42.  3    CONTINUE
  43.       DO 4 J=1,N2
  44.       I=N1+J
  45.       IEVOLL(I)=MEVOL2.IEVOLL(J)
  46.  4    CONTINUE
  47.       SEGDES MEVOLL
  48.       SEGDES MEVOL1
  49.       SEGDES MEVOL2
  50.       RETURN
  51.       END
  52.  
  53.  
  54.  

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