static void cpyr(R *ra, bench_tensor *sza, R *rb, bench_tensor *szb)
{
cpyr_closure k;
k.k.apply = cpyr0;
k.ra = ra; k.rb = rb;
bench_dotens2(sza, szb, &k.k);
}
static void cpy(R *ra, R *ia, const bench_tensor *sza, int scalea,
R *rb, R *ib, const bench_tensor *szb, int scaleb)
{
cpy_closure k;
k.k.apply = cpy0;
k.ra = ra; k.ia = ia; k.rb = rb; k.ib = ib;
k.scalea = scalea; k.scaleb = scaleb;
bench_dotens2(sza, szb, &k.k);
}
static void cpyhc2(R *ra, R *ia,
const bench_tensor *sza, const bench_tensor *vecsza,
int scalea,
R *rb, R *ib, const bench_tensor *szb)
{
cpyhc2_closure k;
BENCH_ASSERT(sza->rnk <= 1);
k.k.apply = cpyhc20;
k.n = tensor_sz(sza);
k.scalea = scalea;
if (!FINITE_RNK(sza->rnk) || sza->rnk == 0)
k.as = 0;
else
k.as = sza->dims[0].os;
k.ra = ra; k.ia = ia; k.rb = rb; k.ib = ib;
bench_dotens2(vecsza, szb, &k.k);
}
