Changeset 433 for trunk/SRC/Interpolation/fromreg.pro

Timestamp:

06/14/10 12:31:14 (14 years ago)

Author:

smasson

Message:

add box mean interpolation in file_interp

File:

• trunk/SRC/Interpolation/fromreg.pro (modified) (1 diff)

trunk/SRC/Interpolation/fromreg.pro

@@ -126 +126 @@
   ENDIF
 ;
-  dataout = total(weig*datain[addr], 1)
+;---------------
+; do the interpolation
+;---------------
+  intype = size(datain, /type)
+  if intype LE 3 THEN dataout = total(weig*float(datain[addr]), 1) $
+  ELSE                dataout = total(weig*      datain[addr] , 1)
   dataout = reform(dataout, jpio, jpjo, /over)
+  IF intype LE 3 THEN dataout = round(temporary(dataout))
 ;
   RETURN, dataout