;--------------------------------------------------------
;         Ecriture du baratin dans un fichier de commande
; -------------------------------------------------------
; fcmd:  	nom du fichier de commande	string
; label:	baratin				string
;------------------------------------------------------

PRO rh_command_baratin, fcmd, baratin, ECHO = ECHO
  openw,  unit, fcmd,/get_lun, /append
  IF keyword_set(ECHO) THEN BEGIN
     printf, unit, "echo "+baratin
  ENDIF ELSE BEGIN
     printf, unit, baratin
  ENDELSE
  close,  unit
  free_lun, unit
  RETURN

END