C FLA018    SOURCE    TTMF3     12/07/05    21:15:41     7425           
      FUNCTION FLA018(MP,ROE,A,B,C,DD,EE,FF)
C------------------------------------------------------------------------
C Calcul de f(x)
C (voir fla015.eso)
C------------------------------------------------------------------------
C
C---------------------------
C Parametres Entree/Sortie :
C---------------------------
C
C E/  MP     : flottant : Debit au travers du PAR (kg/s) 
C E/  ROE    : flottant : Densité du mélange à l'entrée du PAR (kg/m3)
C E/  A      : flottant : Coefficient devant MP^2
C E/  B      : flottant : Coefficient devant MP
C E/  DD     : flottant : Coefficient
C E/  EE     : flottant : Coefficient 
C E/  FF     : flottant : Coefficient
C  /S FLA018 : flottant : Valeur de la fonction f(X)
C
C------------------------------------------------------------------------
C
C Langage : FORTRAN 77
C
C Mise en oeuvre : H. Paillère (1997, TTMF)
C
C------------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 FLA018
      REAL*8 MP
C
C Calcul de la densité en sortie en fonction du débit dans le PAR
      ROS=ROE/(1.D0+DD/(MP-EE))/(1.D0-FF/MP)
C
C Fonction tirée de Bernouilli dont le débit cherché est une racine
      FLA018 = A*MP*MP + B*MP + C*(ROE+ROS)*(ROE-ROS)
C
      RETURN
      END