summaryrefslogtreecommitdiffstats
path: root/scilab/modules/linear_algebra
diff options
context:
space:
mode:
authorantoine ELIAS <antoine.elias@scilab.org>2009-12-15 10:13:21 +0100
committerantoine ELIAS <antoine.elias@scilab.org>2009-12-15 10:13:21 +0100
commite8bd968bb71b7dbce7e7551bf7ff0101f7617a42 (patch)
tree59903e930e447881cc229bfbe8d36c63029b98df /scilab/modules/linear_algebra
parent87c80633f2cd602541e9a32f58ce7d99d5d56c66 (diff)
parent19769d995c684a9e758fea92f6f6c595c7a3f591 (diff)
downloadscilab-e8bd968bb71b7dbce7e7551bf7ff0101f7617a42.zip
scilab-e8bd968bb71b7dbce7e7551bf7ff0101f7617a42.tar.gz
Merge remote branch 'origin/5.2'
Diffstat (limited to 'scilab/modules/linear_algebra')
-rw-r--r--scilab/modules/linear_algebra/sci_gateway/c/sci_zggev.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/scilab/modules/linear_algebra/sci_gateway/c/sci_zggev.c b/scilab/modules/linear_algebra/sci_gateway/c/sci_zggev.c
index e7cbc01..75d865e 100644
--- a/scilab/modules/linear_algebra/sci_gateway/c/sci_zggev.c
+++ b/scilab/modules/linear_algebra/sci_gateway/c/sci_zggev.c
@@ -552,7 +552,7 @@ static int intzggev_real(char *fname)
552 pdblWork, &iWorkSize, &INFO ); 552 pdblWork, &iWorkSize, &INFO );
553 // SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, 553 // SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR,
554 // $ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) 554 // $ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO )
555 FREE(pdblWork); 555 if (pdblWork) {FREE(pdblWork); pdblWork = NULL;}
556 if (INFO!=0) 556 if (INFO!=0)
557 { 557 {
558 if (INFO<=iColsA) 558 if (INFO<=iColsA)
@@ -564,7 +564,6 @@ static int intzggev_real(char *fname)
564 SciError(24); 564 SciError(24);
565 vFreeDoubleComplexFromPointer(pdblMatrixA); 565 vFreeDoubleComplexFromPointer(pdblMatrixA);
566 vFreeDoubleComplexFromPointer(pdblMatrixB); 566 vFreeDoubleComplexFromPointer(pdblMatrixB);
567 FREE(pdblWork);
568 return 0; 567 return 0;
569 } 568 }
570 } 569 }
@@ -609,7 +608,6 @@ static int intzggev_real(char *fname)
609 { 608 {
610 FREE(pdblLeftvectors); 609 FREE(pdblLeftvectors);
611 } 610 }
612 FREE(pdblWork);
613 vFreeDoubleComplexFromPointer(pdblMatrixA); 611 vFreeDoubleComplexFromPointer(pdblMatrixA);
614 vFreeDoubleComplexFromPointer(pdblMatrixB); 612 vFreeDoubleComplexFromPointer(pdblMatrixB);
615 return 0; 613 return 0;