diff options
author | torset | 2009-02-16 15:31:16 +0000 |
---|---|---|
committer | torset | 2009-02-16 15:31:16 +0000 |
commit | 2e41ca898e113e9fe0cb7c27c60a5f0ac2a74517 (patch) | |
tree | 8f78c74b06936ed4c445274bdbbbc74e650282cd /src/matrixOperations/chol/cchola.c | |
parent | 92d3899c14d576c20762d7860f5e2f137923da0c (diff) | |
download | scilab2c-2e41ca898e113e9fe0cb7c27c60a5f0ac2a74517.tar.gz scilab2c-2e41ca898e113e9fe0cb7c27c60a5f0ac2a74517.tar.bz2 scilab2c-2e41ca898e113e9fe0cb7c27c60a5f0ac2a74517.zip |
Fixed error in the Non-Lapack part
Diffstat (limited to 'src/matrixOperations/chol/cchola.c')
-rw-r--r-- | src/matrixOperations/chol/cchola.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/matrixOperations/chol/cchola.c b/src/matrixOperations/chol/cchola.c index 4ebf473e..0de211be 100644 --- a/src/matrixOperations/chol/cchola.c +++ b/src/matrixOperations/chol/cchola.c @@ -77,6 +77,13 @@ void cchola(floatComplex * in, int size, floatComplex *out){ tmp = FloatComplex(creals(in[i*size+i])-accu,0); out[i*size+i]=csqrts(tmp); } + + /*Zeros in the lower triangular part*/ + for (i=0;i<size;i++){ + for (j=i+1;j<size;j++){ + out[j+i*size]=FloatComplex(0,0); + } + } #endif } |