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
  58. -INC PPARAM
  59. -INC CCOPTIO
  60. C-INC CCREEL
  61. -INC SMEVOLL
  62. -INC SMLREEL
  63.  
  64. C SEGMENT MEVOLL
  65. MEVOLL = IPO1
  66. segact,MEVOLL
  67. segini,MEVOL1=MEVOLL
  68. IPO2 = MEVOL1
  69. N=IEVOLL(/1)
  70.  
  71. C**** Boucle sur les EVOLUTIONS ELEMENTAIRES **************************
  72. DO 999 K=1,N
  73.  
  74. C SEGMENT KEVOLL
  75. KEVOLL = IEVOLL(K)
  76. SEGACT,KEVOLL
  77. SEGINI,KEVOL1=KEVOLL
  78. MEVOL1.IEVOLL(K)=KEVOL1
  79.  
  80. C LISTREEL
  81. MLREEL = KEVOLL.IPROGY
  82. SEGACT MLREEL
  83.  
  84. MLREE1=0
  85. CALL OPLREE(MLREEL,IEPS,MLREE1)
  86. SEGACT MLREE1
  87. KEVOL1.IPROGY=MLREE1
  88.  
  89. SEGDES,MLREEL,MLREE1,KEVOL1,KEVOLL
  90.  
  91. 999 CONTINUE
  92. C**** fin de Boucle sur les EVOLUTIONS ELEMENTAIRES ********************
  93. segdes,MEVOL1,MEVOLL
  94. C
  95. RETURN
  96.  
  97. END
  98.  
  99.  
  100.  

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