Fix typo in gsl_sf_coupling.pd

As reported on Pdl-general, there was a typo in the pp_def code for gsl_sf_coupling_6j in which it was mistakenly calling the GSL routine gsl_sf_coupling_3j_e instead of _6j_e. Thanks to Yury Pakhomov for reporting the bug, and to Chris Marshall for quickly pointing out the solution.
PDLPorters · Sep 14, 2016 · 1f17b74 · 1f17b74
1 parent f46696c
commit 1f17b74
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Lib/GSL/SF/coupling/gsl_sf_coupling.pd b/Lib/GSL/SF/coupling/gsl_sf_coupling.pd
@@ -38,7 +38,7 @@ pp_def('gsl_sf_coupling_6j',
        Pars=>'ja(); jb(); jc(); jd(); je(); jf(); double [o]y(); double [o]e()',
        Code =>'
 gsl_sf_result r;
-GSLERR(gsl_sf_coupling_3j_e,($ja(),$jb(),$jc(),$jd(),$je(),$jf(),&r))
+GSLERR(gsl_sf_coupling_6j_e,($ja(),$jb(),$jc(),$jd(),$je(),$jf(),&r))
 $y() = r.val;
 $e() = r.err; 
 ',