;+ ; NAME: ; is_double ; ; ; PURPOSE: ; return 1 if the input is of type double, 0 otherwise ; ; ; INPUTS: ; in: variable to test type ; ; ; OUTPUTS: ; 1 - the input was a douple, 0 - otherwise ; ; EXAMPLE: ; IDL> print, is_double(10.) ; 0 ; IDL> print, is_double(10.d) ; 1 ; ; ; ; MODIFICATION HISTORY: ; ; Sun Jun 22 20:04:27 2008, Brian Larsen ; ; written and tested ; ;- FUNCTION is_double, in IF size(in, /type) EQ 5 THEN return, 1 RETURN, 0 END