function [name,prefered] = getdynamic(subsystems);
# Get the index of a dynamic components which is not set.
# ###############################################################
# ## Version control history
# ###############################################################
# ## $Id$
# ## $Log$
# ## Revision 1.2 1996/08/16 12:51:22 peter
# ## Removed debugging lines.
# ##
# ## Revision 1.1 1996/08/16 12:50:41 peter
# ## Initial revision
# ##
# ###############################################################
prefered = 0; # No prefered causality to start with
for [subsystem,name] = subsystems
if subsystem.status==-1 # Undercausal
if strcmp(subsystem.type,'C')
prefered=-1;
break;
endif;
if strcmp(subsystem.type,'I')
prefered=1;
break;
endif;
endif;
endfor;
if prefered==0
name = "";
end;
endfunction