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:rumswell@qq.com
;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