From b117e4b7cafcb34345416a2fe900584e092327a9 Mon Sep 17 00:00:00 2001
From: jofret
Date: Wed, 10 Dec 2008 15:21:28 +0000
Subject: Correct fortran call
---
src/matrixOperations/chol/dchola.c | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
(limited to 'src/matrixOperations/chol/dchola.c')
diff --git a/src/matrixOperations/chol/dchola.c b/src/matrixOperations/chol/dchola.c
index affdc4f1..1ea76ba6 100644
--- a/src/matrixOperations/chol/dchola.c
+++ b/src/matrixOperations/chol/dchola.c
@@ -22,13 +22,14 @@ void dchola(double * in, int size, double *U){
param U : output upper triangular matrix
*/
double* tmp;
+ int status = 0;
int i;
+
tmp=malloc((unsigned int)(size*size)*sizeof(double));
for (i=0;i<size*size;i++) tmp[i]=in[i];
printf("copy\n");
- C2F(dpotrf)('U',size,in,size,0);
+ C2F(dpotrf)("U", &size, in, &size, &status, 1L);
printf("lapack\n");
for (i=0;i<size*size;i++) U[i]=in[i];
printf("copy2\n");
-
}
--
cgit