integer my_coupler_rank
& my_coupler_rank,
rank = my_coupler_rank
rank=my_coupler_rank
dest = my_coupler_rank
dest=my_coupler_rank
my_coupler_rank=rank_coupler_procs(1)
& ' my_coupler_rank =',my_coupler_rank,' /',numprocs