PRO dustem_init_st,dir=dir
  
;Initialize !dustem_params structure from original Desert parameters
;==== CAUTION: files in les_DAT do not correspond to Desert et al.
  IF not keyword_set(dir) THEN BEGIN
     IF !dustem_which EQ 'DESERT' THEN dir='DESERT_POST_ISO_MORE/'
     IF !dustem_which EQ 'COMPIEGNE' THEN dir='MC_DAT/'
     IF !dustem_which EQ 'VERSTRAETE' THEN dir='LV_DAT/'
;     IF getenv('DUSTEM_WHICH') EQ 'DESERT' THEN dir='DESERT_POST_ISO_MORE/'
;     IF getenv('DUSTEM_WHICH') EQ 'COMPIEGNE' THEN dir='MC_DAT/'
;     IF getenv('DUSTEM_WHICH') EQ 'VERSTRAETE' THEN dir='LV_DAT/'
  ENDIF                         ;ELSE BEGIN
;  dir_in=getenv('DUSTEM_SOFT_DIR')+'/Data/'+dir
;ENDELSE
;  dir_in=getenv('DUSTEM_SOFT_DIR')+'/Data/'+dir
  dir_in=!dustem_soft_dir+'/Data/'+dir
;dir_in=getenv('DUSTEM_DAT')
  st_model=dustem_read_all(dir_in)
  !dustem_params=ptr_new(st_model)

;Initialize filters
  dustem_filter_init,dir=dir
  
END