pro gr, all_colors=all_colors, colors

common psprnt, fname, num

device, decomp = 0

;	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


	IF !version.OS eq 'windows' or !version.OS eq 'Win32' THEN BEGIN

Delim='\'

setenv,'gr_root=e:\grech\idl'					; common path


	ENDIF ELSE BEGIN

Delim='/'

setenv,'gr_root=/disk2/worg'			; common path
setenv,'gr_prg='+getenv('gr_root')+'/istp'	; grlib

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

	ENDELSE


PATH=getenv('gr_root')+Delim

cd,getenv('gr_prg')


setenv,'help_dir='+'c:\idl\lib\istp\demo'
setenv,'ssrt_demo='+'c:\idl\lib\istp\demo'
setenv,'results='+'e:\grech\results'

setenv,'ps_files='+'e:\grech\ps_files'


print,'Environment variables for the SSRT data processing'
print,'	are established.'
print,'Now current directory is ' + getenv('gr_root')
print


; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
setenv,'spk_dat=f:\data'          ; data directory
setenv,'optics_dir=f:\data\optics'		  ; optical data
setenv,'astr_data=c:\astr_dat'		  ; directory for files sol**.dat
setenv,'gr_prg=e:\grech\idl'

setenv,'SSW_EIT_RESPONSE=C:\ssw\soho\eit\response'

def_ssrt
def_uc

; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

end