7 October 2025   1:19:36.604 PM
 
sine_integral_test():
  Fortran77 version
  Test sine_integral().

  Created graphics data file "si_data.txt".
  Created graphics command file "si_commands.txt".
 
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.
 
 7 October 2025   1:19:36.605 PM