; Get the Vdata information from an HDF file

Function get_vd,file_id,name

;Attempt to catch some errors
CATCH, Error_status
If Error_status NE 0 then begin
       Print, 'Error index: ', Error_status
       Print, 'Error message: ', !ERR_STRING
       return, -99999.
endif

       vd_ref = hdf_vd_find(file_id, strtrim(name,2))
       vdata=hdf_vd_attach(file_id,vd_ref)
       nread=hdf_vd_read(vdata,var)       
       hdf_vd_detach, vdata
return,var
end