C FVAF0     SOURCE    CHAT      05/01/13    00:13:25     5004
      FUNCTION FVAF0(VALPAR,NPARA,IERUT)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C-----------------------------------------------------------------------
C     DESCRIPTION FONCTIONNELLE :
C     -------------------------
C     Fonction externe d'evaluation de la composante 'AF0 ' du modele
C     'FLUAGE' 'POLYNOMIAL' externalise pour TOUTATIS
C
C     INTERFACE :
C     ---------
C     ENTREE : VALPAR : REAL*8(NPARA), valeurs des parametres
C     ENTREE : NPARA  : INTEGER, nombre de parametres
C     SORTIE : IERUT  : INTEGER, code retour
C
C     CODIFICATION DES ERREURS :
C     ------------------------
C     IERUT=0   : OK
C     IERUT=251 : valeur illicite de 'TFIS'
C     IERUT=252 : valeur illicite de 'TUO2'
C     IERUT=253 : valeur illicite de 'FACF'
C-----------------------------------------------------------------------
C     Type de la fonction
C
      REAL*8       FVAF0
C
C     Arguments de l'interface
C
      INTEGER      NPARA, IERUT
      REAL*8       VALPAR(NPARA)
C
C     Variables locales
C
      REAL*8       T, TFIS, TUO2, FACF
C
C---------------------- Debut du code executable -----------------------
C
C     Identification des parametres : affectation de variables locales
C
      TFIS=VALPAR(1)
      TUO2=VALPAR(2)
      FACF=VALPAR(3)
C
C     Tests d'erreur sur les parametres
C
      IERUT=0
      FVAF0=0.D0
C
      IF (TFIS.LT.0.D0) THEN
         IERUT = 251
         RETURN
      ELSE IF (TUO2.LT.0.0D0) THEN
C........Temperature en Kelvin
         IERUT = 252
         RETURN
      ELSE IF (FACF.LT.0.D0) THEN
         IERUT = 253
         RETURN
      ENDIF
C
C     Calcul de la fonction
C
      FVAF0 = 0.D0 * FACF
C
      RETURN
      END