diff options
Diffstat (limited to 'src/c/linearAlgebra/balanc/dbalanca.c')
| -rw-r--r-- | src/c/linearAlgebra/balanc/dbalanca.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/c/linearAlgebra/balanc/dbalanca.c b/src/c/linearAlgebra/balanc/dbalanca.c index 558c614..a86a196 100644 --- a/src/c/linearAlgebra/balanc/dbalanca.c +++ b/src/c/linearAlgebra/balanc/dbalanca.c @@ -59,7 +59,7 @@ void dbalanca(double* in1, int rows, double* in2, double* out1, \ memcpy(buf2,in2,rows*rows*sizeof(double)); dggbal_(&JOB,&rows,buf1,&rows,buf2,&rows,&ILO,&IHI,LSCALE,RSCALE, \ - LWORK,INFO); + LWORK,&INFO); deyea(out3,rows,rows); deyea(out4,rows,rows); |