diff options
Diffstat (limited to 'src/matrixOperations/inversion')
-rw-r--r-- | src/matrixOperations/inversion/dinverma.c | 3 | ||||
-rw-r--r-- | src/matrixOperations/inversion/zinverma.c | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/matrixOperations/inversion/dinverma.c b/src/matrixOperations/inversion/dinverma.c index 56161942..6f2508fd 100644 --- a/src/matrixOperations/inversion/dinverma.c +++ b/src/matrixOperations/inversion/dinverma.c @@ -30,6 +30,9 @@ void dinverma ( double* in, double* out, int leadDimIn ) dgetrf_ ( &leadDimIn, &leadDimIn, out, &leadDimIn, vectPivot, &info ); dgetri_ ( &leadDimIn, out, &leadDimIn , vectPivot, work , &leadDimIn , &info ); + + free(vectPivot); + free(work); } diff --git a/src/matrixOperations/inversion/zinverma.c b/src/matrixOperations/inversion/zinverma.c index 8bb69661..bc9d80b1 100644 --- a/src/matrixOperations/inversion/zinverma.c +++ b/src/matrixOperations/inversion/zinverma.c @@ -30,6 +30,7 @@ void zinverma ( doubleComplex* in, doubleComplex* out, int leadDimIn ) zgetrf_ ( &leadDimIn, &leadDimIn, out, &leadDimIn, vectPivot, &info ); zgetri_ ( &leadDimIn, out, &leadDimIn , vectPivot, work , &leadDimIn , &info ); - + free(vectPivot); + free(work); } |