!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