11 August 2025  12:13:30.444 PM
 
cosine_integral_test():
  Fortran77 version
  Test cosine_integral().

  Created graphics data file "ci_data.txt".
  Created graphics command file "ci_commands.txt".
 
ci_test():
  ci() evaluates the cosine integral function.
 
      X            SI(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    
 
cosine_integral_test():
  Normal end of execution.
 
11 August 2025  12:13:30.444 PM