Esope source files

   1 : C FONCTI    SOURCE    PASCAL    09/10/29    21:15:08     6531           
   2 :       SUBROUTINE FONCTI                                                         
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : CC                                                                              
   6 : CC    SOUS-PROGRAMME ASSOCIE  A L'OPERATEUR FONC                                
   7 : CC                                                                              
   8 : CC    PR2 = FONC | 'BESSEL'   | 'J0' |  PR1                                     
   9 : CC               |            | 'J1' |                                          
  10 : CC               |            | 'Y0' |                                          
  11 : CC               |            | 'Y1' |                                          
  12 : CC               | 'FRESNEL'  | 'CX' |                                          
  13 : CC               |            | 'SX' |                                          
  14 : CC               | 'GAMMA'    | 
  15 : CC                                                                              
  16 : CC   PR1   OBJET DE TYPE LISTREEL                                               
  17 : CC   PR2   OBJET DE TYPE LISTREEL                                               
  18 : CC                                                                              
  19 : CC                                                                              
  20 : CC    OPERATEUR DESTINE AU CALCUL DE FONCTIONS DIVERSES                         
  21 : CC                                                                              
  22 : CA    E. DE LANGRE                                                              
  23 : C                                                                               
  24 :       CHARACTER*72  MOP, MS1                                                    
  25 :       CHARACTER*40  CHA1                                                        
  26 : C                                                                               
  27 : -INC CCOPTIO                                                                    
  28 : C                                                                               
  29 :       DATA MOP  /' ***  OPERATEUR FONC     : '/                                 
  30 :       DATA MS1  /'       CAS NON PREVU       '/                                 
  31 : C                                                                               
  31 :       CALL LIRCHA(CHA1,1,IRETOU)                                                
  32 :       IF (IERR.NE.0) RETURN                                                     
  33 :       IF     ( CHA1(1:6).EQ.'BESSEL')  THEN                                     
  33 :         CALL FOBESS                                                             
  34 :       ELSEIF ( CHA1(1:7).EQ.'FRESNEL')  THEN                                    
  34 :         CALL FOFREN                                                             
  35 :       ELSEIF ( CHA1(1:7).EQ.'GAMMA')  THEN                                    
  35 :         CALL FOGAMM                                                             
  36 :       ELSE                                                                      
  37 :         WRITE (IOIMP,1000)  MOP                                                 
  38 :         WRITE (IOIMP,1000)  MS1                                                 
  39 :       ENDIF                                                                     
  40 : C                                                                               
  41 :       RETURN                                                                    
  42 : 1000  FORMAT (/,A)                                                              
  43 :       END                                                                       
  44 :  
  45 :