SUBROUTINE RDATA
#include "com2d.h"
	OPEN(UNIT=12,NAME='F68H2OMR.DAT',TYPE='OLD',
     c		FORM='FORMATTED')

C READ IN H2O IN MIXING RATIOS   10/31/88

	DO 4490 II=1,12
		READ(12,3390)
		DO 1034 IJ=1,L$
			READ(12,3)(H2ODEN(II,IJ,IK),IK=1,30)
1034		CONTINUE
4490	CONTINUE

    3        FORMAT(6E13.6)

3390	FORMAT(1X)

	write(90)h2oden

	RETURN

	END