realtype N_VMinQuotient_NrnThread(N_Vector x, N_Vector y) /* num, denom */
{
retval = BIG_REAL;
xpass ypass
nrn_multithread_job(vconstrmask);
mydebug2("vminquotient %.20g\n", retval);
return(retval);
}
booleantype N_VInvTest_NrnThread(N_Vector x, N_Vector z)
{
bretval = TRUE;
xpass zpass
nrn_multithread_job(vinvtest);
mydebug2("vinvtest %d\n", bretval);
return(bretval);
}
booleantype N_VConstrMask_NrnThread(N_Vector y, N_Vector x, N_Vector z)
{
bretval = TRUE;
ypass xpass zpass
nrn_multithread_job(vconstrmask);
mydebug2("vconstrmask %d\n", bretval);
return(bretval);
}
realtype N_VMin_NrnThread(N_Vector x)
{
retval = BIG_REAL;
xpass
nrn_multithread_job(vmin);
mydebug2("vmin %.20g\n", retval);
return(retval);
}
realtype N_VL1Norm_NrnThread(N_Vector x)
{
retval = ZERO;
xpass
nrn_multithread_job(vl1norm);
mydebug2("vl1norm %.20g\n", retval);
return(retval);
}
realtype N_VDotProd_NrnThread(N_Vector x, N_Vector y)
{
retval = ZERO;
xpass ypass
nrn_multithread_job(vdotprod);
mydebug2("vdotprod %.20g\n", retval);
return(retval);
}
realtype N_VMaxNorm_NrnThreadLD(N_Vector x)
{
retval = ZERO;
xpass
nrn_multithread_job(vmaxnorm);
mydebug2("vmaxnorm %.20g\n", retval);
return(retval);
}
realtype N_VWL2Norm_NrnThread(N_Vector x, N_Vector w)
{
long int N;
retval = ZERO;
xpass wpass
nrn_multithread_job(vwl2norm);
N = NV_LENGTH_NT(x);
mydebug2("vwl2norm %.20g\n", RSqrt(retval));
return(RSqrt(retval));
}
realtype N_VWrmsNormMask_NrnThread(N_Vector x, N_Vector w, N_Vector id)
{
long int N;
N = NV_LENGTH_NT(x);
retval = ZERO;
xpass wpass idpass
nrn_multithread_job(vwrmsnormmask);
mydebug2("vwrmsnormmask %.20g\n", RSqrt(retval / N));
return(RSqrt(retval / N));
}
realtype N_VWrmsNorm_NrnThread(N_Vector x, N_Vector w)
{
long int N;
N = NV_LENGTH_NT(x);
#if USELONGDOUBLE
longdretval = ZERO;
#else
retval = ZERO;
#endif
xpass wpass
nrn_multithread_job(vwrmsnorm);
#if USELONGDOUBLE
retval = longdretval;
#endif
mydebug2("vwrmsnorm %.20g\n", RSqrt(retval / N));
return(RSqrt(retval / N));
}
