PROGRAM checkwat2

c	Reads output of second pass through cover2 and lists
c	those solvents which need to checked

	CHARACTER*103	filnam, line
	REAL		wt(6,600:900), df(6,600:900), f(6,600:900),
	1		dfnw(6,600:900)

	DO i = 600,900
	  wt(1,i) = 0.0
	endDO

c	Get files

	WRITE (6, 1000) 'Enter input file name:'
1000	FORMAT (a)
	READ (5, 1000) filnam
	OPEN (unit=1, form='FORMATTED', status='OLD', readonly,
	1	file=filnam)

	WRITE (6, 1000) 'Enter output file name:'
	READ (5, 1000) filnam
	OPEN (unit=2, form='FORMATTED', status='UNKNOWN', file=filnam,
	1	carriagecontrol='LIST')

c	Loop through file

	DO WHILE (.TRUE.)
10	  READ (1, 1000, end=99) line
	  IF (line(65:67) .NE. 'WAT') goto 10
999	  FORMAT (i3)
	  READ (line(69:71), 999) num
	  READ (line(77:77), 998) nn
998	  FORMAT (i1)
	  num = num-10+nn
	  IF (line(72:72) .EQ. ' ') isub = 1
	  IF (line(72:72) .EQ. 'A') isub = 2
	  IF (line(72:72) .EQ. 'A') isub = 2
	  IF (line(72:72) .EQ. 'B') isub = 3
	  IF (line(72:72) .EQ. 'C') isub = 4
	  IF (line(72:72) .EQ. 'D') isub = 5
	  IF (line(72:72) .EQ. 'E') isub = 6
	  READ (line, 1001) wt(isub,num), df(isub,num), f(isub,num),
	1	dfnw(isub,num)
1001	  FORMAT (55x, f8.4, 16x, 4f8.1)
	endDO

99	CLOSE (unit=1)

	DO num = 600, 900
	  IF (wt(1,num) .NE. 0.) THEN
	    wt(1,num) = (wt(1,num)+wt(2,num)+wt(3,num)+wt(4,num)+
	1	wt(5,num)+wt(6,num))/6.
	    df(1,num) = (df(1,num)+df(2,num)+df(3,num)+df(4,num)+
	1	df(5,num)+df(6,num))/6.
	    f(1,num) = (f(1,num)+f(2,num)+f(3,num)+f(4,num)+
	1	f(5,num)+f(6,num))/6.
	    dfnw(1,num) = (dfnw(1,num)+dfnw(2,num)+dfnw(3,num)+
	1	dfnw(4,num)+dfnw(5,num)+dfnw(6,num))/6.
 	    IF (wt(1,num) .LE. 0.5 .OR. df(1,num) .LE. -0.75 .OR.
	1	f(1,num) .LE. 1.5 .OR. dfnw(1,num) .LE. 2.5) THEN 
	      WRITE (2, 1002) num, wt(1,num), df(1,num), f(1,num),
	1	dfnw(1,num)
1002	      FORMAT (i5, 4f8.2)
	    endIF
	  endIF
	endDO
	    
	CLOSE (unit=2)

	end