21 May       2014  10:08:42.835 AM      
 
TOMS418_PRB:
  FORTRAN77 version
  Test the TOMS418 library.
 
TEST01
  Use FSPL2 to estimate the integrals
    integral ( A<=X<=B) F(X) * COS(W*X) dX
  Use integrands:
    F(X) = 1, X, X*X.
  A =    0.000000000000000    
  B =    6.283185307179586    
  Use several values of W.
 
             W                      Approximate             Exact
 
    1:     1.000000000000000     -0.3614374937724914E-15 -0.2449293598294706E-15
    X:     1.000000000000000     -0.1823693632810745E-14 -0.1554312234475219E-14
  X*X:     1.000000000000000       12.56639032764372       12.56637061435916    
 
    1:     2.000000000000000     -0.1000069456931712E-15 -0.2449293598294706E-15
    X:     2.000000000000000     -0.7779714404934638E-15 -0.1526556658859590E-14
  X*X:     2.000000000000000       3.141597581910923       3.141592653589784    
 
    1:     10.00000000000000     -0.1054151771036243E-14 -0.2449293598294706E-15
    X:     10.00000000000000     -0.3697222478110355E-14 -0.1538769112130467E-14
  X*X:     10.00000000000000      0.1256674168748402      0.1256637061435820    
 
 
TEST02
  Use FSPL2 to estimate the integrals
    integral ( A<=X<=B) F(X) * SIN(W*X) dX
  Use integrands:
    F(X) = 1, X, X*X.
  A =    0.000000000000000    
  B =    6.283185307179586    
  Use several values of W.
 
             W                      Approximate             Exact
 
    1:     1.000000000000000     -0.1742870320528801E-15   0.000000000000000    
    X:     1.000000000000000      -6.283185307179587      -6.283185307179586    
  X*X:     1.000000000000000      -39.47841760435743      -39.47841760435743    
 
    1:     2.000000000000000     -0.3921458221189804E-15   0.000000000000000    
    X:     2.000000000000000      -3.141592653589795      -3.141592653589793    
  X*X:     2.000000000000000      -19.73920880217873      -19.73920880217872    
 
    1:     10.00000000000000      0.8487989884219035E-15   0.000000000000000    
    X:     10.00000000000000     -0.6283185307179560     -0.6283185307179586    
  X*X:     10.00000000000000      -3.947841760435733      -3.947841760435744    
 
 
TOMS418_PRB
  Normal end of execution.
 
21 May       2014  10:08:42.836 AM