Esope source files

   1 : C FFLUX     SOURCE    STRU      08/12/22    21:15:22     6246           
   2 : c     Sous-Programme du module MISTRAL0
   3 : C     --------------------------------------------------------------------------
   4 :       SUBROUTINE FFLUX (FI, PAR, V)
   5 : C     --------------------------------------------------------------------------
   6 : C     Calcul de V en fonction de FI
   7 : C     et des parametres transmis dans PAR.
   8 : C     --------------------------------------------------------------------------
   9 :       IMPLICIT INTEGER (I-N)
  10 :       IMPLICIT REAL*8 (A-H, O-Z)
  11 :       DIMENSION PAR(1:*)
  12 : c     (NPFIM = 9)
  13 :       L = NINT(PAR(1))
  14 :       IP = 1
  15 :       IF (L.EQ.1) THEN
  16 :        V = PAR(IP+1)*(FI+PAR(IP+2))**PAR(IP+3)
  17 :       ELSE IF (L.EQ.2) THEN
  18 :        V = PAR(IP+1)*(FI+PAR(IP+2))**PAR(IP+3)*EXP(-PAR(IP+4)*FI)
  19 :      &  + PAR(IP+5)*(FI+PAR(IP+6))**PAR(IP+7)*(1.-EXP(-PAR(IP+8)*FI))
  20 :       END IF
  21 :         RETURN
  22 :         END
  23 :