Документ взят из кэша поисковой машины. Адрес оригинального документа : http://star.arm.ac.uk/~csj/idl/DIPSO/sp2wr.pro Дата изменения: Fri Apr 2 14:53:11 2010 Дата индексирования: Sun Apr 10 05:44:46 2016 Кодировка:

PRO sp2wr, file, x, y, header

; Write a 1d function into a spectrum format 2 file

ndat = n_elements(x)

openw,lun,file,/get_lun

PrintF, lun, header
PrintF, lun
PrintF, lun, ndat

FOR i = 0L,ndat-1 DO BEGIN
xx = x(i) & yy = y(i)
PrintF, lun, xx,yy, format='(f10.4,2x,e12.5)'
ENDFOR

close,lun
free_lun, lun

END