pp_def('sms_WxH_pdlpp_4loops',
    Pars      => 'a(m,n); [o]b(p,q);',
    OtherPars => 'PDL_Indx par_sm_w; PDL_Indx par_sm_h;',

    RedoDimsCode => '$SIZE(p) = $SIZE(m) - $COMP(par_sm_w) + 1; 
                     $SIZE(q) = $SIZE(n) - $COMP(par_sm_h) + 1;',
    Code => '
        PDL_Indx i, j, k, l, w, h, W, H;
        w = $COMP(par_sm_w);
        h = $COMP(par_sm_h);
        W = $SIZE(m);
        H = $SIZE(n);
        for (i = 0; i < H - h + 1; i++) {
            for (j = 0; j < W - w + 1; j++) {
                for (k = 0; k < w; k++) {
                    for (l = 0; l < h; l++) {
                        $b(p=>j, q=>i) += $a(m=>j+k, n=>i+l);
                    }
                }
            }
        }
    ',
);

##</code><code>##

pp_def('sms_WxH_pdlpp_4loops',
    Pars      => 'a(m,n); [o]b(p,q);',
    OtherPars => 'PDL_Indx par_sm_w => w; PDL_Indx par_sm_h => h;',
    RedoDimsCode => '$SIZE(p) = $SIZE(m) - $SIZE(w) + 1; 
                     $SIZE(q) = $SIZE(n) - $SIZE(h) + 1;',
    Code => 'loop(q,p,w,h) %{ $b() += $a(m=>p+w, n=>q+h); %}',
);