pro saveascii,variable,filename

;***SAVEASCII saves variables to the specified filename.
;***Use is as follows:   saveascii,variable,'filename'
;***Where
;***                      variable - vector or matrix
;***                    'filename' - filename to put variable into
;***
;***To put a saved variable into IDL use LOAD.PRO
;***
;***Written by BWBerger 9/3/98

fname=strtrim(filename,2)
print,'Saving '+fname
openw,f,fname,/get_lun

for i=0L,long(row(variable)-1) do begin
   printf,f,variable(*,i)
endfor
close,f
free_lun,f

return
end