1 : C VARIO SOURCE CHAT 05/01/13 04:04:00 5004 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) IFLUI 11 : 566 CALL CPLIQ 12 : GOTO 666 12 : 567 CALL HLS 13 : GOTO 666 13 : 568 CALL HVS 14 : GOTO 666 14 : 569 CALL LATENT 15 : GOTO 666 15 : 570 CALL PSATT 16 : GOTO 666 16 : 571 CALL PVAP 17 : GOTO 666 17 : 572 CALL ROLIQ 18 : GOTO 666 18 : 573 CALL ROVAP 19 : GOTO 666 19 : 574 CALL TLIQU 20 : GOTO 666 20 : 575 CALL TSATP 21 : GOTO 666 21 : 576 CALL ZVAP 22 : GOTO 666 22 : 577 CALL TODIFF 23 : GOTO 666 23 : 578 CALL TOCOND 24 : GOTO 666 24 : 579 CALL DHVDT 25 : GOTO 666 25 : 580 CALL DHVDP 26 : GOTO 666 26 : 581 CALL DHLDP 27 : GOTO 666 27 : 582 CALL DPSAT 28 : GOTO 666 28 : 583 CALL DZVDP 29 : GOTO 666 29 : 584 CALL DZVDT 30 : GOTO 666 30 : 585 CALL DRVDP 31 : GOTO 666 31 : 586 CALL DRVDT 32 : GOTO 666 33 : 666 CONTINUE 34 : RETURN 35 : END 36 : 37 : 38 :
© Cast3M 2003 - All rights reserved.
Disclaimer