Télécharger fofren.eso

Retour à la liste

Numérotation des lignes :

  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
  16. CALL LIRCHA (CHA1,1,IRETOU)
  17. IF (IERR.NE.0) RETURN
  18. CALL LIROBJ ('LISTREEL',MLREEL,1,IRETOU)
  19. IF (IERR.NE.0) RETURN
  20. C
  21. C
  22. SEGACT MLREEL
  23. JG = PROG(/1)
  24. SEGINI MLREE1
  25. SEGINI MLREE2
  26. C
  27. C
  28. C
  29. CALL FRESNE(MLREE1.PROG,MLREE2.PROG,PROG,JG)
  30. C
  31. IF (CHA1(1:2).EQ.'CX') THEN
  32. CALL ECROBJ ('LISTREEL',MLREE1)
  33. IF (IERR.EQ.0) RETURN
  34. ELSEIF (CHA1(1:2).EQ.'SX') THEN
  35. CALL ECROBJ ('LISTREEL',MLREE2)
  36. IF (IERR.EQ.0) RETURN
  37. ENDIF
  38. C
  39. RETURN
  40. END
  41.  
  42.  

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