summaryrefslogtreecommitdiffstats
path: root/scilab/modules/linear_algebra
diff options
context:
space:
mode:
authorYann Collette <yann.collette@scilab.org>2009-12-15 10:01:15 +0100
committerYann Collette <yann.collette@scilab.org>2009-12-15 10:01:15 +0100
commit3f2f9a0b8d7bb049a8be328f2af2062bb3976ba4 (patch)
tree1c0e665e7672bc176bcd348fa9f85b5f5689778d /scilab/modules/linear_algebra
parenta95524c33c7f7fbecf588e246a53b2b717149ebb (diff)
downloadscilab-3f2f9a0b8d7bb049a8be328f2af2062bb3976ba4.zip
scilab-3f2f9a0b8d7bb049a8be328f2af2062bb3976ba4.tar.gz
linear-algebra - correction for test bug_3652
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;