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

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