Esope source files

   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 :