IDL中将1维或2维数组写入文件dlmwrite

PRO dlmwrite,FileName,DoubleArray,HeadStr=HeadStr
;================================================
;IDL中将1维或2维数组写入文件,模仿matlab的命令格式
;用法IDL>dlmwrite,FileName,DoubleArray
;用法IDL>dlmwrite,FileName,HeadStr=StrArray
;DoubleArray可以是1维或2维数组
;HeadStr是1维字符串数组,每个元素的长度不能大于12个字符
;================================================
;Rumswell(USTC & AIAI)
;Email:[e-mail]
;2011-03-29
;================================================
SDA=Size(DoubleArray)
;-----------------------------------------
if (SDA[0] eq 1) then begin
Row=SDA[1]
OPENW,Unit,FileName,/GET_LUN
IF KEYWORD_SET(HeadStr) AND (size(HeadStr,/type) EQ 7) THEN BEGIN 
PRINTF,Unit,HeadStr
ENDIF
FOR i=0,Row-1 DO BEGIN
PRINTF,Unit,DoubleArray[i]
ENDFOR
FREE_LUN, Unit
endif
;-----------------------------------------
if (SDA[0] eq 2) then begin
Column=SDA[1]
Row=SDA[2]
LineWidth=Column*20
OPENW,Unit,FileName,WIDTH=LineWidth,/GET_LUN
IF KEYWORD_SET(HeadStr) AND (size(HeadStr,/type) EQ 7) THEN BEGIN 
PRINTF,Unit,HeadStr,format='(99A13)'
ENDIF
FOR i=0,Row-1 DO BEGIN
PRINTF,Unit,DoubleArray[*,i]
ENDFOR
FREE_LUN, Unit
endif
;-----------------------------------------
end