%for par in parameters:
<% pname = "par%" + par["name"] %>\
  %if par["dimension"] == "(:)":

  ! start special treatment of ${pname}
  if (xmaster) then
     if ( .not. allocated(${pname})) then
        allocate(${pname}(0))
     endif
     nwork = size(${pname})
  endif
  call xmpi_bcast(nwork,toall)
  if ( .not. xmaster) then
     if (allocated(${pname})) deallocate(${pname})
     allocate(${pname}(nwork))
  endif
  ! end special treatment of ${pname}

  %endif
  call xmpi_bcast(${pname},toall)
%endfor
## vim: filetype=mako