Biz/Bild/Bessel.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

// : dep guile-3.0
// : lib libbessel-guile
// : arg -shared
// : arg -fPIC

#include <math.h>
#include <libguile.h>

SCM
j0_wrapper(SCM x)
{
  return scm_from_double(j0(scm_to_double(x)));
}

void
init_bessel()
{
  scm_c_define_gsubr("j0", 1, 0, 0, j0_wrapper);
}