;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
; Init_path.pro
;
; add to !path the directory of thm_scm_cal procedures
; IDL must be run bay "idl Init_path.pro"
; Undex Unix,  "source Init_path.csh" must have be done to define
; DIR_thm_scm_cal environn. variable.
;
; P. Robert, CETP, January 2007
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

; path of the thm scm cal directory, +  *.pro source directory
  spawn, 'echo $DIR_thm_scm_cal/IDL_proc/src', out

; print info
  line='-'
  FOR i=1,STRLEN(out(0))+9+22  DO line=line+'-' 
  PRINT
  PRINT, line
  PRINT, 'Directory '+out(0)+' added to the IDL path'
  PRINT, line

; update of the path
  !path= !path + ':' +out(0)

  PRINT