#include 


/* insert empty (nan) row - called internally */
_cbinserterow(w = refwindow(w0), r0 = 0, c0 = 0, r1 = 0, c1 = 0, mode = 0)
{
        local nr, nc, v, r, c;

        (nr, nc) = size(w);

        nr = abs(r1 - r0) + 1;
        nc = abs(c1 - c0) + 1;

        if (nr >= 0 && nc >= 0 && r0 > 0 && c0 > 0)
        {
                r = (mode == 1) ? r1 : r0;

                v = nan * ones(nr, nc);
                cmd = sprintf("_cbinsertrow_insert(w%d, v, %lld, %lld, %d)", getwnum(w), r, c0, mode);
                eval(cmd);
        }
}