Télécharger la plaquette Cast3M


fr en

Télécharger fofren.eso

Retour à la liste

Numérotation des lignes : 

fofren

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

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