;+
;
;NAME: gethelppath
;
;PURPOSE:
;  gets the path of the help directory in a cross platform way
;
;CALLING SEQUENCE:
;   gethelppath,path
;
;OUTPUT:
;   path:  the path to the resource directory
;
;
;$LastChangedBy: jimmpc $
;$LastChangedDate: 2009-05-29 15:10:52 -0700 (Fri, 29 May 2009) $
;$LastChangedRevision: 6004 $
;$URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/thmsoc/tags/tdas_5_11/idl/themis/thm_ui_new/utilities/gethelppath.pro $
;----------

pro gethelppath,path

  ;get path of routine
 rt_info = routine_info('gethelppath',/source)
 path = file_dirname(rt_info.path) + '/../help/'

end