#include 

/* set the sample rate of a series */
setrate(argv)
{
        local j, s = 0, rate = {}, item = {}, member = {};

        loop (j = 1..argc)
        {
                if (isarray(getargv(j)))
                {
                         s = refseries(getargv(j));
                }
                else if (isscalar(getargv(j)))
                {
                        if (isempty(rate))
                        {
                                rate = getargv(j);
                        }
                        else if (isempty(item))
                        {
                                item = getargv(j);
                        }
                        else if (isempty(member))
                        {
                                member = getargv(j);
                        }
                }
        }

        if (isscalar(s))
        {
                s = refseries(w0);
        }

        if (isempty(item))
        {
                item = -1;
        }

        if (isempty(member))
        {
                member = -1;
        }

        if (isempty(rate) || rate <= 0)
        {
                error("setrate - rate must be > 0");
        }
        
        setdeltax(s, 1 / rate, item, member);
}