diff options
author | torset | 2009-02-06 14:44:22 +0000 |
---|---|---|
committer | torset | 2009-02-06 14:44:22 +0000 |
commit | f737d894588ca911f4316540c3c57b81c28a799c (patch) | |
tree | 4fd86a0fdff67d5125629424f27fd76285ea7c05 /src/matrixOperations/chol/dchola.c | |
parent | aa569c84c88bfcb86a4561e1a928ffc3276336a5 (diff) | |
download | scilab2c-f737d894588ca911f4316540c3c57b81c28a799c.tar.gz scilab2c-f737d894588ca911f4316540c3c57b81c28a799c.tar.bz2 scilab2c-f737d894588ca911f4316540c3c57b81c28a799c.zip |
Modify without lapack part
Diffstat (limited to 'src/matrixOperations/chol/dchola.c')
-rw-r--r-- | src/matrixOperations/chol/dchola.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/matrixOperations/chol/dchola.c b/src/matrixOperations/chol/dchola.c index a35f90b2..a627b236 100644 --- a/src/matrixOperations/chol/dchola.c +++ b/src/matrixOperations/chol/dchola.c @@ -58,5 +58,12 @@ void dchola(double * in, int size, double *out){ out[i*size+i]=sqrt(in[i*size+i]-accu); } + /*Zeros in the lower triangular part*/ + for (i=0;i<size;i++){ + for (j=i+1;j<size;j++){ + out[j+i*size]=0; + } + } + #endif } |