Télécharger gret.eso

Retour à la liste

Numérotation des lignes :

  1. C GRET SOURCE CHAT 05/01/13 00:21:20 5004
  2. FUNCTION GRET (KI,TETA,KHI)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. REAL*8 GRET
  6. ************************************************************************
  7. *
  8. * G R E T
  9. * -----------
  10. *
  11. * FONCTION:
  12. * ---------
  13. *
  14. * SINUS(KI(TETA-KHI))
  15. * CALCULE F = -------------------
  16. * KI
  17. *
  18. * MODULES UTILISES :
  19. * ------------------
  20. *
  21. -INC CCREEL
  22. *
  23. * PARAMETRES :
  24. * ------------
  25. *
  26. REAL*8 KI,TETA,KHI
  27. *
  28. * VARIABLES:
  29. * ----------
  30. *
  31. REAL*8 VAL
  32. *
  33. * CONSTANTES:
  34. * -----------
  35. *
  36. REAL*8 DEUXPI
  37. PARAMETER (DEUXPI = (2.D0*XPI))
  38. *
  39. * AUTEUR, DATE DE CREATION:
  40. * -------------------------
  41. *
  42. * LIONEL VIVAN 16 FEVRIER 1988
  43. * MODIFIE PAR P.MANIGOT 26/02/88
  44. *
  45. * LANGAGE:
  46. * --------
  47. *
  48. * FORTRAN77
  49. *
  50. ************************************************************************
  51. *
  52. IF (ABS(KI).LT.XPETIT) THEN
  53. GRET = TETA - KHI
  54. ELSE
  55. VAL = KI * (TETA - KHI)
  56. VAL = MOD(VAL,DEUXPI)
  57. GRET = SIN(VAL) / KI
  58. ENDIF
  59. *
  60. END
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  

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