27 March 2025   2:27:26.137 PM
 
sine_integral_test():
  Fortran77 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() evaluates 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.
 
27 March 2025   2:27:26.137 PM