Télécharger la plaquette Cast3M


fr en

Télécharger opevol.eso

Retour à la liste

Numérotation des lignes : 

opevol

  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