summaryrefslogtreecommitdiff
path: root/src/c/CACSD/lqr/dlqra.c
diff options
context:
space:
mode:
authorsiddhu89902017-05-22 15:13:54 +0530
committersiddhu89902017-05-22 15:13:54 +0530
commitb33afdb2311fbe8aad4c5c614c6098585fe2d279 (patch)
tree3d8db91388dab60159248fb0cfef160ca03cefeb /src/c/CACSD/lqr/dlqra.c
parentf0e074cc43f04f58aafe00742b9748a09f77894f (diff)
parente36eac94dd517bb69d3e5782516ee58942451991 (diff)
downloadscilab2c-b33afdb2311fbe8aad4c5c614c6098585fe2d279.tar.gz
scilab2c-b33afdb2311fbe8aad4c5c614c6098585fe2d279.tar.bz2
scilab2c-b33afdb2311fbe8aad4c5c614c6098585fe2d279.zip
Bugs fixed for Scilab 6.0
Diffstat (limited to 'src/c/CACSD/lqr/dlqra.c')
-rw-r--r--src/c/CACSD/lqr/dlqra.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/c/CACSD/lqr/dlqra.c b/src/c/CACSD/lqr/dlqra.c
index 26a5e6c4..02ac1504 100644
--- a/src/c/CACSD/lqr/dlqra.c
+++ b/src/c/CACSD/lqr/dlqra.c
@@ -26,8 +26,8 @@ void dlqra(double* sys, int sys_rows, int sys_cols, double* X, double* K)
{
int no_of_states, no_of_inputs, no_of_outputs, dom = 1;
int row,col;
- no_of_states = sys[sys_rows*(sys_cols-1)];
- no_of_inputs = sys[sys_rows*(sys_cols-1) + 1];
+ no_of_states = (int)sys[sys_rows*(sys_cols-1)];
+ no_of_inputs = (int)sys[sys_rows*(sys_cols-1) + 1];
no_of_outputs = sys_rows - no_of_states;
double *A, *B, *C, *D;
@@ -88,7 +88,7 @@ void dlqra(double* sys, int sys_rows, int sys_cols, double* X, double* K)
}
}
- dom = sys[(sys_rows*(sys_cols-2)) + no_of_states];
+ dom = (int)sys[(sys_rows*(sys_cols-2)) + no_of_states];
Q = (double*) malloc (no_of_states*no_of_states*sizeof(double));
R = (double*) malloc (no_of_inputs*no_of_inputs*sizeof(double));
@@ -186,7 +186,7 @@ void dlqra(double* sys, int sys_rows, int sys_cols, double* X, double* K)
/*Find schur decomposition of LA*/
wsmall = (double*) malloc(4*no_of_states*no_of_states*sizeof(double));
- ks = dschura(LA,2*no_of_states,1,2,wsmall,NULL);
+ ks = (int)dschura(LA,2*no_of_states,1,2,wsmall,NULL);
X12 = (double*) malloc(no_of_states*no_of_states*sizeof(double));
phi12 = (double*) malloc(no_of_states*no_of_states*sizeof(double));
@@ -285,7 +285,7 @@ void dlqra(double* sys, int sys_rows, int sys_cols, double* X, double* K)
/*Find schur decomposition of LA*/
wsmall = (double*) malloc(4*no_of_states*no_of_states*sizeof(double));
- ks = dgschura(LA,2*no_of_states,LE,2,2,wsmall,NULL,NULL,NULL);
+ ks = (int)dgschura(LA,2*no_of_states,LE,2,2,wsmall,NULL,NULL,NULL);
X12 = (double*) malloc(no_of_states*no_of_states*sizeof(double));
phi12 = (double*) malloc(no_of_states*no_of_states*sizeof(double));