Changeset 6012
- Timestamp:
- 09/24/10 09:32:36 (14 years ago)
- Location:
- issm/trunk/src/mex/Reduceload
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/mex/Reduceload/Reduceload.cpp
r5787 r6012 11 11 Mat Kfs = NULL; 12 12 Vec ys = NULL; 13 Parameters *parameters = NULL; 13 14 bool flag_ys0=false; 14 15 … … 17 18 18 19 /*checks on arguments on the matlab side: */ 19 if((nlhs!=NLHS) || (nrhs!= 3 && nrhs!=4)){20 if((nlhs!=NLHS) || (nrhs!=4 && nrhs!=5)){ 20 21 ReduceloadUsage(); 21 22 ISSMERROR(" usage. See above"); … … 26 27 FetchData(&Kfs,KFS); 27 28 FetchData(&ys,YS); 28 if(nrhs==4)FetchData(&flag_ys0,YSFLAG); 29 else flag_ys0=false; 29 FetchParams(¶meters,PARAMETERS); 30 30 31 31 /*!Reduce load from g to f size: */ 32 Reduceloadx(pf, Kfs, ys, flag_ys0); 32 if(nrhs==5){ 33 FetchData(&flag_ys0,YSFLAG); 34 Reduceloadx(pf, Kfs, ys,parameters,flag_ys0); 35 } 36 else{ 37 Reduceloadx(pf, Kfs, ys,parameters); 38 } 33 39 34 40 /*write output datasets: */ … … 39 45 MatFree(&Kfs); 40 46 VecFree(&ys); 47 delete parameters; 41 48 42 /*end module: */43 49 MODULEEND(); 44 50 } … … 47 53 { 48 54 _printf_("\n"); 49 _printf_(" usage: [pf] = %s(pf,Kfs,ys );\n",__FUNCT__);50 _printf_(" [pf] = %s(pf,Kfs,ys, ys0_flag);\n",__FUNCT__);55 _printf_(" usage: [pf] = %s(pf,Kfs,ys,parameters);\n",__FUNCT__); 56 _printf_(" [pf] = %s(pf,Kfs,ys,parameters,ys0_flag);\n",__FUNCT__); 51 57 _printf_("\n"); 52 58 } -
issm/trunk/src/mex/Reduceload/Reduceload.h
r5787 r6012 1 2 1 /* 3 2 Reduceload.h 4 3 */ 5 6 4 7 5 #ifndef _REDUCELOAD_H … … 22 20 #define KFS (mxArray*)prhs[1] 23 21 #define YS (mxArray*)prhs[2] 24 #define YSFLAG (mxArray*)prhs[3] 22 #define PARAMETERS (mxArray*)prhs[3] 23 #define YSFLAG (mxArray*)prhs[4] 25 24 26 25 /* serial output macros: */ … … 31 30 #define NLHS 1 32 31 #undef NRHS 33 #define NRHS 432 #define NRHS 5 34 33 35 34 #endif /* _REDUCELOAD_H */
Note:
See TracChangeset
for help on using the changeset viewer.