toms425_test():
  Fortran77 version
  Test toms425()
  multivariate random normal generation.
 
TEST01
  Test RNVR
  Dimension is 2.
 
  Covariance matrix:
    1.0  0.0
    0.0  1.0
 
     1.24296        0.232724    
   -0.134458       -0.688826    
   -0.307862       -0.495332    
   -0.430708        0.126488    
   -0.702977       -0.809381E-01
   -0.561967         1.45012    
    0.757011       -0.284229    
    0.143903        0.136589    
   -0.217714        0.374654    
   -0.811921       -0.311816    
 
TEST02
  Test RNVR
  Dimension is 2.
 
  Covariance matrix:
    1.0  0.3
    0.3  1.0
 
     1.24296        0.594892    
   -0.134458       -0.697435    
   -0.307862       -0.564875    
   -0.430708       -0.855063E-02
   -0.702977       -0.288103    
   -0.561967         1.21474    
    0.757011       -0.440338E-01
    0.143903        0.173469    
   -0.217714        0.292083    
   -0.811921       -0.541030    
 
TEST03
  Test RNVR
  Dimension is 2.
 
  Covariance matrix:
    1.00  0.99
    0.99  1.00
 
     1.24296         1.26336    
   -0.134458       -0.230284    
   -0.307862       -0.374658    
   -0.430708       -0.408557    
   -0.702977       -0.707365    
   -0.561967       -0.351783    
    0.757011        0.709345    
    0.143903        0.161732    
   -0.217714       -0.162685    
   -0.811921       -0.847789    
 
toms425_test():
  Normal end of execution.