!PROMPT = 'HGDL> '

  HEALPix_path = '+' + '/usr/share/gnudatalanguage/lib/healpix'
  !path = EXPAND_PATH(HEALPix_path)+ PATH_SEP(/SEARCH) + !path

  pathtab = expand_path(!path,/array)
  junk = file_search(pathtab+path_sep()+'init_healpix.pro', count=count)

  if (count gt 0) then begin $
     init_healpix & $
     print,'**************************' & $
     print,' Welcome to Healpix '+!healpix.version & $
     print,'**************************' & $
     endif else begin $
     print,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' & $
     print,'!  WARNING: the Healpix routines are currently NOT found  !' & $
     print,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' & $
  endelse