24 September 2023 9:11:17.517 AM clebsch_gordan_test(): FORTRAN77 version Test clebsch_gordan(). TEST01 COF3J evaluates the Wigner 3J coefficient. J1 J2 J3 M1 M2 M3 THREE_J 1.00 4.50 3.50 1.00 -3.50 2.50 0.2788866755113585 0.2788866755113583 2.00 4.50 3.50 1.00 -3.50 2.50 -0.9534625892455922E-01 -0.9534625892455927E-01 3.00 4.50 3.50 1.00 -3.50 2.50 -0.6741998624632421E-01 -0.6741998624632417E-01 4.00 4.50 3.50 1.00 -3.50 2.50 0.1533110351679666 0.1533110351679663 5.00 4.50 3.50 1.00 -3.50 2.50 -0.1564465546936860 -0.1564465546936858 6.00 4.50 3.50 1.00 -3.50 2.50 0.1099450412156551 0.1099450412156549 7.00 4.50 3.50 1.00 -3.50 2.50 -0.5536235693131719E-01 -0.5536235693131705E-01 8.00 4.50 3.50 1.00 -3.50 2.50 0.1799835451137786E-01 0.1799835451137783E-01 TEST02 COF6J evaluates the Wigner 6J coefficient. J1 J2 J3 J4 J5 J6 SIX_J 1.00 8.00 7.00 6.50 7.50 7.50 0.3490905138373300E-01 0.3490905138373339E-01 2.00 8.00 7.00 6.50 7.50 7.50 -0.3743025039659792E-01 -0.3743025039659872E-01 3.00 8.00 7.00 6.50 7.50 7.50 0.1890866390959560E-01 0.1890866390959574E-01 4.00 8.00 7.00 6.50 7.50 7.50 0.7342448254928643E-02 0.7342448254928772E-02 5.00 8.00 7.00 6.50 7.50 7.50 -0.2358935185081794E-01 -0.2358935185081834E-01 6.00 8.00 7.00 6.50 7.50 7.50 0.1913476955215437E-01 0.1913476955215463E-01 7.00 8.00 7.00 6.50 7.50 7.50 0.1288017397724172E-02 0.1288017397724191E-02 8.00 8.00 7.00 6.50 7.50 7.50 -0.1930018366290527E-01 -0.1930018366290528E-01 9.00 8.00 7.00 6.50 7.50 7.50 0.1677305949382889E-01 0.1677305949382893E-01 10.00 8.00 7.00 6.50 7.50 7.50 0.5501147274850949E-02 0.5501147274850984E-02 11.00 8.00 7.00 6.50 7.50 7.50 -0.2135439790896831E-01 -0.2135439790896846E-01 12.00 8.00 7.00 6.50 7.50 7.50 0.3460364451435387E-02 0.3460364451435430E-02 13.00 8.00 7.00 6.50 7.50 7.50 0.2520950054795585E-01 0.2520950054795553E-01 14.00 8.00 7.00 6.50 7.50 7.50 0.1483990561221713E-01 0.1483990561221712E-01 15.00 8.00 7.00 6.50 7.50 7.50 0.2708577680633186E-02 0.2708577680633160E-02 TEST03 COF9J evaluates the Wigner 9J coefficient. J1 J2 J3 J4 J5 J6 J7 J8 J9 NINE_J 1.00 8.00 7.00 6.50 7.50 7.50 6.00 10.00 6.00 0.4270039294528318E-03 DEBUG: Kmin, Kmax = 11 15 -0.3229106390136725E-01 1.50 8.00 7.00 6.50 7.50 7.50 6.00 10.00 6.00 -0.1228915451058514E-02 DEBUG: Kmin, Kmax = 10 16 -0.2125177959917308E-01 2.00 8.00 7.00 6.50 7.50 7.50 6.00 10.00 6.00 -0.1944260688400887E-03 DEBUG: Kmin, Kmax = 9 17 0.1093153100190859 1.00 3.00 2.00 4.00 1.50 3.00 3.50 2.00 2.00 0.3338419923885592E-02 DEBUG: Kmin, Kmax = 5 7 0.1310353844916177E-02 1.50 3.00 2.00 4.00 1.50 3.00 3.50 2.00 2.00 -0.7958936865080434E-03 DEBUG: Kmin, Kmax = 5 8 0.4197953491681128E-04 2.00 3.00 2.00 4.00 1.50 3.00 3.50 2.00 2.00 -0.4338208690251972E-02 DEBUG: Kmin, Kmax = 5 8 0.2432761449927540E-02 0.50 0.50 1.00 2.00 1.00 1.50 1.50 0.50 1.50 0.5379143536399187E-01 DEBUG: Kmin, Kmax = 4 5 -0.1202813060811720 1.00 0.50 1.00 2.00 1.00 1.50 1.50 0.50 1.50 0.6211299937499411E-02 DEBUG: Kmin, Kmax = 4 5 0.7172191381865581E-02 1.50 0.50 1.00 2.00 1.00 1.50 1.50 0.50 1.50 0.3042903097250921E-01 DEBUG: Kmin, Kmax = 4 5 0.5670115145331437E-01 clebsch_gordan_test(): Normal end of execution. 24 September 2023 9:11:17.517 AM