FUNCTION dustem_run,params,help=help

;+
; NAME:
;    dustem_run
; PURPOSE:
;    Runs the DUSTEM code and returns the results into a structure.
; CATEGORY:
;    Dustem
; CALLING SEQUENCE:
;    st=dustem_run(params[,/help])
; INPUTS:
;    params = model parameter values
; OPTIONAL INPUT PARAMETERS:
;    None
; OUTPUTS:
;    st: output structure
; OPTIONAL OUTPUT PARAMETERS:
;    None
; ACCEPTED KEY-WORDS:
;    help      = If set, print this help
; COMMON BLOCKS:
;    None
; SIDE EFFECTS:
;    None
; RESTRICTIONS:
;    The dustem idl wrapper must be installed
; PROCEDURE:
;    None
; EXAMPLES
;    st=dustem_run(params)
; MODIFICATION HISTORY:
;    Written by J.-Ph. Bernard, N. Flagey, D. Paradis Jan 2007
;    see evolution details on the dustem cvs maintained at CESR
;    Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems.
;-

IF keyword_set(help) THEN BEGIN
  doc_library,'dustem_run'
  st=0.
  goto,the_end
ENDIF

CASE n_params() OF
  0: BEGIN
     END
  1: BEGIN
       dustem_set_params,params
     END
  ELSE: BEGIN
    message,'usage: st=dustem_run([params])',/info
    st=0
    GOTO,the_end
  END
ENDCASE
  
;spawn,'dustem'
;st=dustem_read_all_res(getenv('DUSTEM_RES'),/silent)
;print,'params',params
spawn,!dustem_f90_exec

st=dustem_read_all_res(!dustem_res,/silent)
  
the_end:

RETURN,st
  
END