Mercurial > octave
diff src/rand.cc @ 777:a2f9d3fd720c
[project @ 1994-10-07 14:01:53 by jwe]
author | jwe |
---|---|
date | Fri, 07 Oct 1994 14:13:44 +0000 |
parents | 36ba0576bd1b |
children | dfe01093f657 |
line wrap: on
line diff
--- a/src/rand.cc Wed Oct 05 22:54:26 1994 +0000 +++ b/src/rand.cc Fri Oct 07 14:13:44 1994 +0000 @@ -30,6 +30,7 @@ #include "tree-const.h" #include "f77-uscore.h" #include "error.h" +#include "gripes.h" #include "utils.h" #include "help.h" #include "defun-dld.h" @@ -249,10 +250,12 @@ F77_FCN (dgenunf) (&d_zero, &d_one, &val); rand_mat.elem (i, j) = val; break; + case normal: F77_FCN (dgennor) (&d_zero, &d_one, &val); rand_mat.elem (i, j) = val; break; + default: panic_impossible (); break;