/* is series time only */
istime(s = refwindow(w0))
{
        local status = FALSE;

        if (isarray(s))
        {
                if (length(s) > 0)
                {
                        /* check units */
                        status = istime_iterate(s);
                        status = transpose(status);
                        status = all(status);
                }
        }
        else
        {
                /* string */
                status = istimestr(s);
        }

        return(status);
}


/* iterate through columns */
ITERATE istime_iterate(s)
{
        local vunits, status;

        /* use Z units to get time for each column */        
        vunits = tolower(getzunits(s));

        status = (vunits == "time" || vunits == "real time" || vunits == "seconds");

        return({status});
}