Esope source files

   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 :