Esope source files

   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
  15 :       CALL LIROBJ ('LISTREEL',MLREEL,1,IRETOU)                                  
  16 :       IF (IERR.NE.0) RETURN                                                     
  17 : C                                                                               
  18 : C                                                                               
  19 :       SEGACT MLREEL                                                             
  20 :       JG  = PROG(/1)                                                            
  21 :       SEGINI MLREE1                                                             
  22 : C
  23 : C     APPEL A LA FONCTION GAMMA
  24 :       DO I=1,JG
  25 :          X=PROG(I)
  25 :          CALL GAMMA(X,GX)
  26 :          MLREE1.PROG(I)=GX
  27 :       ENDDO
  28 :       SEGDES,MLREEL,MLREE1
  29 : C                                                                               
  29 :       CALL ECROBJ ('LISTREEL',MLREE1)                                           
  30 :       IF (IERR.EQ.0) RETURN                                                     
  31 : C                                                                               
  32 :       RETURN                                                                    
  33 :       END                                                                       
  34 :  
  35 :