Télécharger vario.eso

Retour à la liste

Numérotation des lignes :

vario
  1. C VARIO SOURCE SERRE 16/07/20 21:15:27 9017
  2. SUBROUTINE VARIO(IFLUI)
  3. *
  4. * CALCUL DES TABLES DE L'EAU SUIVANT LA VALEUR DE IFLUI
  5. *
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8 (A-H,O-Z)
  8. *
  9. C!! GOTO (566,567,568,569,570,571,572,573,574,575,576,577,578) IFLUI
  10. GOTO (566,567,568,569,570,571,572,573,574,575,576,577,578,
  11. $ 579,580,581,582,583,584,585,586,587,588) IFLUI
  12. 566 CALL CPLIQ
  13. GOTO 666
  14. 567 CALL HLS
  15. GOTO 666
  16. 568 CALL HVS
  17. GOTO 666
  18. 569 CALL LATENT
  19. GOTO 666
  20. 570 CALL PSATT
  21. GOTO 666
  22. 571 CALL PVAP
  23. GOTO 666
  24. 572 CALL ROLIQ
  25. GOTO 666
  26. 573 CALL ROVAP
  27. GOTO 666
  28. 574 CALL TLIQU
  29. GOTO 666
  30. 575 CALL TSATP
  31. GOTO 666
  32. 576 CALL ZVAP
  33. GOTO 666
  34. 577 CALL TODIFF
  35. GOTO 666
  36. 578 CALL TOCOND
  37. GOTO 666
  38. 579 CALL DHVDT
  39. GOTO 666
  40. 580 CALL DHVDP
  41. GOTO 666
  42. 581 CALL DHLDP
  43. GOTO 666
  44. 582 CALL DPSAT
  45. GOTO 666
  46. 583 CALL DZVDP
  47. GOTO 666
  48. 584 CALL DZVDT
  49. GOTO 666
  50. 585 CALL DRVDP
  51. GOTO 666
  52. 586 CALL DRVDT
  53. GOTO 666
  54. 587 CALL MULIQ
  55. GOTO 666
  56. 588 CALL LBDALIQ
  57. GOTO 666
  58. 666 CONTINUE
  59. RETURN
  60. END
  61.  
  62.  
  63.  
  64.  
  65.  

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