integer num_component_procs(MAX_COMPONENTS)
& num_component_procs,
numprocs = num_component_procs(compind)
numprocs=num_component_procs(compind)
& ( rank_component_procs(j,n),j=1,num_component_procs(n) )
& num_component_procs(n),
num_component_procs(compind)=num_component_procs(compind) + 1
j=num_component_procs(compind)
num_compcplr_procs(compind)=num_component_procs(compind) + 1
num_component_procs(compind)=0
& j=1,num_component_procs(compind) )
num_component_procs( compind ) = 0