do_user.m

function s_user = do_user( type, instants, zz, xx, yy)
%function s_user = do_user( type, instants, zz, xx, yy)
%
%Constructs the user structure for map, xz, yz or xyz.

    ninstants = length(instants);

    switch type
        
        case 'map'
            nlayers = length(zz);
            for n = 1 : ninstants
            for k = 1 : nlayers
                s_user(n,k) = struct(...
                    'instant', instants(n), ...
                    'layer', zz(k), ...
                    'xrange', xx, ...
                    'yrange', yy, ...
                    'type', type ...
                    );
            end
            end
            
        case 'xz'
            jsections = length(yy);
            for n = 1 : ninstants
            for j = 1 : jsections
            s_user(n,j) = struct(...
                    'instant', instants(n), ...
                    'zrange', zz, ...
                    'xrange', xx, ...
                    'ysection', yy(j), ...
                    'type', type);
            end
            end
            
        case 'yz'
            isections = length(xx);
            for n = 1 : ninstants
            for i = 1 : isections
            s_user(n,i) = struct(...
                    'instant', instants(n), ...
                    'zrange', zz, ...
                    'xsection', xx(i), ...
                    'yrange', yy, ...
                    'type', type);
            end
            end
            
        case 'xyz'
            for n = 1 : ninstants
            s_user(n) = struct(...
                    'instant', instants(n), ...
                    'zrange', zz, ...
                    'xrange', xx, ...
                    'yrange', yy, ...
                    'type', type);
            end
            
        otherwise
            disp('Error in type!');
            return
    end