C FONCTI    SOURCE    PASCAL    09/10/29    21:15:08     6531           
      SUBROUTINE FONCTI                                                         
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
CC                                                                              
CC    SOUS-PROGRAMME ASSOCIE  A L'OPERATEUR FONC                                
CC                                                                              
CC    PR2 = FONC | 'BESSEL'   | 'J0' |  PR1                                     
CC               |            | 'J1' |                                          
CC               |            | 'Y0' |                                          
CC               |            | 'Y1' |                                          
CC               | 'FRESNEL'  | 'CX' |                                          
CC               |            | 'SX' |                                          
CC               | 'GAMMA'    | 
CC                                                                              
CC   PR1   OBJET DE TYPE LISTREEL                                               
CC   PR2   OBJET DE TYPE LISTREEL                                               
CC                                                                              
CC                                                                              
CC    OPERATEUR DESTINE AU CALCUL DE FONCTIONS DIVERSES                         
CC                                                                              
CA    E. DE LANGRE                                                              
C                                                                               
      CHARACTER*72  MOP, MS1                                                    
      CHARACTER*40  CHA1                                                        
C                                                                               
-INC CCOPTIO                                                                    
C                                                                               
      DATA MOP  /' ***  OPERATEUR FONC     : '/                                 
      DATA MS1  /'       CAS NON PREVU       '/                                 
C                                                                               
      CALL LIRCHA(CHA1,1,IRETOU)                                                
      IF (IERR.NE.0) RETURN                                                     
      IF     ( CHA1(1:6).EQ.'BESSEL')  THEN                                     
        CALL FOBESS                                                             
      ELSEIF ( CHA1(1:7).EQ.'FRESNEL')  THEN                                    
        CALL FOFREN                                                             
      ELSEIF ( CHA1(1:7).EQ.'GAMMA')  THEN                                    
        CALL FOGAMM                                                             
      ELSE                                                                      
        WRITE (IOIMP,1000)  MOP                                                 
        WRITE (IOIMP,1000)  MS1                                                 
      ENDIF                                                                     
C                                                                               
      RETURN                                                                    
1000  FORMAT (/,A)                                                              
      END