1 /*-------------- Telecommunications & Signal Processing Lab ---------------
2 McGill University
3
4 Routine:
5 void MAdFreeMat (double *A[])
6
7 Purpose:
8 Free an allocated double matrix
9
10 Description:
11 This routine frees the space occupied by a double matrix. This routine frees
12 up space allocated by routine MAdAllocMat.
13
14 Parameters:
15 -> double *A[]
16 Pointer to an array of row pointers. If A is NULL, no action is taken.
17
18 Author / revision:
19 P. Kabal Copyright (C) 2003
20 $Revision: 1.9 $ $Date: 2003/05/09 01:45:58 $
21
22 -------------------------------------------------------------------------*/
23
24 #include <libtsp.h>
25
26
27 void
MAdFreeMat(double * A[])28 MAdFreeMat (double *A[])
29
30 {
31 if (A != NULL) {
32 UTfree ((void *) A[0]);
33 UTfree ((void *) A);
34 }
35
36 return;
37 }
38