C DZVDP1 SOURCE CB215821 20/11/25 13:26:41 10792 SUBROUTINE DZVDP1(MPOVA1,MPOVA2,MPOVA3) C--------------------------------------------------------------------- C Correction gaz reel pour la vapeur (datas CHPO): C dérivée partielle par rapport à la pression partielle de vapeur C--------------------------------------------------------------------- C C E/ MPOVA1 : Densité de vapeur (en kg/m3) C E/ MPOVA2 : Température (en K) C /S MPOVA3 : Derivee de ZVAP(P,T) par rapport a P (en /Pa) C C--------------------------------------------------------------------- C C Langage : ESOPE + FORTRAN77 C 10/2002 C C--------------------------------------------------------------------- IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) C -INC SMCHPOI C N1 = MPOVA1.VPOCHA(/1) DO 10 I=1,N1 X1 = MPOVA1.VPOCHA(I,1) X2 = MPOVA2.VPOCHA(I,1) X3 = DZVDP0(X1,X2) MPOVA3.VPOCHA(I,1) = X3 10 CONTINUE C RETURN END