Unnamed

for (i = 0; i < dim; i++)       for (j = 0; j < dim; j++)           dst[RIDX(dim-1-j, i, dim)] = src[RIDX(i, j, dim)];