Télécharger dgret.eso

Retour à la liste

Numérotation des lignes :

  1. C DGRET SOURCE CHAT 05/01/12 22:48:40 5004
  2. FUNCTION DGRET (KI,TETA,KHI)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C Include contenant quelques constantes dont XPI :
  6. -INC CCREEL
  7. REAL*8 DGRET
  8. ************************************************************************
  9. *
  10. * D G R E T
  11. * ---------
  12. *
  13. * FONCTION:
  14. * ---------
  15. *
  16. * CALCULE F = -COSINUS(KI(TETA-KHI))
  17. *
  18. * PARAMETRES :
  19. * ------------
  20. *
  21. REAL*8 KI,TETA,KHI
  22. *
  23. * VARIABLES:
  24. * ----------
  25. *
  26. REAL*8 VAL
  27. *
  28. * CONSTANTES:
  29. * -----------
  30. *
  31. REAL*8 DEUXPI
  32. PARAMETER (DEUXPI = (2.D0*XPI))
  33. *
  34. * AUTEUR, DATE DE CREATION:
  35. * -------------------------
  36. *
  37. * LIONEL VIVAN 16 FEVRIER 1988
  38. * MODIFIE PAR P.MANIGOT 26/02/88
  39. *
  40. * LANGAGE:
  41. * --------
  42. *
  43. * FORTRAN77
  44. *
  45. ************************************************************************
  46. *
  47. VAL = KI * (TETA - KHI)
  48. VAL = MOD(VAL,DEUXPI)
  49. DGRET = -COS(VAL)
  50. *
  51. END
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  

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