character*100 lines(10) lines(1) = 'ds.td.bin' lines(2) = '-s' lines(3) = '-grib' lines(4) = 'junk' call wgrib2(4,lines) stop end