06 September 2021   8:18:21.766 AM
 
clausen_test():
  FORTRAN90 version
  Test clausen().
 
clausen_test():
  clausen() evaluates the Clausen function.
  Compare its results to tabulated data.

                               Tabulated               Computed
           X                          FX                     FX        Diff

    0.195312E-02    0.1413735288676058E-01    0.1413735288676058E-01  0.0E+00
    0.312500E-01    0.1395546708198128        0.1395546708198128      0.0E+00
   -0.125000       -0.3849573215657424       -0.3849573215657424      0.0E+00
    0.500000        0.8483118777036792        0.8483118777036793      0.1E-15
     1.00000         1.013959132360768         1.013959132360768      0.0E+00
    -1.50000       -0.9392185927540921       -0.9392185927540921      0.0E+00
     2.00000        0.7271460508632792        0.7271460508632792      0.0E+00
     2.50000        0.4335982032355328        0.4335982032355327      0.1E-15
    -3.00000       -0.9802620939130142E-01   -0.9802620939130142E-01  0.0E+00
     4.00000       -0.5681439444298698       -0.5681439444298698      0.0E+00
     4.25000       -0.7096970178444892       -0.7096970178444892      0.0E+00
    -5.00000        0.9928201325469567        0.9928201325469568      0.1E-15
     5.50000       -0.9812774747744737       -0.9812774747744737      0.0E+00
     6.00000       -0.6407826657017233       -0.6407826657017229      0.3E-15
     8.00000        0.8602796373323119        0.8602796373323118      0.1E-15
    -10.0000        0.3907164760868021        0.3907164760868023      0.2E-15
     15.0000        0.4757479392653919        0.4757479392653914      0.5E-15
     20.0000         1.010501448141288         1.010501448141288      0.0E+00
    -30.0000        0.9633208904436308        0.9633208904436310      0.2E-15
     50.0000       -0.6178269948192932       -0.6178269948192906      0.3E-14
 
clausen_test():
  Normal end of execution.
 
06 September 2021   8:18:21.766 AM