FUNCTION test_fltdbl, num

; Description: This function tests that the parameter "num" contains a scalar number of the
;              type FLOAT or DOUBLE.
;
; Input Parameters:
;
;   num - ANY - The parameter to be tested whether or not it satisfies the properties that a 
;               scalar number of the type FLOAT or DOUBLE would have.
;
; Return Value:
;
;   The function returns an INTEGER value set to "1" if "num" contains a scalar number of the
;   type FLOAT or DOUBLE, and set to "0" if "num" does not contain a scalar number of the
;   type FLOAT or DOUBLE.
;
; Author: Dan Bramich (dmb@ing.iac.es)
;
; History:
;
;   23/01/2009 - Module created (dmb)

;Check that "num" is scalar

;If "num" is scalar (single) and contains a number of the type FLOAT or DOUBLE, then return a 
;value of "1", otherwise return a value of "0"