PRO test_num_vec, vdata, status, vsize, vtype

; Description: This module tests that the parameter "vdata" contains a one-dimensional vector
;              of number data. In other words, it checks that "vdata" is non-empty, contains 
;              numbers of any of the types BYTE, INTEGER, LONG, FLOAT, DOUBLE, UINT, ULONG,
;              LONG64 or ULONG64, and has exactly one dimension. If the module finds that 
;              "vdata" does indeed contain one-dimensional number data, then it also determines 
;              the vector length and saves this information in the parameter "vsize". Finally,
;              the module also returns the IDL type code of the parameter "vdata".
;
; Input Parameters:
;
;   vdata - ANY - The parameter to be tested whether or not it satisfies the properties that
;                 a one-dimensional vector of number data would have.
;
; Output Parameters:
;
;   status - INTEGER - The parameter "status" is set to "1" if the parameter "vdata" is a
;                      non-empty vector of numbers of any of the types BYTE, INTEGER, LONG, 
;                      FLOAT, DOUBLE, UINT, ULONG, LONG64 or ULONG64, with exactly one 
;                      dimension. Otherwise, the module sets "status" to a value of "0".
;   vsize - LONG - The length of "vdata". This parameter is only calculated if "status" is set 
;                  to "1".
;   vtype - INTEGER - The IDL type code of the data values stored in "vdata". Note that IDL type 
;                     codes of 1, 2, 3, 4, 5, 12, 13, 14 and 15 correspond to variable types of 
;                     BYTE, INTEGER, LONG, FLOAT, DOUBLE, UINT, ULONG, LONG64 and ULONG64, 
;                     respectively.
;
; Author: Dan Bramich (dmb@ing.iac.es)
;
; History:
;
;   14/08/2008 - Module created (dmb)

;Determine the IDL type code for "vdata"

;Check that "vdata" has one dimension

;If "vdata" is one-dimensional and contains numbers of any of the types BYTE, INTEGER, LONG, FLOAT, 
;DOUBLE, UINT, ULONG, LONG64 or ULONG64, then set the value of "status" to "1" and determine the 
;length of "vdata"