Esope source files

   1 : C FOFREN    SOURCE    CHAT      05/01/13    00:05:59     5004           
   2 :       SUBROUTINE FOFREN                                                         
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : C                                                                               
   6 : C  OPERATEUR FONC                                                               
   7 : C  CAS 'FRESNEL'                                                                
   8 : C                                                                               
   9 :       CHARACTER*40  CHA1                                                        
  10 : C                                                                               
  11 : -INC CCOPTIO                                                                    
  12 : -INC SMLREEL                                                                    
  13 : C                                                                               
  14 : C                                                                               
  15 : C                                                                               
  15 :       CALL LIRCHA (CHA1,1,IRETOU)                                               
  16 :       IF (IERR.NE.0) RETURN                                                     
  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 :       SEGINI MLREE2                                                             
  24 : C                                                                               
  25 : C                                                                               
  26 : C                                                                               
  26 :         CALL FRESNE(MLREE1.PROG,MLREE2.PROG,PROG,JG)                            
  27 : C                                                                               
  28 :       IF (CHA1(1:2).EQ.'CX') THEN                                               
  28 :         CALL ECROBJ ('LISTREEL',MLREE1)                                         
  29 :         IF (IERR.EQ.0) RETURN                                                   
  30 :       ELSEIF (CHA1(1:2).EQ.'SX') THEN                                           
  30 :         CALL ECROBJ ('LISTREEL',MLREE2)                                         
  31 :         IF (IERR.EQ.0) RETURN                                                   
  32 :       ENDIF                                                                     
  33 : C                                                                               
  34 :       RETURN                                                                    
  35 :       END                                                                       
  36 :