Télécharger fobess.eso

Retour à la liste

Numérotation des lignes :

  1. C FOBESS SOURCE CHAT 05/01/13 00:05:34 5004
  2. SUBROUTINE FOBESS
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C OPERATEUR FONC
  7. C CAS 'BESSEL'
  8. C CALCUL DES FONCTIONS DE BESSEL J0 J1 Y0 Y1
  9. C
  10. C E. DE LANGRE
  11. C
  12. CHARACTER*40 CHA1
  13. C
  14. -INC CCOPTIO
  15. -INC SMLREEL
  16. C
  17. C
  18. C
  19. CALL LIRCHA (CHA1,1,IRETOU)
  20. IF (IERR.NE.0) RETURN
  21. CALL LIROBJ ('LISTREEL',MLREEL,1,IRETOU)
  22. IF (IERR.NE.0) RETURN
  23. C
  24. C
  25. SEGACT MLREEL
  26. JG = PROG(/1)
  27. SEGINI MLREE1
  28. C
  29. C
  30. IF (CHA1(1:2) .EQ.'J0') THEN
  31. CALL FOBEJ0(PROG,JG,MLREE1.PROG)
  32. ELSEIF (CHA1(1:2) .EQ.'J1') THEN
  33. CALL FOBEJ1(PROG,JG,MLREE1.PROG)
  34. ELSEIF (CHA1(1:2) .EQ.'Y0') THEN
  35. CALL FOBEY0(PROG,JG,MLREE1.PROG)
  36. ELSEIF (CHA1(1:2) .EQ.'Y1') THEN
  37. CALL FOBEY1(PROG,JG,MLREE1.PROG)
  38. ENDIF
  39. C
  40. CALL ECROBJ ('LISTREEL',MLREE1)
  41. IF (IERR.EQ.0) RETURN
  42. C
  43. RETURN
  44. END
  45.  
  46.  

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