PAUSE when error
Substituting ranf() with genunf(0,1)
Substituting NAG with LAPACK-BLAS