static void* vmaxnorm(NrnThread* nt) {
realtype max;
int i = nt->id;
max = N_VMaxNorm_Serial(xarg(i));
lockmax(max);
return (void*)0;
}
CAMLprim value sundials_ml_fvector_maxnorm(value fvector) {
CAMLparam1(fvector);
BA_STACK_NVECTOR(fvector, nv_f);
const double n = N_VMaxNorm_Serial(&nv_f);
CAMLreturn(caml_copy_double(n));
}
double N_VMaxNorm(N_Vector x)
{
return((double) N_VMaxNorm_Serial(x));
}