Steady State Heat Equation Results

SetDirectory@NotebookDirectory[];

Data produced by serial Jacobi solver

serialdata=Import["heat_serial.csv"];
Dimensions[serialdata]

MatrixPlot[serialdata,ColorFunction->"TemperatureMap",ImageSize->Large]//Rasterize

Data produced by MPI-parallelised Jacobi solver, with serial IO

paralleldata=Import["heat_parallel.csv"];
Dimensions[paralleldata]

MatrixPlot[paralleldata,ColorFunction->"TemperatureMap",ImageSize->Large]//Rasterize

Data produced by MPI-parallelised Jacobi solver, with parallel IO

Module[{binarydata=BinaryReadList["heat_parallel.bin","Real64"]},
paralleliodata=Transpose/@(ArrayReshape[#,{200,200}]&/@Partition[binarydata,{200*200}]);
MatrixPlot[Join[Sequence@@paralleliodata,2],ColorFunction->"TemperatureMap",ImageSize->Large]
]//Rasterize