C DGRET SOURCE CHAT 05/01/12 22:48:40 5004 FUNCTION DGRET (KI,TETA,KHI) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) C Include contenant quelques constantes dont XPI : -INC CCREEL REAL*8 DGRET ************************************************************************ * * D G R E T * --------- * * FONCTION: * --------- * * CALCULE F = -COSINUS(KI(TETA-KHI)) * * 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 * ************************************************************************ * VAL = KI * (TETA - KHI) VAL = MOD(VAL,DEUXPI) DGRET = -COS(VAL) * END