Télécharger adevol.eso

Retour à la liste

Numérotation des lignes :

  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 CCOPTIO
  25. CHARACTER*8 ITYP1,ITYP2
  26. C
  27. IRET=0
  28. MEVOL1=IPO1
  29. MEVOL2=IPO2
  30. SEGACT MEVOL1,MEVOL2
  31. C
  32. C LES DEUX EVOLUTIONS DOIVENT ETRE DE MEME SOUS-TYPE
  33. C
  34. ITYP1=MEVOL1.ITYEVO
  35. ITYP2=MEVOL2.ITYEVO
  36. IF (ITYP1.NE.ITYP2) THEN
  37. SEGDES MEVOL1,MEVOL2
  38. CALL ERREUR(869)
  39. RETURN
  40. ENDIF
  41. C
  42. C ON TRAITE LE CAS DES OBJETS EVOLUTION DE SOUS-TYPE "COMPLEXE"
  43. C
  44. SEGDES MEVOL1,MEVOL2
  45. IF (ITYP1.EQ.'COMPLEXE') THEN
  46. CALL ADEVO(IPO1,IPO2,IRET,IPM)
  47. ELSE
  48. CALL ADEVOR(IPO1,IPO2,IRET,IPM)
  49. ENDIF
  50. C
  51. RETURN
  52. END
  53.  
  54.  
  55.  

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