Level 0
	wgrib2(n, args)
	character*(N) args(n)

Level 1
	read_grib2(file,match_string,array,n)