9 January   2016  10:57:32.952 AM      
 
TOMS511_PRB:
  FORTRAN77 version
  Test the TOMS511 library.
 
IBESS_TEST:
  IBESS returns values of 
  the Bessel I function with NONINTEGER
  order.
 
      ALPHA             X                     FX                        FX
                                              exact                     computed
 
      0.500000        0.2000000000000000    0.3592084175833614        0.3592084175833607    
      0.500000        1.0000000000000000    0.9376748882454876        0.9376748882454857    
      0.500000        2.0000000000000000     2.046236863089055         2.046236863089050    
      0.500000        2.5000000000000000     3.053093538196718         3.053093538196714    
      0.500000        3.0000000000000000     4.614822903407601         4.614822903407594    
      0.500000        5.0000000000000000     26.47754749755907         26.47754749755894    
      0.500000       10.0000000000000000     2778.784603874571         2778.784603874520    
      0.500000       20.0000000000000000     43279746.27242893         43279746.27242896    
      1.500000        1.0000000000000000    0.2935253263474798        0.2935253263474794    
      1.500000        2.0000000000000000     1.099473188633110         1.099473188633108    
      1.500000        5.0000000000000000     21.18444226479414         21.18444226479406    
      1.500000       10.0000000000000000     2500.906154942118         2500.906154942077    
      1.500000       50.0000000000000000    0.2866653715931464E+21    0.2866653715931466E+21
      2.500000        1.0000000000000000    0.5709890920304825E-01    0.5709890920304813E-01
      2.500000        2.0000000000000000    0.3970270801393905        0.3970270801393898    
      2.500000        5.0000000000000000     13.76688213868258         13.76688213868254    
      2.500000       10.0000000000000000     2028.512757391936         2028.512757391906    
      2.500000       50.0000000000000000    0.2753157630035402E+21    0.2753157630035404E+21
      1.250000        1.0000000000000000    0.4139416015642352        0.4139416015642352    
      1.250000        2.0000000000000000     1.340196758982897         1.340196758982897    
      1.250000        5.0000000000000000     22.85715510364670         22.85715510364665    
      1.250000       10.0000000000000000     2593.006763432002         2593.006763431932    
      1.250000       50.0000000000000000    0.2886630075077766E+21    0.2886630075077769E+21
      2.750000        1.0000000000000000    0.3590910483251082E-01    0.3590910483251070E-01
      2.750000        2.0000000000000000    0.2931108636266483        0.2931108636266476    
      2.750000        5.0000000000000000     11.99397010023068         11.99397010023065    
      2.750000       10.0000000000000000     1894.575731562383         1894.575731562327    
      2.750000       50.0000000000000000    0.2716911375760483E+21    0.2716911375760485E+21
 
JBESS_TEST:
  JBESS returns values of 
  the Bessel J function with NONINTEGER
  order.
 
      ALPHA             X                     FX                        FX
                                              exact                     computed
 
      0.500000        0.2000000000000000    0.3544507442114011        0.3544507442114004    
      0.500000        1.0000000000000000    0.6713967071418031        0.6713967071418017    
      0.500000        2.0000000000000000    0.5130161365618278        0.5130161365618267    
      0.500000        2.5000000000000000    0.3020049060623657        0.3020049060623636    
      0.500000        3.0000000000000000    0.6500818287737578E-01    0.6500818287737675E-01
      0.500000        5.0000000000000000   -0.3421679847981618       -0.3421679847981598    
      0.500000       10.0000000000000000   -0.1372637357550505       -0.1372637357550541    
      0.500000       20.0000000000000000    0.1628807638550299        0.1628807638550335    
      1.500000        1.0000000000000000    0.2402978391234270        0.2402978391234266    
      1.500000        2.0000000000000000    0.4912937786871623        0.4912937786871617    
      1.500000        5.0000000000000000   -0.1696513061447408       -0.1696513061447421    
      1.500000       10.0000000000000000    0.1979824927558931        0.1979824927558855    
      1.500000       50.0000000000000000   -0.1094768729883180       -0.1094768729883179    
      2.500000        1.0000000000000000    0.4949681022847794E-01    0.4949681022847786E-01
      2.500000        2.0000000000000000    0.2239245314689158        0.2239245314689154    
      2.500000        5.0000000000000000    0.2403772011113174        0.2403772011113149    
      2.500000       10.0000000000000000    0.1966584835818184        0.1966584835818190    
      2.500000       50.0000000000000000    0.2303721950962553E-01    0.2303721950962609E-01
      1.250000        1.0000000000000000    0.3314145508558904        0.3314145508558904    
      1.250000        2.0000000000000000    0.5461734240402840        0.5461734240402839    
      1.250000        5.0000000000000000   -0.2616584152094124       -0.2616584152094130    
      1.250000       10.0000000000000000    0.1296035513791289        0.1296035513791197    
      1.250000       50.0000000000000000   -0.1117432171933552       -0.1117432171933552    
      2.750000        1.0000000000000000    0.3142623570527935E-01    0.3142623570527925E-01
      2.750000        2.0000000000000000    0.1717922192746527        0.1717922192746522    
      2.750000        5.0000000000000000    0.3126634069544786        0.3126634069544766    
      2.750000       10.0000000000000000    0.1340289119304364        0.1340289119304375    
      2.750000       50.0000000000000000    0.6235967135106445E-01    0.6235967135106543E-01
 
TOMS511_PRB:
  Normal end of execution.
 
 9 January   2016  10:57:32.952 AM