;+
;NAME:
; get_rt_path
;PURPOSE:
;  gets the directory of the calling routine.  Used for reliably looking
;  up resource paths across platform
;CALLING SEQUENCE:
;  get_rt_path,path
;OUTPUT:
;  path: the path of the routine that called get_rt_path
;
;NOTES:
;  This is a general version of specific routines like getctpath.
;  Eventually those routines should be replaced with this one.
;
;$LastChangedBy: pcruce $
;$LastChangedDate: 2009-07-16 16:38:39 -0700 (Thu, 16 Jul 2009) $
;$LastChangedRevision: 6439 $
;$URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/ssl_general/tags/tdas_7_00/misc/get_rt_path.pro $
;-
pro get_rt_path,path

  compile_opt idl2

  tr = scope_traceback(/structure)
  rt_path = (tr[n_elements(tr)-2]).filename
  path = file_dirname(rt_path)

end