hi

{$IdProc, $NProc}

mpiGather[{$IdProc, $NProc}]

a = N[Pi*(1 + $IdProc), 222]; 
    mpiGather[a, d, 0, mpiCommWorld]

a

d

f[x_] := N[Pi, x]

f[13]

ParallelFunctionToList[f, 100, 0]

g[x_] := Gamma[2 + 0.5*(x - 1)]; 
    ParallelFunctionToList[g, 100, 0]

a = {2, 4, 5, 6,  15,  20}; 
    mpiScatter[a, b, 0, $mpiCommWorld]

b

mpiGather[b]

a  =  {2,  4,  5,  6,  
            7} + 8*$IdProc

mpiGather[a]

EdgeCell[a];  a

mpiGather[a]

<< Graphics`Animation`

b = 
      ParallelTable[
        Plot3D[Module[{r}, r = 2*Sqrt[x^2 + y^2] - (i*2/3); 
            Sin[r]/r], {x, -Pi, Pi}, {y, -Pi, Pi}], {i, 12}, 
        0]

Show[GraphicsArray[Partition[b, 2]]]

ShowAnimation[b]

Clear[c]

c[i_] := 
      Module[{cx, cy}, cx = Mod[i, 4]*2; cy = IntegerPart[i/4]*2; 
        ContourPlot[Sin[x y], {x, cx, cx + 2}, {y, cy, cy + 2}, 
          Frame -> False]]

c = ParallelTable[c[i - 1], {i, 16}, 0]

Show[
      GraphicsArray[Reverse[Partition[c, 4]], 
        GraphicsSpacing -> -0.0]]