Télécharger dfact.eso

Retour à la liste

Numérotation des lignes :

  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.  
  17.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales