Télécharger ifre.eso

Retour à la liste

Numérotation des lignes :

  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.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. CALL LIRREE (XF,1,IRETOU)
  19. IF(IERR.NE.0) RETURN
  20. CALL INTFRE(CC,SS,XF)
  21. CALL ECRREE(SS)
  22. CALL ECRREE(CC)
  23. RETURN
  24. END
  25.  
  26.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales