Télécharger fogamm.eso

Retour à la liste

Numérotation des lignes :

  1. C FOGAMM SOURCE PASCAL 09/10/29 21:15:00 6531
  2. SUBROUTINE FOGAMM
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C OPERATEUR FONC
  7. C CAS 'GAMMA'
  8. C CALCUL DE LA FONCTION GAMMA
  9. C
  10. -INC CCOPTIO
  11. -INC SMLREEL
  12. C
  13. C
  14. C
  15. C LECTURE LISTREEL
  16. CALL LIROBJ ('LISTREEL',MLREEL,1,IRETOU)
  17. IF (IERR.NE.0) RETURN
  18. C
  19. C
  20. SEGACT MLREEL
  21. JG = PROG(/1)
  22. SEGINI MLREE1
  23. C
  24. C APPEL A LA FONCTION GAMMA
  25. DO I=1,JG
  26. X=PROG(I)
  27. CALL GAMMA(X,GX)
  28. MLREE1.PROG(I)=GX
  29. ENDDO
  30. SEGDES,MLREEL,MLREE1
  31. C
  32. CALL ECROBJ ('LISTREEL',MLREE1)
  33. IF (IERR.EQ.0) RETURN
  34. C
  35. RETURN
  36. END
  37.  
  38.  
  39.  

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