;+
; NAME:
;	WRT_HOST_PTH
; PURPOSE:
;	Write path of host to the file "HOST_PATH.LIS"
; CALLING SEQUENCE:  
;	.run WRT_HOST_PATH
; INPUTS:
;	None
; OUTPUTS:
;	Creates file HOST_PATH.LIS
; RESTRICTIONS:
;
; PROCEDURE:
;	Splits !path into string array using delimiter which depends
;	on the operating system, VMS or UNIX/ULTRIX.
; MODIFICATION HISTORY:
;	RDB,	20-Mar-92	
;-
;	break path according to operating system
delim = ','
if !version.os eq 'unix'   then delim = ':'
if !version.os eq 'ultrix' then delim = ':'
path = str2arr(!path,delim)


;	identify which machine running on
path_host = strlowcase(get_host())
print,'** Writing path for: ',path_host
when_run = '** Routine run on: ' + systime()
print,when_run

;	write the path out to a file
openw,lun,'host_path.lis',/get_lun
printf,lun,'** Path for: ',path_host
printf,lun,when_run
for j=0,n_elements(path)-1 do printf,lun,path(j)
free_lun,lun

end