C GRET      SOURCE    CHAT      05/01/13    00:21:20     5004           
      FUNCTION GRET (KI,TETA,KHI)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 GRET
************************************************************************
*     
*                               G R E T
*                             -----------
*     
* FONCTION:
* ---------
*     
*                  SINUS(KI(TETA-KHI))
*     CALCULE  F = -------------------
*                         KI
*     
* MODULES UTILISES :
* ------------------
*     
-INC CCREEL
*     
* PARAMETRES :
* ------------
*     
      REAL*8 KI,TETA,KHI
*     
* VARIABLES:
* ----------
*     
      REAL*8 VAL
*     
* CONSTANTES:
* -----------
*     
      REAL*8 DEUXPI
      PARAMETER (DEUXPI = (2.D0*XPI))
*     
* AUTEUR, DATE DE CREATION:
* -------------------------
*     
*     LIONEL VIVAN       16 FEVRIER 1988
*     MODIFIE PAR  P.MANIGOT  26/02/88
*     
* LANGAGE:
* --------
*     
*     FORTRAN77
*     
************************************************************************
*     
      IF (ABS(KI).LT.XPETIT) THEN
         GRET = TETA - KHI
      ELSE
         VAL = KI * (TETA - KHI)
         VAL = MOD(VAL,DEUXPI)
         GRET = SIN(VAL) / KI
      ENDIF
*     
      END