;------------------------------------------------------------
;         Ajout d'une commande dans le fichier de commande 
; -----------------------------------------------------------
; fcmd: nom du fichier de commande	string
; s:	lignes de commande		strarr
;------------------------------------------------------

PRO rh_command_ajout, fcmd, s, NOLOG = NOLOG
  
  openw,  unit, fcmd,/get_lun, /append
  printf, unit, "!QUIET=1"
  IF NOT(KEYWORD_SET(NOLOG)) THEN printf, unit, "t_elaps = systime(1)" 
  FOR i=0, N_ELEMENTS(s)-1 DO printf, unit, s(i)
  IF NOT(KEYWORD_SET(NOLOG)) THEN BEGIN
    printf, unit, $
    "print, '        '+string(systime(1)-t_elaps)+' secondes de traitement'"
    printf, unit, $
      "print, '============================================================'"
  ENDIF
  close,  unit
  free_lun, unit
  RETURN

END