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); %}',
);