source: trunk/STRING/putfile.pro @ 2

;-------------------------------------------------------------
;+
; NAME:
;       PUTFILE
; PURPOSE:
;       Write a text file from a string array.
; CATEGORY:
; CALLING SEQUENCE:
;       putfile, f, s
; INPUTS:
;       f = text file name.      in
;       s = string array.        in
; KEYWORD PARAMETERS:
;       Keywords:
;         ERROR=err  error flag: 0=ok, 1=invalid string array.
; OUTPUTS:
; COMMON BLOCKS:
; NOTES:
; MODIFICATION HISTORY:
;       R. Sterner, 20 Mar, 1990
;       R. Sterner,  4 Nov, 1992 --- allowed scalar strings.
;
; Copyright (C) 1990, Johns Hopkins University/Applied Physics Laboratory
; This software may be used, copied, or redistributed as long as it is not
; sold and this copyright notice is reproduced on each copy made.  This
; routine is provided as is without any express or implied warranties
; whatsoever.  Other limitations apply as described in the file disclaimer.txt.
;-
;-------------------------------------------------------------
 
        pro putfile, file, s, error=err, help=hlp
 
        if (n_params(0) lt 1) or keyword_set(hlp) then begin
          print,' Write a text file from a string array.'
          print,' putfile, f, s'
          print,'   f = text file name.      in'
          print,'   s = string array.        in'
          print,' Keywords:'
          print,'   ERROR=err  error flag: 0=ok, 1=invalid string array.'
          return
        endif
;
        if lmgr(/demo) then begin
           print, 'you are in Demo mode. It is impossible to write a file'
           return
        endif
; 
        if size(s, /type) ne 7 then begin
          print,' Error in putfile: argument must be a string array.'
          err = 1
          return
        endif
 
        get_lun, lun
        openw, lun, file
 
        for i = 0, n_elements(s)-1 do begin
          t = s(i)
          if t eq '' then t = ' '
          printf, lun, t
        endfor
 
        close, lun
        free_lun, lun
        err = 0
        return
 
        end