static void* vmin(NrnThread* nt) {
realtype min;
int i = nt->id;
if (NV_LENGTH_S(xarg(i))) {
min = N_VMin_Serial(xarg(i));
lockmin(min);
}
return (void*)0;
}
static void* vwrmsnorm(NrnThread* nt) {
ldrealtype s;
int i = nt->id;
s = vwrmsnorm_help(xarg(i), warg(i));
locklongdadd(s);
return (void*)0;
}
static void* vminquotient(NrnThread* nt) {
realtype min;
int i = nt->id;
min = N_VMinQuotient_Serial(xarg(i), yarg(i));
lockmin(min);
return (void*)0;
}
static void* vl1norm(NrnThread* nt) {
realtype sum;
int i = nt->id;
sum = N_VL1Norm_Serial(xarg(i));
lockadd(sum);
return (void*)0;
}
static void* vinvtest(NrnThread* nt) {
booleantype b;
int i = nt->id;
b = N_VInvTest_Serial(xarg(i), zarg(i));
if (!b) { lockfalse; }
return (void*)0;
}
static void* vdotprod(NrnThread* nt) {
realtype s;
int i = nt->id;
s = N_VDotProd_Serial(xarg(i), yarg(i));
lockadd(s);
return (void*)0;
}
static void* vwl2norm(NrnThread* nt) {
realtype sum;
int i = nt->id;
sum = N_VWL2Norm_helper(xarg(i), warg(i));
lockadd(sum);
return (void*)0;
}
static void* vmaxnorm(NrnThread* nt) {
realtype max;
int i = nt->id;
max = N_VMaxNorm_Serial(xarg(i));
lockmax(max);
return (void*)0;
}
static void* vconstrmask(NrnThread* nt) {
booleantype b;
int i = nt->id;
b = N_VConstrMask_Serial(yarg(i), xarg(i), zarg(i));
if (!b) { lockfalse; }
return (void*)0;
}
static void* vwrmsnormmask(NrnThread* nt) {
realtype s;
int i = nt->id;
s = vwrmsnormmask_help(xarg(i), warg(i), idarg(i));
lockadd(s);
return (void*)0;
}
static void* vcompare(NrnThread* nt) {
int i = nt->id;
N_VCompare_Serial(carg, xarg(i), zarg(i));
return (void*)0;
}
static void* v1mask(NrnThread* nt) {
int i = nt->id;
N_VOneMask_Serial(xarg(i));
return (void*)0;
}
static void* vprod(NrnThread* nt) {
int i = nt->id;
N_VProd_Serial(xarg(i), yarg(i), zarg(i));
return (void*)0;
}
static void* vscale(NrnThread* nt) {
int i = nt->id;
N_VScale_Serial(carg, xarg(i), zarg(i));
return (void*)0;
}
static void* vlinearsum(NrnThread* nt) {
int i = nt->id;
N_VLinearSum_Serial(aarg, xarg(i), barg, yarg(i), zarg(i));
return (void*)0;
}
static void* vaddconst(NrnThread* nt) {
int i = nt->id;
N_VAddConst_Serial(xarg(i), barg, zarg(i));
return (void*)0;
}
static void* vinv(NrnThread* nt) {
int i = nt->id;
N_VInv_Serial(xarg(i), zarg(i));
return (void*)0;
}
static void* vabs(NrnThread* nt) {
int i = nt->id;
N_VAbs_Serial(xarg(i), zarg(i));
return (void*)0;
}
TEST(XARG, XARG) {
char text[]={'h','e','l','l','o',XARG_START_OF_TEXT_CODE,'w','o','r','l','d',XARG_END_OF_TEXT_CODE,'f','o','o',XARG_START_OF_TEXT_CODE,'b','a','r',XARG_END_OF_TEXT_CODE,0};
XARG xarg(text);
ASSERT_STREQ("world", xarg["hello"].c_str()) << "Should be equal";
ASSERT_STREQ("bar", xarg["foo"].c_str()) << "Should be equal";
}
static void* vdiv(NrnThread* nt) {
int i = nt->id;
N_VDiv_Serial(xarg(i), yarg(i), zarg(i));
return (void*)0;
}
