Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.naic.edu/~rminchin/idl/masaddwgt.pro Дата изменения: Sat Aug 25 02:27:49 2012 Дата индексирования: Sun Feb 3 19:01:13 2013 Кодировка: Поисковые слова: annular solar eclipse

pro masaddwgt,b,wgt,sure=sure

if (n_elements(wgt) NE 1) then wgt =1
if (n_elements(sure) LT 1) then sure = 0

if ((b[0].accum NE 0) AND (sure NE 1) AND (wgt NE 1)) then begin
print,'Input struct is already weighted by ACCUM'
print,'No further weighting will be applied'
print,'If you are sure you want to change this, then use /sure'
wgt = 1
endif

if ((b[0].accum NE 0) AND (sure EQ 1) AND (wgt NE 1)) then begin
print,'WARNING: changing the weight of this struct!'
print,'The value of ACCUM will be modified.'
endif

if(wgt GT 1) then begin
for i = 0, (n_elements(b) - 1) do begin
b[i].accum = -1 * wgt
endfor
endif

end