02 September 2021 3:47:06.264 PM besselj_test(): FORTRAN90 version Test besselj(). dbesj_test(): dbesj() evaluates the Bessel J function with NONINTEGER order. ALPHA X FX FX exact computed 0.500000 0.2000000000000000 0.3544507442114011 0.3544507442114012 0.500000 1.0000000000000000 0.6713967071418031 0.6713967071418030 0.500000 2.0000000000000000 0.5130161365618278 0.5130161365618278 0.500000 2.5000000000000000 0.3020049060623657 0.3020049060623657 0.500000 3.0000000000000000 0.6500818287737578E-01 0.6500818287737564E-01 0.500000 5.0000000000000000 -0.3421679847981618 -0.3421679847981624 0.500000 10.0000000000000000 -0.1372637357550505 -0.1372637357550511 0.500000 20.0000000000000000 0.1628807638550299 0.1628807638550311 1.500000 1.0000000000000000 0.2402978391234270 0.2402978391234270 1.500000 2.0000000000000000 0.4912937786871623 0.4912937786871623 1.500000 5.0000000000000000 -0.1696513061447408 -0.1696513061447409 1.500000 10.0000000000000000 0.1979824927558931 0.1979824927558946 1.500000 50.0000000000000000 -0.1094768729883180 -0.1094768729883179 2.500000 1.0000000000000000 0.4949681022847794E-01 0.4949681022847795E-01 2.500000 2.0000000000000000 0.2239245314689158 0.2239245314689157 2.500000 5.0000000000000000 0.2403772011113174 0.2403772011113178 2.500000 10.0000000000000000 0.1966584835818184 0.1966584835818195 2.500000 50.0000000000000000 0.2303721950962553E-01 0.2303721950962609E-01 1.250000 1.0000000000000000 0.3314145508558904 0.3314145508558905 1.250000 2.0000000000000000 0.5461734240402840 0.5461734240402841 1.250000 5.0000000000000000 -0.2616584152094124 -0.2616584152094125 1.250000 10.0000000000000000 0.1296035513791289 0.1296035513791290 1.250000 50.0000000000000000 -0.1117432171933552 -0.1117432171933552 2.750000 1.0000000000000000 0.3142623570527935E-01 0.3142623570527933E-01 2.750000 2.0000000000000000 0.1717922192746527 0.1717922192746526 2.750000 5.0000000000000000 0.3126634069544786 0.3126634069544790 2.750000 10.0000000000000000 0.1340289119304364 0.1340289119304370 2.750000 50.0000000000000000 0.6235967135106445E-01 0.6235967135106543E-01 rjbesl_test(): rjbesl() evaluates the Bessel J function with NONINTEGER order. ORDER X FX FX exact computed 0.500000 0.2000000000000000 0.3544507442114011 0.3544507442114010 0.500000 1.0000000000000000 0.6713967071418031 0.6713967071418030 0.500000 2.0000000000000000 0.5130161365618278 0.5130161365618278 0.500000 2.5000000000000000 0.3020049060623657 0.3020049060623656 0.500000 3.0000000000000000 0.6500818287737578E-01 0.6500818287737570E-01 0.500000 5.0000000000000000 -0.3421679847981618 -0.3421679847981616 0.500000 10.0000000000000000 -0.1372637357550505 -0.1372637357550504 0.500000 20.0000000000000000 0.1628807638550299 0.1628807638550299 1.500000 1.0000000000000000 0.2402978391234270 0.2402978391234270 1.500000 2.0000000000000000 0.4912937786871623 0.4912937786871623 1.500000 5.0000000000000000 -0.1696513061447408 -0.1696513061447407 1.500000 10.0000000000000000 0.1979824927558931 0.1979824927558931 1.500000 50.0000000000000000 -0.1094768729883180 -0.1094768729883180 2.500000 1.0000000000000000 0.4949681022847794E-01 0.4949681022847794E-01 2.500000 2.0000000000000000 0.2239245314689158 0.2239245314689158 2.500000 5.0000000000000000 0.2403772011113174 0.2403772011113172 2.500000 10.0000000000000000 0.1966584835818184 0.1966584835818184 2.500000 50.0000000000000000 0.2303721950962553E-01 0.2303721950962553E-01 1.250000 1.0000000000000000 0.3314145508558904 0.3314145508558904 1.250000 2.0000000000000000 0.5461734240402840 0.5461734240402840 1.250000 5.0000000000000000 -0.2616584152094124 -0.2616584152094124 1.250000 10.0000000000000000 0.1296035513791289 0.1296035513791289 1.250000 50.0000000000000000 -0.1117432171933552 -0.1117432171933552 2.750000 1.0000000000000000 0.3142623570527935E-01 0.3142623570527934E-01 2.750000 2.0000000000000000 0.1717922192746527 0.1717922192746527 2.750000 5.0000000000000000 0.3126634069544786 0.3126634069544785 2.750000 10.0000000000000000 0.1340289119304364 0.1340289119304366 2.750000 50.0000000000000000 0.6235967135106445E-01 0.6235967135106444E-01 besselj_test(): Normal end of execution. 02 September 2021 3:47:06.264 PM