Esope source files

   1 : C DFACT     SOURCE    GOUNAND   05/12/21    21:18:08     5281           
   2 :       FUNCTION DFACT(I)
   3 :       IMPLICIT REAL*8 (A-H,O-Z)
   4 :       IMPLICIT INTEGER (I-N)
   5 : *
   6 : * Factorielle I (en réel)
   7 : *
   8 :       REAL*8 DTMP,DFACT
   9 :       INTEGER I,II
  10 :       DTMP=1.D0
  11 :       DO 1 II=2,I,1
  12 :          DTMP=DTMP*DBLE(II)
  13 :  1    CONTINUE
  14 :       DFACT=DTMP
  15 :       END
  16 :