integer num_components
& num_components,
do n=1,num_components
num_components = 0
do compind=1,num_components
do compind = 1,num_components
do j=1,num_components
if ( num_components .EQ. MAX_COMPONENTS ) then
num_components=num_components+1
jmatch=num_components