parameter (nn=100010)
	character data*64
	integer iens,iqual
c
	iqual2 = 9
c
	open (unit=7,file='good.dat')
	read(7,*)n
c
	if (n.gt.nn) then
		write(6,*)'increase array size in match.f',n,nn
		stop
	end if
c
	i_old = 0
	do 1 i=1,n
		read(7,101)iens,data,xlon,ylat,iqual
		igap = iens-i_old-1
		if (igap .gt. 0) then
c			write(6,*)i_old,iens
			do 2 j=1,igap
				write(8,101)i_old+j,data,xlon,ylat,iqual2
2			continue
			write(8,101)iens,data,xlon,ylat,iqual
		else if (igap .eq. 0) then
			write(8,101)iens,data,xlon,ylat,iqual
		end if
		i_old = iens
101		format(i9,a64,2f11.6,i2)
1	continue
	stop
	end