Télécharger ottofu.eso

Retour à la liste

Numérotation des lignes :

  1. C OTTOFU SOURCE CHAT 05/01/13 02:07:39 5004
  2. SUBROUTINE OTTOFU(XINVL,XLTR,WRUPT,BTR,BILIN,SBILI,W,WMAX,
  3. & SMAX,PENTE,IC)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. -INC CCOPTIO
  7. *
  8. DIMENSION XLTR(3),WRUPT(3),BILIN(3),SBILI(3),WMAX(3)
  9. DIMENSION XINVL(3),W(3)
  10. DIMENSION SMAX(*),PENTE(*)
  11. *
  12. IF(XINVL(IC).EQ.0.D0) THEN
  13. SMAX(IC)=XLTR(IC)
  14. PENTE(IC)=0.D0
  15. GO TO 10
  16. ENDIF
  17.  
  18. *ZZZZZZZZ
  19. * ATTENTION LE TEST CI DESSOUS EST TRES FIN
  20. *ZZZZZZZZ
  21.  
  22.  
  23. IF(WMAX(IC).GE.WRUPT(IC)) THEN
  24. SMAX(IC)=0.D0
  25. PENTE(IC)=0.D0
  26. GO TO 10
  27. ELSE
  28. IF(BILIN(IC).GT.0.D0.AND.WMAX(IC).LT.BILIN(IC)) THEN
  29. SMAX(IC)=XLTR(IC)+WMAX(IC)*(SBILI(IC)-XLTR(IC))/BILIN(IC)
  30. PENTE(IC)=(SBILI(IC)-XLTR(IC))/BILIN(IC)
  31. ELSE
  32. SMAX(IC)=SBILI(IC)*(WRUPT(IC)-WMAX(IC))/
  33. & (WRUPT(IC)-BILIN(IC))
  34. PENTE(IC)=-SBILI(IC)/(WRUPT(IC)-BILIN(IC))
  35. ENDIF
  36. ENDIF
  37. 10 CONTINUE
  38. *
  39.  
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  

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