Esope source files

   1 : C IFRE      SOURCE    CHAT      05/01/13    00:32:57     5004           
   2 :       SUBROUTINE IFRE                                                           
   3 : C                                                                               
   4 : C =====================================================================         
   5 : C   L' OPERATEUR IFRE CALCULE LES INTEGRALES DE FRESNEL                         
   6 : C   APPELE LE SOUS-PROGRAMME FORTRAN INTFRE                                     
   7 : C   SYNTAXE :   CC SS = IFRE XF ;                                               
   8 : C   CC SS XF : OBJETS DE TYPE FLOTTANT                                          
   9 : C   CREATION    : 24/02/87                                                      
  10 : C   PROGRAMMEUR : GUILBAUD                                                      
  11 : C =====================================================================         
  12 : C                                                                               
  13 :       IMPLICIT INTEGER(I-N)
  14 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  15 : -INC CCOPTIO                                                                    
  15 :       CALL LIRREE (XF,1,IRETOU)                                                 
  16 :       IF(IERR.NE.0) RETURN                                                      
  16 :       CALL INTFRE(CC,SS,XF)                                                     
  16 :       CALL ECRREE(SS)                                                           
  16 :       CALL ECRREE(CC)                                                           
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :