getinfovd.pro

来自「浏览MODIS遥感数据的HDF格式数据的IDL程序」· PRO 代码 · 共 17 行

ErrorNo = 0
Catch, ErrorNo
if (ErrorNo ne 0) then begin
	Catch, /CANCEL
	ErrArray = ['Application Error in '+pro_name+ '!', $
	'Error Number: '+strtrim(!error,2), $
	!Err_String]
	a = DIALOG_MESSAGE(ErrArray, /ERROR)
	HDF_VD_DETACH,vd_id
	HDF_CLOSE,file_id
	HDF_VD_DETACH,org_vd_id
	HDF_CLOSE,org_file_id
	return
 endif