07 April 2023  10:15:26.314 PM
 
toms443_test():
  FORTRAN90 version
  Test TOMS443().
 
TEST01
  Test WEW_A to evaluate
  Lambert's W function.
 
      X      Exact    Computed      Error
 
        0.0000     0.0000000         0.0000000        0.00E+00
        0.5000    0.35173371        0.35173371        0.56E-16
        1.0000    0.56714329        0.56714329        0.00E+00
        1.5000    0.72586136        0.72586136        0.11E-15
        2.0000    0.85260550        0.85260550        0.00E+00
        2.5000    0.95858636        0.95858636        0.11E-15
        2.7183     1.0000000         1.0000000        0.00E+00
        3.0000     1.0499089         1.0499089        0.00E+00
        3.5000     1.1302893         1.1302893        0.22E-15
        4.0000     1.2021679         1.2021679        0.22E-15
        4.5000     1.2672378         1.2672378        0.22E-15
        5.0000     1.3267247         1.3267247        0.22E-15
        5.5000     1.3815454         1.3815454        0.44E-15
        6.0000     1.4324048         1.4324048        0.22E-15
        6.5000     1.4798568         1.4798568        0.89E-15
        7.0000     1.5243452         1.5243452        0.11E-14
        7.5000     1.5662310         1.5662310        0.22E-15
        8.0000     1.6058120         1.6058120        0.22E-15
       10.0000     1.7455280         1.7455280        0.18E-14
      100.0000     3.3856301         3.3856301        0.00E+00
     1000.0000     5.2496029         5.2496029        0.89E-15
  1000000.0000     11.383358         11.383358        0.36E-14
 
TEST02
  Test WEW_B to evaluate
  Lambert's W function.
 
      X      Exact    Computed      Error
 
        0.0000     0.0000000         0.0000000        0.00E+00
        0.5000    0.35173371        0.35173371        0.25E-12
        1.0000    0.56714329        0.56714329        0.11E-15
        1.5000    0.72586136        0.72586136        0.93E-12
        2.0000    0.85260550        0.85260550        0.15E-11
        2.5000    0.95858636        0.95858636        0.34E-13
        2.7183     1.0000000         1.0000000        0.00E+00
        3.0000     1.0499089         1.0499089        0.14E-12
        3.5000     1.1302893         1.1302893        0.10E-10
        4.0000     1.2021679         1.2021679        0.77E-10
        4.5000     1.2672378         1.2672378        0.29E-09
        5.0000     1.3267247         1.3267247        0.74E-09
        5.5000     1.3815454         1.3815454        0.15E-08
        6.0000     1.4324048         1.4324048        0.27E-08
        6.5000     1.4798568         1.4798568        0.44E-08
        7.0000     1.5243452         1.5243452        0.66E-08
        7.5000     1.5662310         1.5662310        0.93E-08
        8.0000     1.6058120         1.6058120        0.13E-07
       10.0000     1.7455280         1.7455280        0.31E-07
      100.0000     3.3856301         3.3856311        0.97E-06
     1000.0000     5.2496029         5.2496014        0.15E-05
  1000000.0000     11.383358         11.383317        0.41E-04
 
TOMS433_TEST
  Normal end of execution.
 
07 April 2023  10:15:26.314 PM