logical, optional, intent(in) :: toall
 integer src,comm
 logical iamsrc
 src    = xmpi_master
 comm   = xmpi_comm
 iamsrc = xmaster
 ! wwvv it seems that toall is never used ...
 if(present(toall)) then
   if(toall) then
     src    = xmpi_imaster
     comm   = xmpi_ocomm
     iamsrc = xomaster
   endif
 endif
   if (xomaster) return

## vim: filetype=mako