FUNCTION test_intlon, num

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

;Check that "num" is scalar

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