static int cycle_components(
	/* Component to cycle    I/O */
	tag_t component,    
	/* for formatting        I/O */
	char *indentation)
{
	int    i;
	int    ifail = 0;
	int    component_count = 0;
	int    check_number = 0;
	tag_t  parent = NULL_TAG;
	tag_t  member = NULL_TAG;
	tag_t  *child_components = NULL;
	char   p_name[MAX_FSPEC_SIZE];
	char   r_name[MAX_ENTITY_NAME_SIZE];
	char   c_name[MAX_ENTITY_NAME_SIZE];
	double origin[3];
	double csys_matrix[9];
	double transform[4][4];
	char   sql_string[1024];
	char   buff[100];

	if (component == NULL_TAG) 
		  return 0;

	ifail = UF_ASSEM_ask_component_data( component,p_name,r_name,
		                                   c_name,origin,csys_matrix,
			                               transform);


	
	if (ifail != 0)
	{
		return ifail;
	}

 
	query_iman(p_name);


	component_count = UF_ASSEM_ask_part_occ_children(component,&child_components);
			
  
	for (i=0; i<component_count; i++)
	{
		ifail = cycle_components(child_components[i], indentation);
	}

	UF_free(child_components);
	return ifail;
}