Télécharger la plaquette Cast3M


fr en

Télécharger fvaf2.eso

Retour à la liste

Numérotation des lignes : 

fvaf2

  1. C FVAF2     SOURCE    CHAT      05/01/13    00:13:31     5004
  2.       FUNCTION FVAF2(VALPAR,NPARA,IERUT)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C-----------------------------------------------------------------------
  6. C     DESCRIPTION FONCTIONNELLE :
  7. C     -------------------------
  8. C     Fonction externe d'evaluation de la composante 'AF2 ' du modele
  9. C     'FLUAGE' 'POLYNOMIAL' externalise pour TOUTATIS
  10. C
  11. C     INTERFACE :
  12. C     ---------
  13. C     ENTREE : VALPAR : REAL*8(NPARA), valeurs des parametres
  14. C     ENTREE : NPARA  : INTEGER, nombre de parametres
  15. C     SORTIE : IERUT  : INTEGER, code retour
  16. C
  17. C     CODIFICATION DES ERREURS :
  18. C     ------------------------
  19. C     IERUT=0   : OK
  20. C     IERUT=271 : valeur illicite de 'TFIS'
  21. C     IERUT=272 : valeur illicite de 'TUO2'
  22. C     IERUT=273 : valeur illicite de 'FACF'
  23. C-----------------------------------------------------------------------
  24. C     Type de la fonction
  25. C
  26.       REAL*8       FVAF2
  27. C
  28. C     Arguments de l'interface
  29. C
  30.       INTEGER      NPARA, IERUT
  31.       REAL*8       VALPAR(NPARA)
  32. C
  33. C     Variables locales
  34. C
  35.       REAL*8       T, TFIS, TUO2, FACF
  36. C
  37. C---------------------- Debut du code executable -----------------------
  38. C
  39. C     Identification des parametres : affectation de variables locales
  40. C
  41.       TFIS=VALPAR(1)
  42.       TUO2=VALPAR(2)
  43.       FACF=VALPAR(3)
  44. C
  45. C     Tests d'erreur sur les parametres
  46. C
  47.       IERUT=0
  48.       FVAF2=0.D0
  49. C
  50.       IF (TFIS.LT.0.D0) THEN
  51.          IERUT = 271
  52.          RETURN
  53.       ELSE IF (TUO2.LT.0.0D0) THEN
  54. C........Temperature en Kelvin
  55.          IERUT = 272
  56.          RETURN
  57.       ELSE IF (FACF.LT.0.D0) THEN
  58.          IERUT = 273
  59.          RETURN
  60.       ENDIF
  61. C
  62. C     Calcul de la fonction
  63. C
  64.       FVAF2 = 1.D0
  65. C
  66.       RETURN
  67.       END
  68.  
  69.  
  70.  

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