为什么我在C / MEX中有内存泄漏？

我完全是C / MEX的初学者。这是用于从MATLAB调用“魔术”函数的简单代码。我不知道为什么会收到“内存不足”消息。

#include <mex.h>
void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
    #define A_IN prhs[0]
    #define A_OUT plhs[0]
    mxArray *R;
    R=mxCreateDoubleMatrix(A_IN,A_IN,mxREAL);
    mexCallMATLAB(1, R, 1, &A_IN, "magic");
    A_OUT = mxDuplicateArray(R);
    mxDestroyArray(R);
    return;
}