26 March 2025  10:15:45.211 PM
 
sine_integral_test():
  Fortran90 version
  Test sine_integral().
 
ci_test():
  ci() evaluates the Cosine Integral function CI(X).
 
          X           CI(X)
 
    0.500000       -0.1777840788066129     -0.1777840788066129    
    0.600000       -0.2227070695927976E-01 -0.2227070695927979E-01
    0.700000        0.1005147070088978      0.1005147070088978    
    0.800000        0.1982786159524672      0.1982786159524672    
    0.900000        0.2760678304677729      0.2760678304677728    
     1.00000        0.3374039229009681      0.3374039229009682    
     1.20000        0.4204591828942405      0.4204591828942404    
     1.40000        0.4620065850946773      0.4620065850946772    
     1.60000        0.4717325169318778      0.4717325169318777    
     1.80000        0.4568111294183369      0.4568111294183367    
     2.00000        0.4229808287748650      0.4229808287748649    
     2.50000        0.2858711963653835      0.2858711963653835    
     3.00000        0.1196297860080003      0.1196297860080005    
     3.50000       -0.3212854851248112E-01 -0.3212854851248127E-01
     4.00000       -0.1409816978869304     -0.1409816978869304    
     4.50000       -0.1934911221017388     -0.1934911221017388    
 
si_test():
  si() evalues the sine integral function.
 
      X            SI(X)
 
    0.500000        0.4931074180430667      0.4931074180430667    
    0.600000        0.5881288096080801      0.5881288096080799    
    0.700000        0.6812222391166113      0.6812222391166114    
    0.800000        0.7720957854819966      0.7720957854819964    
    0.900000        0.8604707107452929      0.8604707107452929    
     1.00000        0.9460830703671830      0.9460830703671830    
     1.20000         1.108047199013719       1.108047199013719    
     1.40000         1.256226732779218       1.256226732779218    
     1.60000         1.389180485870438       1.389180485870438    
     1.80000         1.505816780255579       1.505816780255579    
     2.00000         1.605412976802695       1.605412976802695    
     2.50000         1.778520173443827       1.778520173443827    
     3.00000         1.848652527999468       1.848652527999468    
     3.50000         1.833125398665997       1.833125398665997    
     4.00000         1.758203138949053       1.758203138949053    
     4.50000         1.654140414379244       1.654140414379244    
 
sine_integral_test():
  Normal end of execution.
 
26 March 2025  10:15:45.211 PM