Télécharger la plaquette Cast3M


fr en

Télécharger dgret.eso

Retour à la liste

Numérotation des lignes : 

dgret

  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