FUNCTION test_str, str

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

;Check that "str" is scalar

;If "str" is scalar (single) and contains a string, then return a value of "1", otherwise
;return a value of "0"