Last change
on this file since 4 was
4,
checked in by zhangj, 11 years ago
|
Initial import--MML version from SOLEIL@2013
|
File size:
985 bytes
|
Line | |
---|
1 | /* IdentityPass.c |
---|
2 | Accelerator Toolbox |
---|
3 | Revision 7/16/03 |
---|
4 | A.Terebilo terebilo@slac.stanford.edu |
---|
5 | */ |
---|
6 | |
---|
7 | #include "mex.h" |
---|
8 | #include "elempass.h" |
---|
9 | |
---|
10 | |
---|
11 | /* void IdentityPass(double *r_in) |
---|
12 | { |
---|
13 | } |
---|
14 | */ |
---|
15 | |
---|
16 | |
---|
17 | |
---|
18 | |
---|
19 | ExportMode int* passFunction(const mxArray *ElemData,int *FieldNumbers, |
---|
20 | double *r_in, int num_particles, int mode) |
---|
21 | |
---|
22 | |
---|
23 | { /* IdentityPass(r_in); */ |
---|
24 | return(NULL); |
---|
25 | } |
---|
26 | |
---|
27 | |
---|
28 | void mexFunction( int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[]) |
---|
29 | { int m,n; |
---|
30 | if(nrhs) |
---|
31 | { |
---|
32 | /* ALLOCATE memory for the output array of the same size as the input */ |
---|
33 | m = mxGetM(prhs[1]); |
---|
34 | n = mxGetN(prhs[1]); |
---|
35 | if(m!=6) |
---|
36 | mexErrMsgTxt("Second argument must be a 6 x N matrix"); |
---|
37 | |
---|
38 | plhs[0] = mxDuplicateArray(prhs[1]); |
---|
39 | |
---|
40 | /* |
---|
41 | r_in = mxGetPr(plhs[0]); |
---|
42 | IdentityPass(r_in); |
---|
43 | */ |
---|
44 | } |
---|
45 | else |
---|
46 | { /* return list of required fields */ |
---|
47 | plhs[0] = mxCreateCellMatrix(0,0); |
---|
48 | if(nlhs>1) /* Required and optional fields */ |
---|
49 | { plhs[1] = mxCreateCellMatrix(0,0); /* No optional fields */ |
---|
50 | } |
---|
51 | } |
---|
52 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.