PRACE NPT

#include <stdlib.h>

void delmat( int m, double **a )

{

   int i;

   for( i = 0; i < m; i++ ) {

      free( a[i] );

   }

   free( a );

}