summaryrefslogtreecommitdiff
path: root/src/matrixOperations/inversion
diff options
context:
space:
mode:
Diffstat (limited to 'src/matrixOperations/inversion')
-rw-r--r--src/matrixOperations/inversion/dinverma.c3
-rw-r--r--src/matrixOperations/inversion/zinverma.c3
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);
}