; procedure to call read_hope in the widget mode
PRO xrh, _extra = ex
;
  compile_opt idl2, strictarrsubs
;
   a = read_hope(_extra = ex)
   return
end