;+
; **** OBSOLETE!!! Please use "str_element"instead! ***
;
;FUNCTION:  find_str_element
;PURPOSE:  find an element within a structure
; Input:
;   struct,  generic structure
;   name,    string  (tag name)
; Purpose:
;   Returns index of structure tag.
;   Returns -1 if not found
;   Returns -2 if struct is not a structure
;KEYWORDS:
;  If VALUE is set to a named variable then  the value of that element is
;   returned in it.
;
;CREATED BY:	Davin Larson
;LAST MODIFICATION:	@(#)find_str_element.pro	1.6 95/10/06
;-
function find_str_element,struct,name,  $
   VALUE = value;   value of structure element returned in this variable
if size(/type,struct) ne 8 then return,-2
tags = tag_names(struct)
n = where(strupcase(name) eq tags,count)
if count eq 0 then return, -1
i = n(0)
value = struct.(i)
return,i
end