Télécharger opevol.eso

Retour à la liste

Numérotation des lignes :

  1. C OPEVOL SOURCE KK2000 14/07/28 21:15:20 8127
  2. SUBROUTINE OPEVOL(IPO1,IEPS, IPO2)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C***********************************************************************
  6. C
  7. C O P E V O L
  8. C -----------
  9. C
  10. C FONCTION:
  11. C ---------
  12. C
  13. C EFFECTUE DIVERSES OPERATIONS SUR UNE EVOLUTION
  14. C
  15. C MODULES UTILISES:
  16. C -----------------
  17. C
  18. C
  19. C PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  20. C -----------
  21. C
  22. C IPO1 (E) POINTEUR SUR UNE EVOLUTION.
  23. C IPO3 (E) POINTEUR SUR UNE EVOLUTION si appel à ATAN2.
  24. C IEPS = 1 COSINUS
  25. C = 2 SINUS
  26. C = 3 TANGENTE
  27. C = 4 ARCOSINUS
  28. C = 5 ARCSINUS
  29. C = 6 ARCTANGENTE
  30. C = 7 EXPONENTIELLE
  31. C = 8 LOGARITHME
  32. C = 9 VALEUR ABSOLUE
  33. C =10 COSINUS HYPERBOLIQUE
  34. C =11 SINUS HYPERBOLIQUE
  35. C =12 TANGENTE HYPERBOLIQUE
  36. C =13 ERF FONCTION D'ERRREUR DE GAUSS
  37. C =14 ERFC FONCTION D'ERRREUR complementaire DE GAUSS (1-erf(x))
  38. C =15 ARGCH (Fonction reciproque de COSH)
  39. C =16 ARGSH (Fonction reciproque de SINH)
  40. C =17 ARGTH (Fonction reciproque de TANH)
  41. C =18 COTANGENTE (inverse de la tangente)
  42. C
  43. C IPO3 (S) POINTEUR SUR L EVOLUTION RESULTAT.
  44. C
  45. C AUTEUR, DATE DE CREATION:
  46. C -------------------------
  47. C
  48. C BP 06/07/2012 : adaptation de OPLREE.eso
  49. C
  50. C LANGAGE:
  51. C --------
  52. C
  53. C ESOPE + FORTRAN77
  54. C
  55. C***********************************************************************
  56.  
  57. C-INC CCOPTIO
  58. C-INC CCREEL
  59. -INC SMEVOLL
  60. -INC SMLREEL
  61.  
  62. C SEGMENT MEVOLL
  63. MEVOLL = IPO1
  64. segact,MEVOLL
  65. segini,MEVOL1=MEVOLL
  66. IPO2 = MEVOL1
  67. N=IEVOLL(/1)
  68.  
  69. C**** Boucle sur les EVOLUTIONS ELEMENTAIRES **************************
  70. DO 999 K=1,N
  71.  
  72. C SEGMENT KEVOLL
  73. KEVOLL = IEVOLL(K)
  74. SEGACT,KEVOLL
  75. SEGINI,KEVOL1=KEVOLL
  76. MEVOL1.IEVOLL(K)=KEVOL1
  77.  
  78. C LISTREEL
  79. MLREEL = KEVOLL.IPROGY
  80. SEGACT MLREEL
  81.  
  82. MLREE1=0
  83. CALL OPLREE(MLREEL,IEPS,MLREE1)
  84. SEGACT MLREE1
  85. KEVOL1.IPROGY=MLREE1
  86.  
  87. SEGDES,MLREEL,MLREE1,KEVOL1,KEVOLL
  88.  
  89. 999 CONTINUE
  90. C**** fin de Boucle sur les EVOLUTIONS ELEMENTAIRES ********************
  91. segdes,MEVOL1,MEVOLL
  92. C
  93. RETURN
  94.  
  95. END
  96.  
  97.  
  98.  

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