Exemple #1
0
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));
}