/*************************************************************************\
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
* National Laboratory.
* Copyright (c) 2002 The Regents of the University of California, as
* Operator of Los Alamos National Laboratory.
* This file is distributed subject to a Software License Agreement found
* in the file LICENSE that is included with this distribution. 
\*************************************************************************/

/* routine: m_free()
 * purpose: free storage allocated to a matrix 
 * usage  :
 *   MATRIX *A;
 *   long n, m;
 *   m_alloc(&A, n, m);
 *     ...
 *   m_free(&A);
 *
 * Michael Borland, 1986.
 $Log: m_free.c,v $
 Revision 1.6  2002/08/14 16:45:22  soliday
 Added Open License

 Revision 1.5  2002/07/31 14:34:19  soliday
 Added support for Mac

 Revision 1.4  1999/12/15 16:56:23  soliday
 Added support for vxWorks.

 Revision 1.3  1998/04/21 21:26:39  borland
 New names to allow concurrent use with the Meschach library.

 * Revision 1.2  1995/09/05  21:16:17  saunders
 * First test release of the SDDS1.5 package.
 *
 */
#include "matlib.h"
#if defined(vxWorks) || defined(__APPLE__)
#include <stdlib.h>
#else
#include <malloc.h>
#endif

void mat_free(MATRIX **A)
{
    register long i, n;

    if (!A || !*A || !(*A)->a)
        return;
    n = (*A)->n;
    for (i=0; i<n; i++) {
        if ((*A)->a[i])
            free((*A)->a[i]);
        (*A)->a[i] = NULL;
        }
    free((*A)->a);
    (*A)->a = NULL;
    free(*A);
    *A = NULL;
    }