C Table 1. A FORTRAN code for calculating density and molal concentrations
C from molar data(see text for definition of terms).
 I = 1
 RHO(I) = 1.0
 10 SA=SL/RHO(I)
 CF = (1/RHO(I))*(1/(1-SA/1000))
 DO J = 1,N
 MOLAL(J) = CF*MOLAR(J)
 END DO
 I = I + 1
 CALL DENSITY (MOLAL(N),N,RHO(I))
 IF((RHO(I)-RHO(I-1)).GT.1E-6) GO TO 10
 CONTINUE