!
!	make index file
!       see if immediate write to disk
!
	use wgrib2api

	character (len=200) :: file, inv, var, str_date
	character (len=99) :: invline

	file = 'gep19.t00z.pgrb2af180'
	file = 'onerec.grb2'
	inv = 'test.inv'

!	make inv file
	iret = grb2_mk_inv(file, inv)
	if (iret.ne.0) stop 1
        call system('ls -l test.inv')
        stop
        end