Télécharger fflux.eso

Retour à la liste

Numérotation des lignes :

  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.  
  24.  

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