dfree.c

FDTD 模拟 天线 包含 近场－远场 外推程序（时谐场）

# include "dfree.h"

void dfree_1(double *p)
{
   if (p != NULL) free(p);
}     

void dfree_2(double **p, int m)
{
   int i;

   for (i=0; i<m; i++)
      if (p[i] != NULL) free(p[i]);
   if (p !=NULL) free(p);
}

void dfree_3(double ***p, int m, int n)
{
   int i ,j;

   for (i=0; i<m; i++)
   {
      for (j=0; j<n; j++)
         if (p[i][j] != NULL) free(p[i][j]);
      if (p[i] != NULL) free(p[i]);
   }
   if (p !=NULL) free(p);
} 

void dfree_4(double ****p, int m, int n, int l)
{
   int i,j,k;

   for (i=0;i<m;i++)
     {
        for (j=0; j<n; j++)
          {
             for(k=0;k<l;k++)
               {
                  if (p[i][j][k] !=NULL) free(p[i][j][k]);
                }
             if (p[i][j] !=NULL) free(p[i][j]);
          }

       if (p[i]!=NULL) free(p[i]);

      }

     if (p !=NULL) free(p);

}