- Timestamp:
- 02/04/13 07:33:56 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/wrappers/InternalFront/InternalFront.cpp
r13250 r14304 14 14 bool* elementonwater=NULL; 15 15 int* elements=NULL; 16 int* connectivity=NULL;17 16 int* elementconnectivity=NULL; 18 17 int* front=NULL; … … 20 19 bool found; 21 20 int numberofelements,numberofsegments; 22 int N,M;23 21 int i,j,ii,jj,id; 22 int dummy; 24 23 25 24 /*Boot module: */ 26 25 MODULEBOOT(); 27 26 28 /*checks on arguments on the matlab side: */29 C heckNumMatlabArguments(nlhs,NLHS,nrhs,NRHS,__FUNCT__,&InternalFrontUsage);27 /*checks on arguments: */ 28 CHECKARGUMENTS(NLHS,NRHS,&InternalFrontUsage); 30 29 31 /*Fetch required fields*/ 32 FetchData(&numberofelements,mxGetAssignedField(MODEL,0,"numberofelements")); 33 if(numberofelements<=0) _error_("No elements found in the model"); 34 FetchData(&elements,&M,&N,mxGetAssignedField(MODEL,0,"elements")); 35 if(M!=numberofelements || N!=3) _error_("Field 'elements' should be of size [md.numberofelements 3]"); 36 FetchData(&elementonwater,&M,&N,mxGetAssignedField(MODEL,0,"elementonwater")); 37 if(M!=numberofelements || N!=1) _error_("Field 'elementonwater' should be of size [md.numberofelements 1]"); 38 FetchData(&elementconnectivity,&M,&N,mxGetAssignedField(MODEL,0,"elementconnectivity")); 39 if(M!=numberofelements || N!=3) _error_("Field 'elementconnectivity' should be of size [md.numberofelements 3]"); 30 /*Fetch inputs: */ 31 FetchData(&elements,&numberofelements,&dummy,ELEMENTS); 32 FetchData(&elementonwater,&dummy,&dummy,ELEMENTONWATER); 33 FetchData(&elementconnectivity,&dummy,&dummy,ELEMENTCONNECTIVITY); 40 34 41 35 /*Allocate and initialize all variables*/
Note:
See TracChangeset
for help on using the changeset viewer.