Télécharger foncti.eso

Retour à la liste

Numérotation des lignes :

  1. C FONCTI SOURCE PASCAL 09/10/29 21:15:08 6531
  2. SUBROUTINE FONCTI
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. CC
  6. CC SOUS-PROGRAMME ASSOCIE A L'OPERATEUR FONC
  7. CC
  8. CC PR2 = FONC | 'BESSEL' | 'J0' | PR1
  9. CC | | 'J1' |
  10. CC | | 'Y0' |
  11. CC | | 'Y1' |
  12. CC | 'FRESNEL' | 'CX' |
  13. CC | | 'SX' |
  14. CC | 'GAMMA' |
  15. CC
  16. CC PR1 OBJET DE TYPE LISTREEL
  17. CC PR2 OBJET DE TYPE LISTREEL
  18. CC
  19. CC
  20. CC OPERATEUR DESTINE AU CALCUL DE FONCTIONS DIVERSES
  21. CC
  22. CA E. DE LANGRE
  23. C
  24. CHARACTER*72 MOP, MS1
  25. CHARACTER*40 CHA1
  26. C
  27. -INC CCOPTIO
  28. C
  29. DATA MOP /' *** OPERATEUR FONC : '/
  30. DATA MS1 /' CAS NON PREVU '/
  31. C
  32. CALL LIRCHA(CHA1,1,IRETOU)
  33. IF (IERR.NE.0) RETURN
  34. IF ( CHA1(1:6).EQ.'BESSEL') THEN
  35. CALL FOBESS
  36. ELSEIF ( CHA1(1:7).EQ.'FRESNEL') THEN
  37. CALL FOFREN
  38. ELSEIF ( CHA1(1:7).EQ.'GAMMA') THEN
  39. CALL FOGAMM
  40. ELSE
  41. WRITE (IOIMP,1000) MOP
  42. WRITE (IOIMP,1000) MS1
  43. ENDIF
  44. C
  45. RETURN
  46. 1000 FORMAT (/,A)
  47. END
  48.  
  49.  
  50.  

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