integer num_compcplr_procs(MAX_COMPONENTS)
& num_compcplr_procs,
j=num_compcplr_procs(compind)
& ( rank_compcplr_procs(j,n),j=1,num_compcplr_procs(n) )
& num_compcplr_procs(n),
num_compcplr_procs(compind)=num_component_procs(compind) + 1
do j=1,num_compcplr_procs(compind)
& j=1,num_compcplr_procs(compind) )
num_compcplr_procs(compind)=0
num_compcplr_procs(compind)=num_compcplr_procs(compind) + 1
num_compcplr_procs( compind ) = 0