Télécharger la plaquette Cast3M


fr en

Télécharger oplree.eso

Retour à la liste

Numérotation des lignes : 

oplree

  1. C OPLREE    SOURCE    CB215821  23/10/18    21:15:08     11760          
  2.       SUBROUTINE OPLREE(IPO1,IEPS,IPO3)
  3.  
  4.       IMPLICIT INTEGER(I-N)
  5.       IMPLICIT REAL*8(A-H,O-Z)
  6.  
  7. C***********************************************************************
  8. C
  9. C                             O P L R E E
  10. C                             -----------
  11. C
  12. C FONCTION:
  13. C ---------
  14. C
  15. C     EFFECTUE DIVERSES OPERATIONS SUR UN LISTREEL.
  16. C
  17. C MODULES UTILISES:
  18. C -----------------
  19. C
  20. C
  21. C PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  22. C -----------
  23. C
  24. C     IPO1    (E)  POINTEUR SUR UN LISTREEL.
  25. C     IPO3    (E)  POINTEUR SUR UN LISTREEL si appel à ATAN2.
  26. C     IEPS         = 1 COSINUS
  27. C                  = 2 SINUS
  28. C                  = 3 TANGENTE
  29. C                  = 4 ARCOSINUS
  30. C                  = 5 ARCSINUS
  31. C                  = 6 ARCTANGENTE
  32. C                  = 7 EXPONENTIELLE
  33. C                  = 8 LOGARITHME
  34. C                  = 9 VALEUR ABSOLUE
  35. C                  =10 COSINUS  HYPERBOLIQUE
  36. C                  =11 SINUS    HYPERBOLIQUE
  37. C                  =12 TANGENTE HYPERBOLIQUE
  38. C                  =13 ERF  FONCTION D'ERRREUR DE GAUSS
  39. C                  =14 ERFC FONCTION D'ERRREUR complementaire DE GAUSS (1-erf(x))
  40. C                  =15 ARGCH (Fonction reciproque de COSH)
  41. C                  =16 ARGSH (Fonction reciproque de SINH)
  42. C                  =17 ARGTH (Fonction reciproque de TANH)
  43. C                  =18 COTANGENTE (inverse de la tangente)
  44.  
  45. C                  =19 PRODUIT   FLOTTANT *  FLOTTANT
  46. C                  =20 DIVISION  FLOTTANT /  FLOTTANT
  47. C                  =21 PUISSANCE FLOTTANT ** FLOTTANT
  48. C                  =22 PUISSANCE FLOTTANT ** ENTIER
  49. C
  50. C     IPO3    (S)  POINTEUR SUR LE LISTREEL RESULTAT.
  51. C
  52. C AUTEUR, DATE DE CREATION:
  53. C -------------------------
  54. C
  55. C     LIONEL VIVAN  12/04/88  CREATION
  56. C     P. MANIGOT    05/09/88  AJOUT DE "EXP" ET "LOG".
  57. C     L. VIVAN      18/07/90  AJOUT DE "SIN" ET "COS".
  58. C     C. BERTHINIER 24/07/14  REMANIEMENT ET APPEL A OPFLOT QUI FAIT LE
  59. C                             TRAVAIL EN TESTANT LA VALIDITE LES NOMBRES
  60. C     C. BERTHINIER 17/10/23  SOURCE Obsolete (voir OPLRE1)
  61. C
  62. C LANGAGE:
  63. C --------
  64. C
  65. C     ESOPE + FORTRAN77
  66. C
  67. C***********************************************************************
  68.  
  69.  
  70. -INC PPARAM
  71. -INC CCOPTIO
  72.  
  73.       MOTERR='OPLREE'
  74.       CALL ERREUR(1039)
  75.       RETURN
  76.  
  77.       END
  78.  
  79.  

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