Changeset 15106
- Timestamp:
- 05/24/13 19:22:24 (12 years ago)
- Location:
- issm/trunk-jpl/src
- Files:
-
- 61 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
r15104 r15106 1287 1287 IssmDouble gl[3]; 1288 1288 IssmDouble f1,f2; 1289 1290 1289 1291 1290 /*Recover parameters and values*/ -
issm/trunk-jpl/src/c/classes/classes.h
r15070 r15106 44 44 #include "./Elements/TriaHook.h" 45 45 #include "./Elements/TriaRef.h" 46 47 46 48 47 /*Option parsing objects: */ -
issm/trunk-jpl/src/c/solutionsequences/solutionsequence_hydro_nonlinear.cpp
r15104 r15106 9 9 10 10 void solutionsequence_hydro_nonlinear(FemModel* femmodel){ 11 11 12 12 /*solution : */ 13 13 Vector<IssmDouble>* ug=NULL; … … 19 19 Vector<IssmDouble>* ys=NULL; 20 20 Vector<IssmDouble>* duf=NULL; 21 21 22 22 Matrix<IssmDouble>* Kff=NULL; 23 23 Matrix<IssmDouble>* Kfs=NULL; 24 24 Vector<IssmDouble>* pf=NULL; 25 25 Vector<IssmDouble>* df=NULL; 26 26 27 27 bool sedconverged,eplconverged,hydroconverged; 28 28 bool isefficientlayer; … … 58 58 } 59 59 60 61 60 for(;;){ 62 61 sedcount=1; … … 75 74 femmodel->parameters->SetParam(HydrologySedimentEnum,HydrologyLayerEnum); 76 75 femmodel->HydrologyTransferx(); 77 76 78 77 /*Iteration on the sediment layer*/ 79 78 for(;;){ … … 85 84 delete old_uf; old_uf=uf_sed->Duplicate(); 86 85 delete Kff; delete pf; delete ug; delete df; 87 86 88 87 Mergesolutionfromftogx(&ug,uf_sed,ys,femmodel->nodes,femmodel->parameters); delete ys; 89 88 InputUpdateFromSolutionx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,ug); … … 187 186 } 188 187 hydrocount++; 189 188 190 189 if(hydroconverged)break; 191 190 } 192 191 193 192 InputUpdateFromSolutionx(femmodel->elements,femmodel->nodes, femmodel->vertices, femmodel->loads, femmodel->materials, femmodel->parameters,ug); 194 193 195 194 /*Free ressources: */ 196 195 delete ug; … … 201 200 delete aged_uf_epl; 202 201 delete duf; 203 202 204 203 } -
issm/trunk-jpl/src/m/classes/geometry.m
r14811 r15106 25 25 end % }}} 26 26 function md = checkconsistency(obj,md,solution,analyses) % {{{ 27 27 28 28 if (solution==TransientSolutionEnum() & md.transient.isgia) | (solution==GiaSolutionEnum()), 29 29 md = checkfield(md,'geometry.thickness','forcing',1,'NaN',1,'>=',0); -
issm/trunk-jpl/src/m/classes/groundingline.m
r14652 r15106 31 31 md = checkfield(md,'groundingline.migration','values',{'None' 'AgressiveMigration' 'SoftMigration' 'SubelementMigration','SubelementMigration2'}); 32 32 33 34 33 if ~strcmp(obj.migration,'None'), 35 34 if isnan(md.geometry.bathymetry), -
issm/trunk-jpl/src/m/classes/hydrologydc.m
r15062 r15106 20 20 sediment_thickness = 0; 21 21 sediment_transmitivity = 0; 22 22 23 23 spcepl_head = NaN; 24 24 epl_compressibility = 0; … … 26 26 epl_thickness = 0; 27 27 epl_transmitivity = 0; 28 28 29 29 end 30 30 methods … … 38 38 end % }}} 39 39 function obj = setdefaultparameters(obj) % {{{ 40 40 41 41 %Parameters from de Fleurian 2013 42 42 obj.water_compressibility = 5.04e-10; … … 58 58 obj.epl_thickness = 1.0; 59 59 obj.epl_transmitivity = 8.0e-02; 60 60 61 61 end % }}} 62 62 function md = checkconsistency(obj,md,solution,analyses) % {{{ 63 63 64 64 %Early return 65 65 if ~ismember(HydrologyDCInefficientAnalysisEnum(),analyses) & ~ismember(HydrologyDCEfficientAnalysisEnum(),analyses), 66 66 return; 67 67 end 68 68 69 69 md = checkfield(md,'hydrology.water_compressibility','>',0,'numel',1); 70 70 md = checkfield(md,'hydrology.isefficientlayer','numel',[1],'values',[0 1]); … … 79 79 md = checkfield(md,'hydrology.leakage_factor','>',0,'numel',1); 80 80 end 81 81 82 82 md = checkfield(md,'hydrology.spcsediment_head','forcing',1); 83 83 md = checkfield(md,'hydrology.sediment_compressibility','>',0,'numel',1); … … 85 85 md = checkfield(md,'hydrology.sediment_thickness','>',0,'numel',1); 86 86 md = checkfield(md,'hydrology.sediment_transmitivity','>',0,'numel',1); 87 87 88 88 if obj.isefficientlayer==1, 89 89 md = checkfield(md,'hydrology.spcepl_head','forcing',1); … … 121 121 fielddisplay(obj,'sediment_thickness','sediment thickness [m]'); 122 122 fielddisplay(obj,'sediment_transmitivity','sediment transmitivity [m^2/s]'); 123 123 124 124 if obj.isefficientlayer==1, 125 125 disp(sprintf(' - for the epl layer')); … … 130 130 fielddisplay(obj,'epl_transmitivity','epl transmitivity [m^2/s]'); 131 131 end 132 132 133 133 end % }}} 134 134 function marshall(obj,fid) % {{{ … … 152 152 WriteData(fid,'object',obj,'fieldname','sediment_thickness','format','Double'); 153 153 WriteData(fid,'object',obj,'fieldname','sediment_transmitivity','format','Double'); 154 154 155 155 if obj.isefficientlayer==1, 156 156 WriteData(fid,'object',obj,'fieldname','spcepl_head','format','DoubleMat','mattype',1); -
issm/trunk-jpl/src/m/classes/matdamageice.m
r14901 r15106 21 21 rheology_Z = NaN; 22 22 rheology_law = ''; 23 23 24 24 %gia: 25 25 lithosphere_shear_modulus = 0.; … … 27 27 mantle_shear_modulus = 0.; 28 28 mantle_density = 0.; 29 30 29 31 30 end … … 87 86 %available: none, paterson and arrhenius 88 87 obj.rheology_law='Paterson'; 89 88 90 89 %GIA: 91 90 obj.lithosphere_shear_modulus = 6.7*10^10; % (Pa) … … 151 150 WriteData(fid,'object',obj,'class','materials','fieldname','rheology_Z','format','DoubleMat','mattype',1); 152 151 WriteData(fid,'data',StringToEnum(obj.rheology_law),'enum',MaterialsRheologyLawEnum(),'format','Integer'); 153 152 154 153 WriteData(fid,'object',obj,'class','materials','fieldname','lithosphere_shear_modulus','format','Double'); 155 154 WriteData(fid,'object',obj,'class','materials','fieldname','lithosphere_density','format','Double'); -
issm/trunk-jpl/src/m/classes/matice.m
r14901 r15106 145 145 WriteData(fid,'object',obj,'class','materials','fieldname','rheology_n','format','DoubleMat','mattype',2); 146 146 WriteData(fid,'data',StringToEnum(obj.rheology_law),'enum',MaterialsRheologyLawEnum(),'format','Integer'); 147 147 148 148 WriteData(fid,'object',obj,'class','materials','fieldname','lithosphere_shear_modulus','format','Double'); 149 149 WriteData(fid,'object',obj,'class','materials','fieldname','lithosphere_density','format','Double'); -
issm/trunk-jpl/src/m/classes/model/model.m
r15021 r15106 92 92 md.hydrology=hydrologyshreve(md.materials); 93 93 end 94 95 94 96 95 end% }}} … … 1150 1149 end % }}} 1151 1150 function memory(obj) % {{{ 1152 1151 1153 1152 disp(sprintf('\nMemory imprint:\n')); 1154 1153 1155 1154 fields=properties('model'); 1156 1155 mem=0; 1157 1156 1158 1157 for i=1:length(fields), 1159 1158 field=obj.(fields{i}); -
issm/trunk-jpl/src/m/consistency/ismodelselfconsistent.m
r14771 r15106 80 80 numanalyses=1; 81 81 analyses=[BedSlopeAnalysisEnum()]; 82 82 83 83 case GiaSolutionEnum(), 84 84 numanalyses=1; -
issm/trunk-jpl/src/m/contrib/paraview/writeVTKcell.m
r15062 r15106 47 47 fprintf(FID,'ASCII \n'); 48 48 fprintf(FID,'DATASET UNSTRUCTURED_GRID \n'); 49 49 50 50 fprintf(FID,'POINTS %d float\n',num_of_points); 51 51 s='%f %f %f \n'; 52 52 P=[points zeros(num_of_points,3-dim)]; 53 53 fprintf(FID,s,P'); 54 54 55 55 fprintf(FID,'CELLS %d %d\n',num_of_elt,num_of_elt*(point_per_elt+1)); 56 56 s='%d'; … … 60 60 s=cell2mat(horzcat(s,{'\n'})); 61 61 fprintf(FID,s,[(point_per_elt)*ones(num_of_elt,1) model.mesh.elements-1]'); 62 62 63 63 fprintf(FID,'CELL_TYPES %d\n',num_of_elt); 64 64 s='%d\n'; 65 65 fprintf(FID,s,celltype*ones(num_of_elt,1)); 66 66 67 67 %check which field is a real result and print 68 68 fprintf(FID,'POINT_DATA %s \n',num2str(num_of_points)); 69 69 for j=1:num_of_fields 70 70 71 71 if (length(sol_struct(1).(fieldnames{j}))==num_of_points); 72 72 fprintf(FID,'SCALARS %s float 1 \n',fieldnames{j}); … … 85 85 fprintf(FID,'ASCII \n'); 86 86 fprintf(FID,'DATASET UNSTRUCTURED_GRID \n'); 87 87 88 88 fprintf(FID,'POINTS %d float\n',num_of_points); 89 89 s='%f %f %f \n'; 90 90 P=[points zeros(num_of_points,3-dim)]; 91 91 fprintf(FID,s,P'); 92 92 93 93 fprintf(FID,'CELLS %d %d\n',num_of_elt,num_of_elt*(point_per_elt+1)); 94 94 s='%d'; … … 98 98 s=cell2mat(horzcat(s,{'\n'})); 99 99 fprintf(FID,s,[(point_per_elt)*ones(num_of_elt,1) model.mesh.elements-1]'); 100 100 101 101 fprintf(FID,'CELL_TYPES %d\n',num_of_elt); 102 102 s='%d\n'; 103 103 fprintf(FID,s,celltype*ones(num_of_elt,1)); 104 104 105 105 %check which field is a real result and print 106 106 fprintf(FID,'POINT_DATA %s \n',num2str(num_of_points)); 107 107 for j=1:num_of_fields 108 108 109 109 if (length(sol_struct(1).(fieldnames{j}))==num_of_points); 110 110 fprintf(FID,'SCALARS %s float 1 \n',fieldnames{j}); -
issm/trunk-jpl/src/m/io/structtonc.m
r14639 r15106 130 130 %update counter 131 131 counter = counter+1; 132 -
issm/trunk-jpl/src/m/lambert/lambert2xy.m
r15103 r15106 70 70 y=(B/D)*((cos(b0)*sin(b))-(sin(b0)*cos(b)*cos(lam-lam0))); 71 71 end 72 73 74 75 -
issm/trunk-jpl/src/m/mesh/ExportGmsh.m
r14862 r15106 4 4 % Usage: 5 5 % ExportGmsh(md,filename) 6 7 6 8 7 t1=clock;fprintf('%s',['writing gmsh mesh file']); … … 52 51 fclose(fid); 53 52 t2=clock;fprintf('%s\n',[' done (' num2str(etime(t2,t1)) ' seconds)']); 54 -
issm/trunk-jpl/src/m/mesh/roundmesh.m
r13808 r15106 46 46 47 47 end 48 -
issm/trunk-jpl/src/m/miscellaneous/normcdf_issm.m
r14182 r15106 7 7 8 8 end 9 -
issm/trunk-jpl/src/m/miscellaneous/normfit_issm.m
r14326 r15106 60 60 61 61 end 62 -
issm/trunk-jpl/src/m/miscellaneous/norminv_issm.m
r14182 r15106 7 7 8 8 end 9 -
issm/trunk-jpl/src/m/miscellaneous/prctile_issm.m
r14326 r15106 85 85 86 86 end 87 -
issm/trunk-jpl/src/m/morphological/closing.m
r14520 r15106 4 4 mask=dilation(mask,neighboorhood); 5 5 mask=erosion(mask,neighboorhood); 6 -
issm/trunk-jpl/src/m/morphological/vectorialize.m
r14580 r15106 2 2 3 3 vec=bwboundaries(mask,connectivity); 4 4 5 5 contours=struct([]); 6 6 for i=1:length(vec), -
issm/trunk-jpl/src/m/parameterization/contourenvelope.m
r14229 r15106 138 138 end 139 139 segments=segments(1:count-1,:); 140 -
issm/trunk-jpl/src/m/plot/colormaps/ibcao.m
r14517 r15106 66 66 yland = interp1(1:lland,Jland,linspace(1,lland,nland),'*linear'); 67 67 68 69 68 map=[ysea;yland]; -
issm/trunk-jpl/src/m/plot/colormaps/seacolor.m
r14223 r15106 56 56 end 57 57 y = interp1(1:l,J,linspace(1,l,n),'*linear'); 58 -
issm/trunk-jpl/src/m/plot/curvedarrow.m
r13870 r15106 24 24 %compute some values out of (x1,y1) and (x2,y2) 25 25 length=distance*angle; 26 26 27 27 if exist(options,'widthratio'), 28 28 widthratio=getfieldvalue(options,'widthratio'); … … 57 57 m=-m; 58 58 end 59 59 60 60 if exist(options,'arrowlength'), 61 61 d=arrowlength; … … 63 63 d=abs((distance*angle)*ratio); 64 64 end 65 65 66 66 %G is d distance from middle of E and F: 67 67 G=(E+F)/2+d*m; -
issm/trunk-jpl/src/mobile/ios/ISSM_APP/ISSM_APP/ISSM_APP/AppDelegate.m
r15028 r15106 16 16 return YES; 17 17 } 18 18 19 19 - (void)applicationWillResignActive:(UIApplication *)application 20 20 { -
issm/trunk-jpl/src/mobile/ios/ISSM_APP/ISSM_APP/ISSM_APPTests/ISSM_APPTests.m
r15028 r15106 14 14 { 15 15 [super setUp]; 16 16 17 17 // Set-up code here. 18 18 } … … 21 21 { 22 22 // Tear-down code here. 23 23 24 24 [super tearDown]; 25 25 } -
issm/trunk-jpl/src/wrappers/AverageFilter/AverageFilter.cpp
r15105 r15106 43 43 FetchData(&imagein,&imagein_rows,&imagein_cols,IMAGEIN); 44 44 FetchData(&smooth,SMOOTH); 45 45 46 46 /*Run core hole filler routine: */ 47 47 AverageFilterx( &imageout,imagein,imagein_rows,imagein_cols,smooth); -
issm/trunk-jpl/src/wrappers/Chaco/Chaco.cpp
r15105 r15106 17 17 }/*}}}*/ 18 18 WRAPPER(Chaco){ 19 19 20 20 int i; 21 21 int nterms; … … 83 83 nparts=xNew<int>(1); nparts[0]=npart; //weird Chacox interface ain't it? 84 84 FetchData(&goal,&nterms,GOAL_IN); 85 85 86 86 /*Some debugging print: {{{*/ 87 87 #ifdef _DEBUG_ … … 106 106 #endif 107 107 /*}}}*/ 108 108 109 109 /*Allocate output: */ 110 110 assignment = xNewZeroInit<short>(nvtxs); 111 111 112 112 /*Call core: */ 113 113 Chacox(nvtxs, start, adjacency, vwgts, ewgts, x, y, z, assignment, options, nparts, goal); -
issm/trunk-jpl/src/wrappers/ContourToMesh/ContourToMesh.cpp
r15105 r15106 3 3 are inside this contour. 4 4 */ 5 5 6 6 #include "./ContourToMesh.h" 7 7 -
issm/trunk-jpl/src/wrappers/ContourToMesh/ContourToMesh.h
r14996 r15106 62 62 63 63 #endif /* _CONTOURTOMESH_H */ 64 -
issm/trunk-jpl/src/wrappers/ContourToNodes/ContourToNodes.cpp
r15105 r15106 2 2 \brief: takes a contour file, and figures out which nodes (x,y list) 3 3 */ 4 4 5 5 #include "./ContourToNodes.h" 6 6 … … 32 32 /*checks on arguments on the matlab side: */ 33 33 CHECKARGUMENTS(NLHS,NRHS,&ContourToNodesUsage); 34 34 35 35 /*Fetch inputs: */ 36 36 FetchData(&x,&nods,NULL,XHANDLE); -
issm/trunk-jpl/src/wrappers/ContourToNodes/ContourToNodes.h
r14996 r15106 54 54 55 55 #endif /* _CONTOURTONODES_H */ 56 -
issm/trunk-jpl/src/wrappers/EdgeDetection/EdgeDetection.cpp
r15105 r15106 2 2 * \brief: edge detection for a boolean image 3 3 */ 4 4 5 5 #include "./EdgeDetection.h" 6 6 -
issm/trunk-jpl/src/wrappers/ElementConnectivity/ElementConnectivity.cpp
r15105 r15106 26 26 /*checks on arguments: */ 27 27 CHECKARGUMENTS(NLHS,NRHS,&ElementConnectivityUsage); 28 28 29 29 /*Input datasets: */ 30 30 FetchData(&elements,&nels,NULL,ELEMENTS); -
issm/trunk-jpl/src/wrappers/EnumToString/EnumToString.h
r14961 r15106 25 25 #undef __FUNCT__ 26 26 #define __FUNCT__ "EnumToString" 27 27 28 28 #ifdef _HAVE_MATLAB_MODULES_ 29 29 /* serial input macros: */ -
issm/trunk-jpl/src/wrappers/ExpSimplify/ExpSimplify.cpp
r15105 r15106 87 87 } 88 88 89 90 89 }/*}}}*/ 91 90 WRAPPER(ExpSimplify){ -
issm/trunk-jpl/src/wrappers/HoleFiller/HoleFiller.cpp
r15105 r15106 29 29 int smooth; 30 30 31 32 31 /* output: */ 33 32 double* imageout=NULL; … … 43 42 FetchData(&imagein,&imagein_rows,&imagein_cols,IMAGEIN); 44 43 FetchData(&smooth_flag,SMOOTH); 45 44 46 45 /*Get smooth flag setup: */ 47 46 if (smooth_flag==0) -
issm/trunk-jpl/src/wrappers/InterpFromGridToMesh/InterpFromGridToMesh.cpp
r15105 r15106 2 2 * \brief: data interpolation from a list of (x,y,values) into mesh vertices 3 3 */ 4 4 5 5 #include "./InterpFromGridToMesh.h" 6 6 -
issm/trunk-jpl/src/wrappers/InterpFromMesh2d/InterpFromMesh2d.cpp
r15105 r15106 2 2 * \brief: data interpolation from a list of (x,y,values) into mesh vertices 3 3 */ 4 4 5 5 #include "./InterpFromMesh2d.h" 6 6 … … 29 29 double* x_data=NULL; 30 30 int x_data_rows; 31 31 32 32 double* y_data=NULL; 33 33 int y_data_rows; … … 39 39 double* x_prime=NULL; 40 40 double* y_prime=NULL; 41 41 42 42 int x_prime_rows; 43 43 int y_prime_rows; 44 45 44 46 45 double* default_values=NULL; … … 93 92 94 93 if(nrhs>=8){ 95 94 96 95 /*Call expread on filename to build a contour array in the matlab workspace: */ 97 96 mexCallMATLAB( 1, &matlabstructure, 1, (mxArray**)&FILENAME, "expread"); … … 127 126 } 128 127 129 130 128 /*some checks*/ 131 129 if (x_data_rows!=y_data_rows){ … … 135 133 _error_("vectors x_prime and y_prime should have the same length!"); 136 134 } 137 135 138 136 /*get number of elements and number of nodes in the data*/ 139 137 nels_data=index_data_rows; -
issm/trunk-jpl/src/wrappers/InterpFromMeshToGrid/InterpFromMeshToGrid.cpp
r15105 r15106 42 42 double* y_m=NULL; 43 43 44 45 44 /*Boot module: */ 46 45 MODULEBOOT(); … … 72 71 /*Free ressources: */ 73 72 //let matlab do this. 74 73 75 74 /*end module: */ 76 75 MODULEEND(); -
issm/trunk-jpl/src/wrappers/InterpFromMeshToMesh3d/InterpFromMeshToMesh3d.cpp
r15105 r15106 2 2 * \brief: data interpolation from a list of (x,y,values) into mesh vertices 3 3 */ 4 4 5 5 #include "./InterpFromMeshToMesh3d.h" 6 6 … … 47 47 double* y_prime=NULL; 48 48 double* z_prime=NULL; 49 49 50 50 int x_prime_rows; 51 51 int y_prime_rows; -
issm/trunk-jpl/src/wrappers/MeshPartition/MeshPartition.cpp
r15105 r15106 2 2 * \brief: partition mesh according to number of areas, using Metis library. 3 3 */ 4 4 5 5 #include "./MeshPartition.h" 6 6 … … 67 67 element_partitioning[i]=(double)int_element_partitioning[i]+1; //Metis indexing from 0, matlab from 1. 68 68 } 69 69 70 70 node_partitioning=xNew<double>(numberofvertices); 71 71 for (i=0;i<numberofvertices;i++){ … … 76 76 WriteData(ELEMENTPARTITIONING,element_partitioning,numberofelements); 77 77 WriteData(NODEPARTITIONING,node_partitioning,numberofvertices); 78 78 79 79 /*Free ressources:*/ 80 80 //don't! let matlab do it. -
issm/trunk-jpl/src/wrappers/MeshPartition/MeshPartition.h
r14996 r15106 49 49 #define NRHS 2 50 50 51 52 51 #endif /* _MESHPARTITION_H */ 53 -
issm/trunk-jpl/src/wrappers/MeshProfileIntersection/MeshProfileIntersection.cpp
r15105 r15106 15 15 mesh. 16 16 */ 17 17 18 18 #include "./MeshProfileIntersection.h" 19 19 … … 43 43 int nods; 44 44 int dummy; 45 45 46 46 //contours 47 47 DataSet *domain = NULL; -
issm/trunk-jpl/src/wrappers/MeshProfileIntersection/MeshProfileIntersection.h
r14996 r15106 52 52 53 53 #endif /* _MESHPROFILEINTERSECTION_H */ 54 -
issm/trunk-jpl/src/wrappers/NodeConnectivity/NodeConnectivity.cpp
r15105 r15106 26 26 /*checks on arguments: */ 27 27 CHECKARGUMENTS(NLHS,NRHS,&NodeConnectivityUsage); 28 28 29 29 /*Input datasets: */ 30 30 FetchData(&elements,&nels,NULL,ELEMENTS); -
issm/trunk-jpl/src/wrappers/PointCloudFindNeighbors/PointCloudFindNeighbors.cpp
r15105 r15106 2 2 \brief: flag points that are too near one another, within an array of point coordinates 3 3 */ 4 4 5 5 #include "./PointCloudFindNeighbors.h" 6 6 -
issm/trunk-jpl/src/wrappers/PropagateFlagsFromConnectivity/PropagateFlagsFromConnectivity.cpp
r15105 r15106 19 19 int index; 20 20 int dummy; 21 21 22 22 /*Boot module: */ 23 23 MODULEBOOT(); … … 25 25 /*checks on arguments on the matlab side: */ 26 26 CheckNumMatlabArguments(nlhs,NLHS,nrhs,NRHS,__FUNCT__,&PropagateFlagsFromConnectivityUsage); 27 27 28 28 /*Input datasets: */ 29 29 FetchData(&connectivity,&nel,&dummy,CONNECTIVITY); -
issm/trunk-jpl/src/wrappers/Scotch/Scotch.cpp
r13236 r15106 35 35 36 36 /* Check for proper number of arguments */ 37 37 38 38 if (nrhs == 0 && nlhs == 0) { 39 39 GmapUsage(); -
issm/trunk-jpl/src/wrappers/Scotch/Scotch.h
r14996 r15106 13 13 #include "../../c/modules/modules.h" 14 14 #include "../../c/shared/shared.h" 15 15 16 16 #undef __FUNCT__ 17 17 #define __FUNCT__ "Scotch" -
issm/trunk-jpl/src/wrappers/Shp2Exp/Shp2Exp.h
r14996 r15106 48 48 49 49 #endif 50 -
issm/trunk-jpl/src/wrappers/Shp2Kml/Shp2Kml.h
r14996 r15106 50 50 51 51 #endif 52 -
issm/trunk-jpl/src/wrappers/StringToEnum/StringToEnum.h
r14961 r15106 25 25 #undef __FUNCT__ 26 26 #define __FUNCT__ "StringToEnum" 27 27 28 28 #ifdef _HAVE_MATLAB_MODULES_ 29 29 /* serial input macros: */ -
issm/trunk-jpl/src/wrappers/TriMesh/TriMesh.cpp
r15105 r15106 15 15 }/*}}}*/ 16 16 WRAPPER(TriMesh){ 17 17 18 18 /*intermediary: */ 19 19 double area; … … 34 34 /*checks on arguments: */ 35 35 CHECKARGUMENTS(NLHS,NRHS,&TriMeshUsage); 36 36 37 37 /*Fetch data needed for meshing: */ 38 38 FetchData(&domain,DOMAINOUTLINE); -
issm/trunk-jpl/src/wrappers/matlab/io/ApiPrintf.cpp
r15096 r15106 18 18 /*use mexPrintf in matlab: */ 19 19 mexPrintf(format,string); 20 20 21 21 return; 22 22 } -
issm/trunk-jpl/src/wrappers/matlab/io/MatlabVectorToIssmVec.cpp
r14727 r15106 16 16 17 17 output=new IssmVec<double>(); 18 18 19 19 seqvec=new IssmSeqVec<double>(); 20 20 -
issm/trunk-jpl/src/wrappers/matlab/io/WriteMatlabData.cpp
r15096 r15106 373 373 char id[100]; 374 374 375 376 375 /*Initialize field names*/ 377 376 i=0; … … 398 397 /*number of nods: */ 399 398 SetStructureFieldi(dataref,i,"nods" ,contour->nods); 400 399 401 400 /*density: */ 402 401 SetStructureFieldi(dataref,i,"density" ,1); 403 402 404 403 /*x and y: */ 405 404 SetStructureFieldi(dataref,i,"x" ,contour->nods, 1,contour->x); -
issm/trunk-jpl/src/wrappers/python/include/wrapper_macros.h
r14291 r15106 43 43 /* WRAPPER 3.2 {{{*/ 44 44 #define WRAPPER(modulename,...) \ 45 \ 45 46 46 static PyObject* modulename(PyObject* self,PyObject* args);\ 47 47 static PyMethodDef modulename##_funcs[] = {\ … … 49 49 {NULL,NULL,0,NULL}\ 50 50 };\ 51 \ 51 52 52 static struct PyModuleDef modulename##module= {\ 53 53 PyModuleDef_HEAD_INIT,\ … … 58 58 modulename##_funcs\ 59 59 };\ 60 \ 60 61 61 PyMODINIT_FUNC PyInit_##modulename(void){\ 62 \ 62 63 63 import_array();\ 64 64 return PyModule_Create(&modulename##module);\ 65 65 }\ 66 \ 66 67 67 static PyObject* modulename(PyObject* self,PyObject* args) 68 68 /*}}}*/ … … 70 70 /* WRAPPER 2.7 {{{*/ 71 71 #define WRAPPER(modulename,...) \ 72 \ 72 73 73 static PyObject* modulename(PyObject* self,PyObject* args);\ 74 74 static PyMethodDef modulename##_funcs[] = {\ … … 76 76 {NULL,NULL,0,NULL}\ 77 77 };\ 78 \ 78 79 79 PyMODINIT_FUNC init##modulename(void){\ 80 \ 80 81 81 import_array();\ 82 82 (void) Py_InitModule(#modulename, modulename##_funcs);\ 83 83 }\ 84 \ 84 85 85 static PyObject* modulename(PyObject* self,PyObject* args) 86 86 /*}}}*/ -
issm/trunk-jpl/src/wrappers/python/io/ApiPrintf.cpp
r15096 r15106 19 19 /*use printf: */ 20 20 printf(format,string); 21 21 22 22 return; 23 23 } -
issm/trunk-jpl/src/wrappers/python/io/WritePythonData.cpp
r15091 r15106 298 298 /*use printf: */ 299 299 printf(format,string); 300 300 301 301 return; 302 302 }
Note:
See TracChangeset
for help on using the changeset viewer.