7 October 2025   1:02:41.868 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.
 
 7 October 2025   1:02:41.868 PM