Télécharger la plaquette Cast3M


fr en

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