free.c

来自「利用电磁场的源激发方法来计算光子晶体波导例如光子晶体光纤」· C语言 代码 · 共 21 行

#include "mex.h"
#include "utils.h"

void mexFunction(int nOut, mxArray *pOut[], 
		 int nIn, const mxArray *pIn[])
{ 
  mxArray *address, *data;

  if (!mxIsClass(pIn[0], "pointer"))
    mexErrMsgTxt("Input must be pointer");

  address = GetPointerData(pIn[0]);
  data = GetPointerData(address);
  mxDestroyArray(data);

  SetPointerData(address, NULL);

}