local
   A, B: DBLOCK_MATRIX [DOUBLE]
do
   !!A.make (100, 100, 5, 2, ROW_WISE_MAPPING)
   !!B.make (100, 100, 7, 3, COLUMN_WISE_MAPPING)
     ...(1)...
   B.redistribute (A.dist)
     ...(2)...
end