;+
;
;NAME: thmctpath
;
;PURPOSE:
;   Gets the path of the color table used by themis
;
;CALLING SEQUENCE:
;  thmctpath,getpath
; 
;
;
;$LastChangedBy: jwl $
;$LastChangedDate: 2009-06-11 14:55:13 -0700 (Thu, 11 Jun 2009) $
;$LastChangedRevision: 6150 $
;$URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/ssl_general/tags/tdas_5_11/misc/system/thmctpath.pro $
;----------

pro thmctpath, getpath = ctpathname

 
 ;is the path stored in an environment variable
 ctpathname = getenv('IDL_CT_FILE')
 
 if ~keyword_set(ctpathname) then begin
   rt_info = routine_info('thmctpath',/source)
   path = file_dirname(rt_info.path) + '/'
   ctpathname = path + 'colors1.tbl'
 endif

end