Télécharger la plaquette Cast3M


fr en

Télécharger gret.eso

Retour à la liste

Numérotation des lignes : 

gret

  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