09 September 2021   7:15:33.777 AM
 
ELLIPSE_MONTE_CARLO_TEST
  FORTRAN90 version
  Test the ELLIPSE_MONTE_CARLO library.

ELLIPSE_AREA1_TEST
  FORTRAN90 version
  ELLIPSE_AREA1 computes the area of an ellipse.

  R =    10.0000    
 
  Matrix A in ellipse definition x*A*x=r^2
 
  Col          1             2      
  Row
 
    1:      5.            1.      
    2:      1.            2.      
  Area =    104.720    

ELLIPSE_AREA1_TEST
  Normal end of execution.

ELLIPSE_AREA2_TEST
  FORTRAN90 version
  ELLIPSE_AREA2 computes the area of an ellipse.

  Ellipse:    5.00000     * x^2 +    2.00000     * xy +    2.00000     * y^2 =    10.0000    
  Area =    104.720    

ELLIPSE_AREA2_TEST
  Normal end of execution.
 
TEST01
  Use ELLIPSE01_SAMPLE to estimate integrals
  in the ellipse x' * A * x <= r^2.
  Ellipse area =    2.12410    
 
         N        1              X               Y               X^2               XY             Y^2             X^3
 
         1     2.12410        0.280342       -0.931772        0.370000E-01   -0.122977        0.408737        0.488331E-02
         2     2.12410        0.737920E-01   -0.450504        0.172585E-01   -0.312807E-01    0.112173        0.162058E-02
         4     2.12410        0.906821E-01   -0.207044E-01    0.133727E-01   -0.847845E-02    0.156499E-01    0.144240E-02
         8     2.12410       -0.764992E-01    0.245892E-01    0.355060E-01   -0.138220E-01    0.380668E-01   -0.828861E-03
        16     2.12410        0.646574E-01   -0.734432E-01    0.361151E-01   -0.203040E-01    0.128620        0.425179E-03
        32     2.12410       -0.426308E-01   -0.268214E-01    0.294249E-01   -0.182033E-01    0.119077       -0.131083E-02
        64     2.12410       -0.353878E-02   -0.611799E-01    0.242616E-01   -0.163490E-01    0.153624       -0.445258E-03
       128     2.12410       -0.127757E-01   -0.271479E-01    0.292848E-01   -0.182634E-01    0.126656       -0.119941E-03
       256     2.12410       -0.378013E-01   -0.211968E-01    0.345472E-01   -0.232105E-01    0.135059       -0.114354E-02
       512     2.12410        0.434906E-02    0.562661E-02    0.288227E-01   -0.220852E-01    0.147781       -0.287878E-05
      1024     2.12410        0.405402E-02    0.228927E-01    0.304063E-01   -0.241677E-01    0.143099        0.746207E-04
      2048     2.12410        0.323309E-02   -0.160656E-02    0.290299E-01   -0.203184E-01    0.137589        0.713013E-04
      4096     2.12410       -0.691708E-02    0.384265E-02    0.293747E-01   -0.238420E-01    0.145480       -0.246026E-03
      8192     2.12410       -0.424786E-02    0.368945E-02    0.294235E-01   -0.229840E-01    0.141822       -0.141741E-03
     16384     2.12410        0.118013E-02   -0.516457E-03    0.292146E-01   -0.224773E-01    0.142092        0.857900E-04
     32768     2.12410        0.138012E-02   -0.166248E-02    0.295596E-01   -0.227934E-01    0.142321        0.301474E-04
     65536     2.12410        0.191656E-02   -0.864956E-03    0.293734E-01   -0.227897E-01    0.142797        0.618595E-04
 
ELLIPSE_MONTE_CARLO_TEST
  Normal end of execution.
 
09 September 2021   7:15:33.812 AM