/* ------------------------------------------------------------------------- */
/*                             SEQB.G                                        */
/*
    An alternative to seqa.  specify instead min, max, and a step size.  If
    max is not min + integer number * step size, the next smaller number is
    used.

    Usage:

    x = seqb(min,max,step);

*/
/* ------------------------------------------------------------------------- */
proc seqb(min,max,step);
    local nsteps, x;
     if max < min ; "seqb: asking for max < min"; endif;
    nsteps = trunc((max-min)/step+1.000000000001);
    x = seqa(min,step,nsteps);
    retp(x);
endp;