function oc_struct_star, catalog_in

; Simple routine which returns a star structure appropriate for a given catalog.
;
; Input: catalog type (e.g., 'hd', 'ty2') -- case insensitive
;
; HBT 23-Feb-2005

  catalog	= strlowcase(catalog_in)

  case catalog of
    'hd'  : starinfo = {      scatstr: '', $		; Line from output of scat (*not* catalog line!) (string)
		              spt    : '', $		; Spectral type (string)
			      vmag   : 0d} 		; Vmag (double)
    'ty2' : starinfo = {      scatstr: '', $		; Line from output of scat (*not* catalog line!) (string)
		              bmag   : 0d, $		; Bmag (double)
			      vmag   : 0d} 		; Vmag (double)
  end

; Set up the output structure

  star		= {id:     '', $			; Star name or ID
                   ra:     0d, $			; RA  (radians)
		   dec:    0d, $			; Dec (radians)
		   radius: 0d, $			; Radius of c/a (radians)
		   catalog:catalog, $			; Name of catalog for which this ID is
		   starinfo:starinfo $
		  }
  return, star
end