summaryrefslogtreecommitdiff
path: root/src/matrixOperations/chol/cchola.c
diff options
context:
space:
mode:
authortorset2009-02-16 15:31:16 +0000
committertorset2009-02-16 15:31:16 +0000
commit2e41ca898e113e9fe0cb7c27c60a5f0ac2a74517 (patch)
tree8f78c74b06936ed4c445274bdbbbc74e650282cd /src/matrixOperations/chol/cchola.c
parent92d3899c14d576c20762d7860f5e2f137923da0c (diff)
downloadscilab2c-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.c7
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
}