Télécharger la plaquette Cast3M


fr en

Télécharger adevol.eso

Retour à la liste

Numérotation des lignes : 

adevol

  1. C ADEVOL    SOURCE    CHAT      05/01/12    21:18:05     5004
  2.       SUBROUTINE ADEVOL(IPO1,IPO2,IRET,IPM)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C  ===================================================================
  6. C  =  OPERATEUR : SOMME DE DEUX COURBES                              =
  7. C  =              - X1 ET X2 SONT DE MEME NATURE ET LA SOMME EST     =
  8. C  =                EFFECTUEE SUR LE DOMAINE COMMUN DE DEFINITION    =
  9. C  =              - X1 ET X2 VARIENT DE FACON STRICTEMENT CROISSANTE =
  10. C  =              - Y1 ET Y2 SONT DE MEME NATURE                     =
  11. C  =  APPELE PAR OPERAD                                              =
  12. C  =  CREATION    30/05/86                                           =
  13. C  =  PROGRAMMEUR BENASSIS                                           =
  14. C  =                                                                 =
  15. C  =  ADAPTATION A L'ADDITION D'OBJETS EVOLUTION COMPLEXES PAR       =
  16. C  =  APPEL A ADEVO PAR F.ROULLIER                                   =
  17. C  =                                                                 =
  18. C  =  PP 1/12/92  cas ou le KEVOLL ou le MEVOLL sont communs         =
  19. C  =                                                                 =
  20. C  =  REECRITURE DE L'ADDITION D'OBJETS EVOLUTION DE SOUS-TYPE REELS =          =
  21. C  =  MODIFICATION AOUT 97 ELOI                                      =
  22. C  ===================================================================
  23. -INC SMEVOLL
  24. -INC PPARAM
  25. -INC CCOPTIO
  26.       CHARACTER*8  ITYP1,ITYP2
  27. C
  28.       IRET=0
  29.       MEVOL1=IPO1
  30.       MEVOL2=IPO2
  31.       SEGACT MEVOL1,MEVOL2
  32. C
  33. C   LES DEUX EVOLUTIONS DOIVENT ETRE DE MEME SOUS-TYPE
  34. C
  35.       ITYP1=MEVOL1.ITYEVO
  36.       ITYP2=MEVOL2.ITYEVO
  37.       IF (ITYP1.NE.ITYP2) THEN
  38.         SEGDES MEVOL1,MEVOL2
  39.         CALL ERREUR(869)
  40.         RETURN
  41.       ENDIF
  42. C
  43. C ON TRAITE LE CAS DES OBJETS EVOLUTION DE SOUS-TYPE "COMPLEXE"
  44. C
  45.       SEGDES MEVOL1,MEVOL2
  46.       IF (ITYP1.EQ.'COMPLEXE') THEN
  47.         CALL ADEVO(IPO1,IPO2,IRET,IPM)
  48.       ELSE
  49.         CALL ADEVOR(IPO1,IPO2,IRET,IPM)
  50.       ENDIF
  51. C
  52.       RETURN
  53.       END
  54.  
  55.  
  56.  

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