mg_src_root.pro (dist

; docformat = 'rst'

;+
; Returns the absolute directory name (with a trailing slash) of the location 
; of the source code for the routine that called this function. Returns the 
; the current working directory (./) if called from the command line.
; 
; :Requires:
;    IDL 6.2
;    
; :Returns: 
;    string
;-     
function mg_src_root
  compile_opt strictarr
  
  traceback = scope_traceback(/structure)
  callingFrame = traceback[n_elements(traceback) - 2L > 0]
  return, file_dirname(callingFrame.filename, /mark_directory)
end