process->simdata->put_host = dest;
process->simdata->put_channel = channel;
while(!(task_simdata->comm))
__MSG_process_block();
process->simdata->put_host = NULL;
process->simdata->put_channel = -1;
process->simdata->put_host = dest;
process->simdata->put_channel = channel;
while(!(task_simdata->comm))
__MSG_process_block();
process->simdata->put_host = NULL;
process->simdata->put_channel = -1;