real grid(1000000)
	integer n, nmax
	nmax=1000000

	call rdgrib(file='ds.ts.bin',grid=grid,nmax=nmax,n=n,match1=-':90 hour fcst:')
	write(*,*) n
	return
	end

	subroutine rdgrib(file=file,grid=grid,nmax=nmax,n=nZZ,match1

	character (len=*) file, inv, match1
	write(*,*)