10 July 2025  10:29:59.712 PM

fresnel_test():
  Fortran90 version
  Test fresnel()
 
fresnel_cos_values_test():
  fresnel_cos_values() returns values of
  the Fresnel cosine integral C(X).
  fresnel_cos() computes the value.
 
          X           C(X)           C(X)
          X           Tabulated      Computed
 
     0.00000         0.000000000000000         0.000000000000000    
    0.200000        0.1999210575944531        0.1999210575944531    
    0.400000        0.3974807591723594        0.3974807591723595    
    0.600000        0.5810954469916523        0.5810954469916524    
    0.800000        0.7228441718963561        0.7228441718963562    
     1.00000        0.7798934003768228        0.7798934003768226    
     1.20000        0.7154377229230734        0.7154377229230737    
     1.40000        0.5430957835462564        0.5430957835462565    
     1.60000        0.3654616834404877        0.3654616834404879    
     1.80000        0.3336329272215571        0.3336329272215581    
     2.00000        0.4882534060753408        0.4882534060753435    
     2.20000        0.6362860449033195        0.6362860449033214    
     2.40000        0.5549614058564281        0.5549614058564398    
     2.60000        0.3889374961919690        0.3889374961919690    
     2.80000        0.4674916516989059        0.4674916516989060    
     3.00000        0.6057207892976856        0.6057207892976857    
 
fresnel_sin_values_test():
  fresnel_sin_values() returns values of
  the Fresnel sine integral S(X).
  fresnel_sin() computes the value.
 
          X           S(X)           S(X)
          X           Tabulated      Computed
 
     0.00000         0.000000000000000         0.000000000000000    
    0.200000        0.4187609161656762E-02    0.4187609161656764E-02
    0.400000        0.3335943266061318E-01    0.3335943266061318E-01
    0.600000        0.1105402073593870        0.1105402073593869    
    0.800000        0.2493413930539178        0.2493413930539178    
     1.00000        0.4382591473903548        0.4382591473903548    
     1.20000        0.6234009185462497        0.6234009185462496    
     1.40000        0.7135250773634121        0.7135250773634122    
     1.60000        0.6388876835093809        0.6388876835093809    
     1.80000        0.4509387692675831        0.4509387692675835    
     2.00000        0.3434156783636982        0.3434156783637000    
     2.20000        0.4557046121246569        0.4557046121246556    
     2.40000        0.6196899649456836        0.6196899649456487    
     2.60000        0.5499893231527195        0.5499893231527195    
     2.80000        0.3915284435431718        0.3915284435431717    
     3.00000        0.4963129989673750        0.4963129989673750    

fresnel_cos_plot():
  Plot (X,C(X)), where C(X) is the Fresnel cosine integral.
 
  Created graphics data file "fresnel_cos_plot_data.txt".
  Created command file "fresnel_cos_plot_commands.txt".

fresnel_sin_plot():
  Plot (X,S(X)), where S(X) is the Fresnel sine integral.
 
  Created graphics data file "fresnel_sin_plot_data.txt".
  Created command file "fresnel_sin_plot_commands.txt".

fresnel_phase_plot():
  Plot (C(X),S(X)), where C(X) and S(X) are
  the Fresnel cosine and sine integrals.
 
  Created graphics data file "fresnel_phase_plot_data.txt".
  Created command file "fresnel_phase_plot_commands.txt".

fresnel_test():
  Normal end of execution.

10 July 2025  10:29:59.714 PM