Esope source files

   1 : C FLA018    SOURCE    TTMF3     12/07/05    21:15:41     7425           
   2 :       FUNCTION FLA018(MP,ROE,A,B,C,DD,EE,FF)
   3 : C------------------------------------------------------------------------
   4 : C Calcul de f(x)
   5 : C (voir fla015.eso)
   6 : C------------------------------------------------------------------------
   7 : C
   8 : C---------------------------
   9 : C Parametres Entree/Sortie :
  10 : C---------------------------
  11 : C
  12 : C E/  MP     : flottant : Debit au travers du PAR (kg/s) 
  13 : C E/  ROE    : flottant : Densité du mélange à l'entrée du PAR (kg/m3)
  14 : C E/  A      : flottant : Coefficient devant MP^2
  15 : C E/  B      : flottant : Coefficient devant MP
  16 : C E/  DD     : flottant : Coefficient
  17 : C E/  EE     : flottant : Coefficient 
  18 : C E/  FF     : flottant : Coefficient
  19 : C  /S FLA018 : flottant : Valeur de la fonction f(X)
  20 : C
  21 : C------------------------------------------------------------------------
  22 : C
  23 : C Langage : FORTRAN 77
  24 : C
  25 : C Mise en oeuvre : H. Paillère (1997, TTMF)
  26 : C
  27 : C------------------------------------------------------------------------
  28 :       IMPLICIT INTEGER(I-N)
  29 :       IMPLICIT REAL*8 (A-H,O-Z)
  30 :       REAL*8 FLA018
  31 :       REAL*8 MP
  32 : C
  33 : C Calcul de la densité en sortie en fonction du débit dans le PAR
  34 :       ROS=ROE/(1.D0+DD/(MP-EE))/(1.D0-FF/MP)
  35 : C
  36 : C Fonction tirée de Bernouilli dont le débit cherché est une racine
  37 :       FLA018 = A*MP*MP + B*MP + C*(ROE+ROS)*(ROE-ROS)
  38 : C
  39 :       RETURN
  40 :       END
  41 : 
  42 :  
  43 :  
  44 :  
  45 :  
  46 :