pro saveascii2,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

c=col(variable)
c=strtrim(string(c),2)

for i=0L,long(row(variable)-1) do begin
   cmd="printf,f,format='("+c+"(G12.6,1x))',variable(*,i)"
   r=execute(cmd)
endfor
close,f
free_lun,f

return
end