Télécharger fvaf5.eso

Retour à la liste

Numérotation des lignes :

  1. C FVAF5 SOURCE CB215821 16/04/21 21:16:58 8920
  2. FUNCTION FVAF5(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 'AF5 ' 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=301 : valeur illicite de 'TFIS'
  21. C IERUT=302 : valeur illicite de 'TUO2'
  22. C IERUT=303 : valeur illicite de 'FACF'
  23. C-----------------------------------------------------------------------
  24. C Type de la fonction
  25. C
  26. REAL*8 FVAF5
  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. FVAF5=0.D0
  49. C
  50. IF (TFIS.LT.0.D0) THEN
  51. IERUT = 301
  52. RETURN
  53. ELSE IF (TUO2.LT.0.0D0) THEN
  54. C........Temperature en Kelvin
  55. IERUT = 302
  56. RETURN
  57. ELSE IF (FACF.LT.0.D0) THEN
  58. IERUT = 303
  59. RETURN
  60. ENDIF
  61. C
  62. C Calcul de la fonction
  63. C
  64. FVAF5 = ( (1.447D-34*TFIS) * (EXP(-3624.D0/TUO2)) ) * FACF
  65. C
  66. RETURN
  67. END
  68.  
  69.  
  70.  
  71.  
  72.  

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