;------------------------------------------------------
;         Ecriture d'un fichier de commande IDL
; -----------------------------------------------------
;
;INPUTS:
;-------
;	fcmd:  nom du fichier de commande	string
;	       sans extension
;	s:     lignes de commande		strarr
;
;KEYWORDS:
;---------
;	LABEL:	pour le fichier LOG
; 	LATER:  execution differe
;	NOLOG:
; 	APPEND: append du fichier de commande
;	GROUP:
;------------------------------------------------------

PRO rh_command1, fcmd, s, LATER = LATER, APPEND=APPEND, $
                 LABEL=LABEL, NOLOG = NOLOG, IDL=IDL, group = group
  IF NOT(KEYWORD_SET(APPEND)) THEN rh_command_creation, fcmd+".cmd"
  IF KEYWORD_SET(LABEL) THEN rh_command_baratin, fcmd+".cmd", LABEL, /ECHO
  IF KEYWORD_SET(IDL) THEN BEGIN
     openw,  unit, fcmd+".cmd",/get_lun,/append
     IF KEYWORD_SET(NOLOG) THEN printf, unit, "idl <<% >&/dev/null" ELSE $
        printf, unit, "idl <<% "
     a = "if strpos(!path, '$RH_DIR') lt 0 "
     a = a+"then !Path = expand_path('+$RH_DIR')+':' + !Path"
     printf, unit, a
     printf, unit, "!QUIET=1"
     close,  unit
     free_lun, unit
  ENDIF
  rh_command_ajout, fcmd+".cmd", s, NOLOG = NOLOG

  IF KEYWORD_SET(IDL) THEN BEGIN
     openw,  unit, fcmd+".cmd",/get_lun,/append
     printf, unit, "exit"
     printf, unit, "%"
     close,  unit
     free_lun, unit
  ENDIF
;  
  IF NOT KEYWORD_SET(LATER) THEN rh_command_exec, fcmd, group=group

  RETURN

END