pro myprint,text,stdout=stdout,outfile=outfile,blankline=blankline
;
; Default is to print to stdout only:
;
if (not keyword_set(stdout) and not keyword_set(file)) then begin
  if (keyword_set(blankline)) then print,' '
  print,text
  return
endif
if (keyword_set(stdout)) then print,text
;
; Print to external file:
;
if (keyword_set(outfile)) then begin
;
; Open for update:
  openu,/get_lun,/append,unit,outfile

  if (keyword_set(blankline)) then printf,unit,' '
  printf,unit,text

  free_lun,unit
endif

end