I recently had to implement some Bessel functions numerically. It's fantastic to see that someone at Sun Microsystems implemented all this procedures in the early 90's (I'm sure even long before that). You will find this implementations in R, Julia, musl, you name it!
I like it specially the use the "GET_HIGH_WORD" and friends:
https://git.musl-libc.org/cgit/musl/tree/src/math/j0.c
It's a lot of fun to figure out what they meant by things like:
> if (ix >= 0x7ff00000) return 1/(x*x);
you should check out Bessels.jl which has really high performance implications.
Thanks! I love it, so easy to understand and follow.
My favourite work on the subject is Fredrik Johansson's:
https://github.com/fredrik-johansson/arb
Whenever I feel down and without energy I just read something in there