source: MML/trunk/at/simulator/element/IdentityPass.c

/* IdentityPass.c 
   Accelerator Toolbox
   Revision 7/16/03
   A.Terebilo terebilo@slac.stanford.edu
*/

#include "mex.h"
#include "elempass.h"


/* void IdentityPass(double *r_in)
{       
}
*/




ExportMode int* passFunction(const mxArray *ElemData,int *FieldNumbers,
                                double *r_in, int num_particles, int mode)


{       /* IdentityPass(r_in); */
        return(NULL);
}


void mexFunction(       int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{       int m,n;
        if(nrhs)
        {
        /* ALLOCATE memory for the output array of the same size as the input */
        m = mxGetM(prhs[1]);
        n = mxGetN(prhs[1]);
        if(m!=6) 
                mexErrMsgTxt("Second argument must be a 6 x N matrix");
   
        plhs[0] = mxDuplicateArray(prhs[1]);

        /*
        r_in = mxGetPr(plhs[0]);
        IdentityPass(r_in);     
    */
    }
    else
        {   /* return list of required fields */
            plhs[0] = mxCreateCellMatrix(0,0);
            if(nlhs>1) /* Required and optional fields */ 
            {   plhs[1] = mxCreateCellMatrix(0,0); /* No optional fields */
            }
        }
}