30 September 2023   3:46:39.553 PM      
 
disk01_monte_carlo_test():
  FORTRAN77 version
  Test disk01_monte_carlo().
 
TEST01
  Use DISK01_SAMPLE to estimate integrals in the unit disk.
 
         N        1              X^2             Y^2             X^4             X^2Y^2           Y^4             X^6
 
         1     3.14159         2.41455        0.191431         1.85576        0.147129        0.116647E-01     1.42629    
         2     3.14159        0.118014        0.546915E-01    0.485103E-02    0.204044E-02    0.952587E-03    0.213620E-03
         4     3.14159         1.14909        0.780379        0.727307        0.463617E-01    0.514225        0.540924    
         8     3.14159        0.664859        0.444275        0.328095        0.823115E-01    0.104648        0.200273    
        16     3.14159        0.667844        0.675045        0.299232        0.117983        0.322511        0.167483    
        32     3.14159        0.874306        0.836608        0.388713        0.146414        0.451474        0.205617    
        64     3.14159        0.732941        0.804583        0.353860        0.111915        0.434813        0.218527    
       128     3.14159        0.756945        0.816620        0.396898        0.108539        0.430483        0.261179    
       256     3.14159        0.767384        0.752709        0.377832        0.122918        0.381345        0.233849    
       512     3.14159        0.746584        0.780966        0.357190        0.125881        0.391175        0.213426    
      1024     3.14159        0.795306        0.829076        0.401273        0.143614        0.429817        0.254394    
      2048     3.14159        0.759074        0.776137        0.373097        0.131972        0.377560        0.228936    
      4096     3.14159        0.783685        0.787455        0.392849        0.128952        0.395614        0.245354    
      8192     3.14159        0.791588        0.780931        0.397664        0.129168        0.389458        0.249651    
     16384     3.14159        0.785739        0.782836        0.391171        0.130587        0.392443        0.242876    
     32768     3.14159        0.787655        0.782700        0.395488        0.129711        0.391104        0.248700    
     65536     3.14159        0.790243        0.774556        0.397422        0.129430        0.384659        0.249120    
 
     Exact     3.14159        0.785398        0.785398        0.392699        0.130900        0.392699        0.245437    
 
disk01_monte_carlo_test():
  Normal end of execution.
 
30 September 2023   3:46:39.580 PM