pro istp_env, all_colors=all_colors, colors

common psprnt, fname, num

;	This routine defines the environment variables required by the
;	express-preprocessing programs 'ewsn_view', 'source', 'source_size'



if n_elements(colors) le 0 and not keyword_set(all_colors) $
	then colors=200

fname=''
num=0
Delim='/'
home_dir=getenv('HOME')
idl_dir=getenv('IDL_DIR')

if not keyword_set(all_colors) then begin
	window,0,xsi=100,ysi=100,colors=colors
	loadct,0
	wait,0.5
	wdelete,0
endif

cd, home_dir

setenv,'gr_root='+idl_dir+'/lib/istp'
setenv,'gr_prg='+idl_dir+'/lib/istp'
setenv,'ssrt_demo='+idl_dir+'/lib/istp/demo'
setenv,'help_dir='+idl_dir+'/lib/istp/demo'
setenv,'ar_database='+idl_dir+'/lib/istp/data'
setenv,'astr_data='+idl_dir+'/lib/istp/data/astr_dat'		  ; directory for files sol**.dat

setenv,'spk_dat=/usr/home/data'
setenv,'optics_dir=/usr/home/data/optics'
setenv,'ps_files=/usr/home/data/ps_files'
setenv,'results=/usr/home/data/results'

print,'Environment variables for the SSRT data processing'
print,'are established.'
print,'Now current directory is ' + home_dir
print

def_ssrt
def_uc

end