C IFRE      SOURCE    CHAT      05/01/13    00:32:57     5004
      SUBROUTINE IFRE
C
C =====================================================================
C   L' OPERATEUR IFRE CALCULE LES INTEGRALES DE FRESNEL
C   APPELE LE SOUS-PROGRAMME FORTRAN INTFRE
C   SYNTAXE :   CC SS = IFRE XF ;
C   CC SS XF : OBJETS DE TYPE FLOTTANT
C   CREATION    : 24/02/87
C   PROGRAMMEUR : GUILBAUD
C =====================================================================
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
      CALL LIRREE (XF,1,IRETOU)
      IF(IERR.NE.0) RETURN
      CALL INTFRE(CC,SS,XF)
      CALL ECRREE(SS)
      CALL ECRREE(CC)
      RETURN
      END