Télécharger la plaquette Cast3M


fr en

Télécharger foncti.eso

Retour à la liste

Numérotation des lignes : 

foncti

  1. C FONCTI    SOURCE    PV090527  23/11/10    21:15:02     11782          
  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 | 'FRESNEL'  | 'CX' | PR1
  9. CC               |            | 'SX' |
  10. CC
  11. CC   PR1   OBJET DE TYPE LISTREEL
  12. CC   PR2   OBJET DE TYPE LISTREEL
  13. CC
  14. CC
  15. CC    OPERATEUR DESTINE AU CALCUL DE FONCTIONS DIVERSES
  16. CC
  17. CA    E. DE LANGRE
  18. C
  19.       CHARACTER*(7) CHA1
  20. C
  21.  
  22. -INC PPARAM
  23. -INC CCOPTIO
  24. C
  25. C
  26.       CALL LIRCHA(CHA1,1,IRETOU)
  27.       IF (IERR.NE.0) RETURN
  28.       IF     ( CHA1(1:6).EQ.'BESSEL')  THEN
  29. C       Cet operateur n'est plus disponible.
  30.         WRITE(*,*) 'Voir operateur BESS'
  31.         CALL ERREUR(598)
  32.  
  33.       ELSEIF ( CHA1(1:5).EQ.'GAMMA')  THEN
  34. C       Cet operateur n'est plus disponible.
  35.         WRITE(*,*) 'Voir operateur GAMM'
  36.         CALL ERREUR(598)
  37.  
  38.       ELSEIF ( CHA1(1:7).EQ.'FRESNEL')  THEN
  39.         CALL FOFREN
  40.  
  41.       ELSE
  42.         CALL ERREUR(21)
  43.       ENDIF
  44. C
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  
  51.  

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