function [bio] = cube2bio(data_cube)

[a b c]=size(data_cube);

bio=ones(b,c)*NaN;
for j=1:b
for k=1:c
    bio(j,k)=data_cube(1,j,k);
end
end

bio=bio';