IF(IPATH.EQ.1) WRITE(*,*) `T=', T
PHI=1.
CALL PITZER (T,1,EX)
2
CONTINUE
IF(IPATH.EQ.2) WRITE (*,*) `AMOUNT OF WATER=', BALWAT
CALL SOL (ICK,EX,ISOLU,IPATH)
TC=T-273.15
WRITE(10,15) TC,T
IF(IPATH.EQ.2) WRITE(10,16) BALWAT
IF(ICK.GT.400) GO TO 5
IF(IOPEN.GT.0) THEN
WRITE(10,17)
DO 3000 I=1,IOPEN
J=JOPEN(I)
WRITE(10,18) I,NM(NUM(J)),X(J),G(J)
3000
CONTINUE
END IF
IF(ISOLU.EQ.0) GO TO 4
C.........................
START OF OUTPUT
......................
WRITE(10,*) `
AQUEOUS SOLUTION'
WRITE(10,19) UM, PHI
WRITE(10,20)
DO 3100 K=IP1,NL-1
EX(K)=EX(K)*XW
G(K)=G(K)-DLOG(XW)
AC=EXP(ACT(K))
WRITE(10,21) K-IP,NM(K),X(K),EX(K),EX(K)*AC,AC,G(K)
3100
CONTINUE
WRITE(10,22) NL-IP,NM(NL),X(NL),DEXP(AH2O),G(NL)
4
WRITE(10,23)
DO 3200 K=1,IP
BALL(K)=0.
BALS(K)=0.
3200
CONTINUE
DO 3300 I=1,IOPEN
J=JOPEN(I)
DO 3301 K=1,IP
BALS(K)=BALS(K)+X(J)*AIN(K,NUM(J))
3301
CONTINUE
3300
CONTINUE
15
Previous Page
