integer rank_coupler_procs(MAX_PROCS)
& rank_coupler_procs,
rank_compcplr_procs(j,compind)=rank_coupler_procs(1)
& ( rank_coupler_procs(j),j=1,num_coupler_procs )
rank_coupler_procs(num_coupler_procs) = ibuf(1)
my_coupler_rank=rank_coupler_procs(1)