Télécharger la plaquette Cast3M


fr en

Télécharger opflot.eso

Retour à la liste

Numérotation des lignes : 

opflot

  1. C OPFLOT    SOURCE    CB215821  23/10/18    21:15:07     11760          
  2.       SUBROUTINE OPFLOT(XIN1,XIN2,IIN1,BATAN2,IOPERA,XOUT)
  3. C=======================================================================
  4. C      EFFECTUE DIVERSES OPERATIONS SUR LES FLOTTANTS
  5. C=======================================================================
  6. C  ENTREES
  7. C     XIN1= FLOTTANT sur lequel on effectue l'operation
  8. C     XIN2= deuxieme argument FLOTTANT pour l'operation ATAN2
  9. C     IIN1= troisieme argument ENTIER pour l'operation FLOTTANT ** ENTIER
  10. C   BATAN2= TRUE  Booleen permettant de faire l'operation ATAN2
  11. C         = FALSE Booleen permettant de faire l'operation ATAN
  12. C     IOPERA= 1  COSINUS
  13. C           = 2  SINUS
  14. C           = 3  TANGENTE
  15. C           = 4  ARCOSINUS
  16. C           = 5  ARCSINUS
  17. C           = 6  ARCTANGENTE
  18. C           = 7  EXPONENTIELLE
  19. C           = 8  LOGARITHME
  20. C           = 9  VALEUR ABSOLUE
  21. C           = 10 COSINUS  HYPERBOLIQUE
  22. C           = 11 SINUS    HYPERBOLIQUE
  23. C           = 12 TANGENTE HYPERBOLIQUE
  24. C           = 13 ERF  FONCTION D'ERRREUR DE GAUSS
  25. C           = 14 ERFC FONCTION D'ERRREUR complementaire DE GAUSS (1-erf(x))
  26. C           = 15 ARGCH (Fonction reciproque de COSH)
  27. C           = 16 ARGSH (Fonction reciproque de SINH)
  28. C           = 17 ARGTH (Fonction reciproque de TANH)
  29. C           = 18 SIGN(1.D0,XIN1)
  30. C
  31. C           = 19 PRODUIT   XIN1 *  XIN2
  32. C           = 20 DIVISION  XIN1 /  XIN2
  33. C           = 21 PUISSANCE XIN1 ** XIN2
  34. C           = 22 PUISSANCE XIN1 ** IIN1
  35. C
  36. C  SORTIES
  37. C     XOUT=FLOTTANT RESULTAT
  38. C
  39. C HISTORIQUE :
  40. C   - CB215821                   2014  --> Creation
  41. C   - CB215821             05/06/2018  --> Ajout de la fonction SIGN a un argument
  42. C   - CB215821             17/10/23    --> SOURCE Obsolete (invoquer optabj.eso)
  43. C
  44. C=======================================================================
  45.  
  46.       IMPLICIT INTEGER(I-N)
  47.       IMPLICIT REAL*8(A-H,O-Z)
  48.  
  49.  
  50. -INC PPARAM
  51. -INC CCOPTIO
  52. -INC CCREEL
  53. C
  54.       MOTERR='OPFLOT'
  55.       CALL ERREUR(1039)
  56.       RETURN
  57.       END
  58.  
  59.  

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