function RLE = mCompute8x8RLE( coefficients )

RLE_sequence = [ ...
	 1     9     2     3    10    17    25    18    11     4     5    12 ...
	19    26    33    41    34    27    20    13     6     7    14    21 ...
	28    35    42    49    57    50    43    36    29    22    15     8 ...
	16    23    30    37    44    51    58    59    52    45    38    31 ...
	24    32    39    46    53    60    61    54    47    40    48    55 ...
	62    63    56    64 ];


RLE = zeros( size( RLE_sequence ) );

count = 0;
RLE_index = 0;
last_non_zero = 0;
while count < 64
  count = count+1;
  index = RLE_sequence( count );
  if coefficients( index ) ~= 0
    RLE_index = RLE_index + 1;
    RLE( RLE_index ) = coefficients( index ) + i*( count - last_non_zero - 1 );
    last_non_zero = count;
  end
end

RLE = RLE( 1:RLE_index );