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);
}