WIGSGLL evaluates sequences of Wigner 3j, 6j and 9j symbols accurately using the Luscombe-Luban improvements [1] of the Schulten-Gordon schemes [2].
See README (included with download).
Some usage statistics of WIGXJPF/FASTWIGXJ.
make bin/wigsgll --6j=2,2,1,2,1,1 bin/wigsgll --6j=x,2,1,2,1,1
#include "wigsgll.h" #define MAX_VALS 100 int main() { double vals[MAX_VALS]; int two_min, two_max, two_i; int n, i; n = wig6jjqdjd(/* */ 2* 2 , 2* 1 , 2* 2 , 2* 1 , 2* 1 , vals, MAX_VALS, &two_min, &two_max); for (i = 0, two_i = two_min; i < n; i++, two_i += 2) { /* vals[i] contains value for j1 = 0.5 * two_i */} return 0; }
To avoid version numbers in directory name, unpack with:
tar --transform 's/wigsgll-[0-9.]*/wigsgll/' -zxf wigsgll-latest.tar.gz
Last modified: Sun Jan 22 13:06:47 CET 2023 by htj