sprs4matlab.pro

IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。

; $Id: sprs4matlab.pro,v 1.2 2002/03/14 11:49:10 riccardi Exp $

pro sprs4matlab, sp, filename

	openw, unit, filename, /GET_LUN
	n=sp.ija[0]-2
	for i=0L,n-1 do begin
		printf, unit, i+1, i+1, sp.sa[i]
		for j=sp.ija[i],sp.ija[i+1]-1L do begin
			printf, unit, i+1, sp.ija[j-1], sp.sa[j-1]
		endfor
	endfor
	close, unit
end