& my_component_name
character*(MAXLEN_COMP_NAME) my_component_name
my_component_name=coupler_Name
my_component_name=component_Name( compind )