; file remove_nan.pro ; init: Aug 14 2014 Rob Rutten Oslo from Hsiao-Hsuan Lin (Oslo) ; last: Aug 14 2014 Rob Rutten Oslo pro remove_nan,datain,dataout ifini = finite(datain,/nan) iw = where(ifini eq 1) dataout = datain dataout[iw] = 0. end