Changeset 13036
- Timestamp:
- 08/14/12 16:58:21 (13 years ago)
- Location:
- issm/trunk-jpl/src
- Files:
-
- 282 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/Container/DataSet.cpp
r12832 r13036 133 133 vector<Object*>::iterator object; 134 134 135 if(this==NULL)_error 2_("trying to echo a NULL dataset");135 if(this==NULL)_error_("trying to echo a NULL dataset"); 136 136 137 137 _pprintLine_("DataSet echo: " << objects.size() << " objects"); … … 150 150 vector<Object*>::iterator object; 151 151 152 if(this==NULL)_error 2_("trying to echo a NULL dataset");152 if(this==NULL)_error_("trying to echo a NULL dataset"); 153 153 154 154 _pprintLine_("DataSet echo: " << objects.size() << " objects"); … … 194 194 195 195 _assert_(this); 196 if(!sorted)_error 2_("trying to binary search on a non-sorted dataset!");196 if(!sorted)_error_("trying to binary search on a non-sorted dataset!"); 197 197 198 198 /*Carry out a binary search on the sorted_ids: */ 199 199 if(!binary_search(&id_offset,eid, sorted_ids,objects.size())){ 200 _error 2_("could not find object with id " << eid << " in DataSet " << EnumToStringx(enum_type));200 _error_("could not find object with id " << eid << " in DataSet " << EnumToStringx(enum_type)); 201 201 } 202 202 … … 259 259 /*Only sort if we are not already sorted: */ 260 260 if(!sorted){ 261 _error 2_("not implemented yet!");262 } 263 } 264 /*}}}*/ 261 _error_("not implemented yet!"); 262 } 263 } 264 /*}}}*/ -
issm/trunk-jpl/src/c/Container/Elements.cpp
r12704 r13036 203 203 /*see what the first element of this partition has in stock (this is common to all partitions)*/ 204 204 if(my_rank==minrank){ 205 if(this->Size()==0) _error 2_("Cannot write results because there is no element??");205 if(this->Size()==0) _error_("Cannot write results because there is no element??"); 206 206 Element* element=(Element*)this->GetObjectByOffset(0); 207 207 element->ListResultsInfo(&resultsenums,&resultssizes,&resultstimes,&resultssteps,&numberofresults); … … 232 232 if(resultssizes[i]==P1Enum) vectorsize=numberofvertices; 233 233 else if(resultssizes[i]==P0Enum) vectorsize=numberofelements; 234 else _error 2_("Unkown result size: " << EnumToStringx(resultssizes[i]));234 else _error_("Unkown result size: " << EnumToStringx(resultssizes[i])); 235 235 vector=new Vector(vectorsize); 236 236 -
issm/trunk-jpl/src/c/Container/Inputs.cpp
r12495 r13036 57 57 /*we could not find an input with the correct enum type. No defaults values were provided, 58 58 * error out: */ 59 _error 2_("could not find input with enum type " << enum_type << " (" << EnumToStringx(enum_type) << ")");59 _error_("could not find input with enum type " << enum_type << " (" << EnumToStringx(enum_type) << ")"); 60 60 } 61 61 … … 85 85 /*we could not find an input with the correct enum type. No defaults values were provided, 86 86 * error out: */ 87 _error 2_("could not find input with enum type " << enum_type << " (" << EnumToStringx(enum_type) << ")");87 _error_("could not find input with enum type " << enum_type << " (" << EnumToStringx(enum_type) << ")"); 88 88 } 89 89 … … 113 113 /*we could not find an input with the correct enum type. No defaults values were provided, 114 114 * error out: */ 115 _error 2_("could not find input with enum type " << enum_type << " (" << EnumToStringx(enum_type) << ")");115 _error_("could not find input with enum type " << enum_type << " (" << EnumToStringx(enum_type) << ")"); 116 116 } 117 117 … … 141 141 /*we could not find an input with the correct enum type. No defaults values were provided, 142 142 * error out: */ 143 _error 2_("could not find input with enum type " << enum_type << " (" << EnumToStringx(enum_type) << ")");143 _error_("could not find input with enum type " << enum_type << " (" << EnumToStringx(enum_type) << ")"); 144 144 } 145 145 … … 213 213 214 214 /*some checks: */ 215 if(!constrain_input) _error 2_("input " << EnumToStringx(constrain_enum) << " could not be found!");215 if(!constrain_input) _error_("input " << EnumToStringx(constrain_enum) << " could not be found!"); 216 216 217 217 /*Apply ContrainMin: */ … … 254 254 } 255 255 else{ 256 _error 2_("Input " << EnumToStringx(enumtype) << " not found");256 _error_("Input " << EnumToStringx(enumtype) << " not found"); 257 257 } 258 258 … … 275 275 } 276 276 else{ 277 _error 2_("Input " << EnumToStringx(enumtype) << " not found");277 _error_("Input " << EnumToStringx(enumtype) << " not found"); 278 278 } 279 279 … … 296 296 } 297 297 else{ 298 _error 2_("Input " << EnumToStringx(enumtype) << " not found");298 _error_("Input " << EnumToStringx(enumtype) << " not found"); 299 299 } 300 300 … … 317 317 } 318 318 else{ 319 _error 2_("Input " << EnumToStringx(enumtype) << " not found");319 _error_("Input " << EnumToStringx(enumtype) << " not found"); 320 320 } 321 321 … … 369 369 /*Make a copy of the original input: */ 370 370 original=(Input*)this->GetInput(original_enum); 371 if(!original)_error 2_("could not find input with enum: " << EnumToStringx(original_enum));371 if(!original)_error_("could not find input with enum: " << EnumToStringx(original_enum)); 372 372 copy=(Input*)original->copy(); 373 373 … … 416 416 417 417 /*some checks: */ 418 if(!xinput) _error 2_("input " << EnumToStringx(MeshXEnum) << " could not be found!");419 if(!yinput) _error 2_("input " << EnumToStringx(MeshYEnum) << " could not be found!");418 if(!xinput) _error_("input " << EnumToStringx(MeshXEnum) << " could not be found!"); 419 if(!yinput) _error_("input " << EnumToStringx(MeshYEnum) << " could not be found!"); 420 420 421 421 /*Apply AXPY: */ -
issm/trunk-jpl/src/c/Container/Observations.cpp
r12902 r13036 58 58 options->Get(&maxtrimming,"maxtrimming",+1.e+21); 59 59 options->Get(&minspacing,"minspacing",0.01); 60 if(minspacing<=0) _error 2_("minspacing must > 0");60 if(minspacing<=0) _error_("minspacing must > 0"); 61 61 62 62 /*Get Minimum box size*/ 63 63 if(options->GetOption("boxlength")){ 64 64 options->Get(&minlength,"boxlength"); 65 if(minlength<=0)_error 2_("boxlength should be a positive number");65 if(minlength<=0)_error_("boxlength should be a positive number"); 66 66 maxdepth=int(log(max(xmax-xmin,ymax-ymin)/minlength +1)/log(2.0)); 67 67 } … … 383 383 SolverxSeq(&GinvZ, Gamma,obs,n_obs); // Gamma^-1 Z 384 384 #else 385 _error 2_("GSL is required");385 _error_("GSL is required"); 386 386 #endif 387 387 -
issm/trunk-jpl/src/c/Container/Options.cpp
r12493 r13036 47 47 48 48 /*Also, check the option name*/ 49 if(!in_option->name) _error 2_("input option has an empty name");50 if(strchr(in_option->name,'.')) _error 2_("Option \"" << in_option->name << "\" has a protected character \".\"");51 if(strchr(in_option->name,'[')) _error 2_("Option \"" << in_option->name << "\" has a protected character \"[\"");52 if(strchr(in_option->name,']')) _error 2_("Option \"" << in_option->name << "\" has a protected character \"]\"");49 if(!in_option->name) _error_("input option has an empty name"); 50 if(strchr(in_option->name,'.')) _error_("Option \"" << in_option->name << "\" has a protected character \".\""); 51 if(strchr(in_option->name,'[')) _error_("Option \"" << in_option->name << "\" has a protected character \"[\""); 52 if(strchr(in_option->name,']')) _error_("Option \"" << in_option->name << "\" has a protected character \"]\""); 53 53 54 54 /*Finally, check that no option of the same name already exists in the dataset*/ … … 57 57 option=(Option*)(*object); 58 58 if (!strcmp(option->name,in_option->name)){ 59 _error 2_("Options \"" << in_option->name << "\" found multiple times");59 _error_("Options \"" << in_option->name << "\" found multiple times"); 60 60 break; 61 61 } … … 83 83 /*Else, the Option does not exist, no default provided*/ 84 84 else{ 85 _error 2_("option of name \"" << name << "\" not found, and no default value has been provided");85 _error_("option of name \"" << name << "\" not found, and no default value has been provided"); 86 86 } 87 87 } … … 121 121 /*Else, the Option does not exist, no default provided*/ 122 122 else{ 123 _error 2_("option of name \"" << name << "\" not found, and no default value has been provided");123 _error_("option of name \"" << name << "\" not found, and no default value has been provided"); 124 124 } 125 125 } … … 159 159 /*Else, the Option does not exist, no default provided*/ 160 160 else{ 161 _error 2_("option of name \"" << name << "\" not found, and no default value has been provided");161 _error_("option of name \"" << name << "\" not found, and no default value has been provided"); 162 162 } 163 163 } … … 199 199 /*Else, the Option does not exist, no default provided*/ 200 200 else{ 201 _error 2_("option of name \"" << name << "\" not found, and no default value has been provided");201 _error_("option of name \"" << name << "\" not found, and no default value has been provided"); 202 202 } 203 203 … … 264 264 /*Else: not supported*/ 265 265 else{ 266 _error 2_("Cannot recover field \"" << name << "\" for an option of type " << EnumToStringx(option->ObjectEnum()));266 _error_("Cannot recover field \"" << name << "\" for an option of type " << EnumToStringx(option->ObjectEnum())); 267 267 } 268 268 } … … 290 290 /*Else, the Option does not exist, no default provided*/ 291 291 else{ 292 _error 2_("option of name \"" << name << "\" not found, and no default value has been provided");292 _error_("option of name \"" << name << "\" not found, and no default value has been provided"); 293 293 } 294 294 } … … 324 324 /*Else: not supported*/ 325 325 else{ 326 _error 2_("Cannot recover field \"" << name << "\" for an option of type " << EnumToStringx(option->ObjectEnum()));326 _error_("Cannot recover field \"" << name << "\" for an option of type " << EnumToStringx(option->ObjectEnum())); 327 327 } 328 328 } -
issm/trunk-jpl/src/c/Container/Parameters.cpp
r12746 r13036 65 65 } 66 66 } 67 _error 2_("could not find parameter " << EnumToStringx(enum_type));67 _error_("could not find parameter " << EnumToStringx(enum_type)); 68 68 } 69 69 /*}}}*/ … … 82 82 } 83 83 } 84 _error 2_("could not find parameter " << EnumToStringx(enum_type));84 _error_("could not find parameter " << EnumToStringx(enum_type)); 85 85 } 86 86 /*}}}*/ … … 99 99 } 100 100 } 101 _error 2_("could not find parameter " << EnumToStringx(enum_type));101 _error_("could not find parameter " << EnumToStringx(enum_type)); 102 102 } 103 103 /*}}}*/ … … 116 116 } 117 117 } 118 _error 2_("could not find parameter " << EnumToStringx(enum_type));118 _error_("could not find parameter " << EnumToStringx(enum_type)); 119 119 } 120 120 /*}}}*/ … … 133 133 } 134 134 } 135 _error 2_("could not find parameter " << EnumToStringx(enum_type));135 _error_("could not find parameter " << EnumToStringx(enum_type)); 136 136 137 137 } … … 151 151 } 152 152 } 153 _error 2_("could not find parameter " << EnumToStringx(enum_type));153 _error_("could not find parameter " << EnumToStringx(enum_type)); 154 154 155 155 } … … 169 169 } 170 170 } 171 _error 2_("could not find parameter " << EnumToStringx(enum_type));171 _error_("could not find parameter " << EnumToStringx(enum_type)); 172 172 173 173 } … … 187 187 } 188 188 } 189 _error 2_("could not find parameter " << EnumToStringx(enum_type));189 _error_("could not find parameter " << EnumToStringx(enum_type)); 190 190 191 191 } … … 205 205 } 206 206 } 207 _error 2_("could not find parameter " << EnumToStringx(enum_type));207 _error_("could not find parameter " << EnumToStringx(enum_type)); 208 208 209 209 } … … 223 223 } 224 224 } 225 _error 2_("could not find parameter " << EnumToStringx(enum_type));225 _error_("could not find parameter " << EnumToStringx(enum_type)); 226 226 227 227 } … … 241 241 } 242 242 } 243 _error 2_("could not find parameter " << EnumToStringx(enum_type));243 _error_("could not find parameter " << EnumToStringx(enum_type)); 244 244 } 245 245 /*}}}*/ … … 258 258 } 259 259 } 260 _error 2_("could not find parameter " << EnumToStringx(enum_type));260 _error_("could not find parameter " << EnumToStringx(enum_type)); 261 261 262 262 } … … 276 276 } 277 277 } 278 _error 2_("could not find parameter " << EnumToStringx(enum_type));278 _error_("could not find parameter " << EnumToStringx(enum_type)); 279 279 280 280 } … … 294 294 } 295 295 } 296 _error 2_("could not find parameter " << EnumToStringx(enum_type));296 _error_("could not find parameter " << EnumToStringx(enum_type)); 297 297 } 298 298 /*}}}*/ -
issm/trunk-jpl/src/c/classes/DofIndexing.cpp
r12832 r13036 143 143 else this->sdoflist=NULL; 144 144 } 145 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");145 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 146 146 } 147 147 /*}}}*/ -
issm/trunk-jpl/src/c/classes/FemModel.cpp
r12832 r13036 129 129 } 130 130 if(found!=-1) analysis_counter=found; 131 else _error 2_("Could not find alias for analysis_type " << EnumToStringx(configuration_type) << " in list of FemModel analyses");131 else _error_("Could not find alias for analysis_type " << EnumToStringx(configuration_type) << " in list of FemModel analyses"); 132 132 133 133 /*Now, plug analysis_counter and analysis_type inside the parameters: */ -
issm/trunk-jpl/src/c/classes/Hook.cpp
r12832 r13036 185 185 this->objects[i]=(Object*)dataset->GetObjectById(this->offsets+i,this->ids[i]); //remember the offset for later on. 186 186 /*check the id is correct!: */ 187 if (this->objects[i]->Id()!=this->ids[i]) _error 2_("wrong id: " << this->objects[i]->Id() << " vs " << this->ids[i] << " in resolved pointer!");187 if (this->objects[i]->Id()!=this->ids[i]) _error_("wrong id: " << this->objects[i]->Id() << " vs " << this->ids[i] << " in resolved pointer!"); 188 188 } 189 189 } … … 194 194 195 195 /*first, check that we only have one T object in our object list: */ 196 if (this->num!=1) _error 2_("trying to delivery a single hook object when hook holds " << this->num << " objects" << "\n");196 if (this->num!=1) _error_("trying to delivery a single hook object when hook holds " << this->num << " objects" << "\n"); 197 197 198 198 /*check NULL: */ 199 if (this->objects==NULL) _error 2_("hook is not pointing to any object, objects pointer is NULL");199 if (this->objects==NULL) _error_("hook is not pointing to any object, objects pointer is NULL"); 200 200 201 201 return *objects; … … 246 246 247 247 /*Else, check that we are requesting a half of num*/ 248 if (numindices>this->num) _error 2_("Cannot spawn hook with " << numindices << " objects from a Hook of " << this->num << " objects");248 if (numindices>this->num) _error_("Cannot spawn hook with " << numindices << " objects from a Hook of " << this->num << " objects"); 249 249 250 250 /*go pickup the correct objects, ids and offsets :*/ 251 251 output->num=numindices; 252 if(output->num<1) _error 2_("Trying to spawn an empty ElementProperties!");252 if(output->num<1) _error_("Trying to spawn an empty ElementProperties!"); 253 253 254 254 output->objects=xNew<Object*>(output->num); -
issm/trunk-jpl/src/c/classes/IoModel.cpp
r12832 r13036 110 110 /*Get first Enum*/ 111 111 if(fread(&record_enum,sizeof(int),1,this->fid)==0){ 112 _error 2_("Marshalled file is empty");112 _error_("Marshalled file is empty"); 113 113 } 114 114 else{ … … 128 128 _printLine_("========================================================================="); 129 129 _printLine_(""); 130 _error 2_("Enums not consistent (See error message above)");130 _error_("Enums not consistent (See error message above)"); 131 131 } 132 132 } … … 177 177 /*Find constant*/ 178 178 Param* param=(Param*)this->constants->FindParamObject(constant_enum); 179 if(!param) _error 2_("Constant " << EnumToStringx(constant_enum) << " not found in iomodel");179 if(!param) _error_("Constant " << EnumToStringx(constant_enum) << " not found in iomodel"); 180 180 181 181 return (Param*)param->copy(); … … 266 266 case 1: 267 267 /*Read the boolean and broadcast it to other cpus:*/ 268 if(fread(&booleanint,sizeof(int),1,this->fid)!=1) _error 2_("could not read boolean ");268 if(fread(&booleanint,sizeof(int),1,this->fid)!=1) _error_("could not read boolean "); 269 269 #ifdef _HAVE_MPI_ 270 270 MPI_Bcast(&booleanint,1,MPI_INT,0,MPI_COMM_WORLD); … … 277 277 case 2: 278 278 /*Read the integer and broadcast it to other cpus:*/ 279 if(fread(&integer,sizeof(int),1,this->fid)!=1) _error 2_("could not read integer ");279 if(fread(&integer,sizeof(int),1,this->fid)!=1) _error_("could not read integer "); 280 280 #ifdef _HAVE_MPI_ 281 281 MPI_Bcast(&integer,1,MPI_INT,0,MPI_COMM_WORLD); … … 288 288 case 3: 289 289 /*Read the scalar and broadcast it to other cpus:*/ 290 if(fread(&scalar,sizeof(IssmPDouble),1,this->fid)!=1) _error 2_("could not read scalar ");290 if(fread(&scalar,sizeof(IssmPDouble),1,this->fid)!=1) _error_("could not read scalar "); 291 291 #ifdef _HAVE_MPI_ 292 292 MPI_Bcast(&scalar,1,MPI_DOUBLE,0,MPI_COMM_WORLD); … … 299 299 case 4: 300 300 /*We have to read a string from disk. First read the dimensions of the string, then the string: */ 301 if(fread(&string_size,sizeof(int),1,this->fid)!=1) _error 2_("could not read length of string ");301 if(fread(&string_size,sizeof(int),1,this->fid)!=1) _error_("could not read length of string "); 302 302 #ifdef _HAVE_MPI_ 303 303 MPI_Bcast(&string_size,1,MPI_INT,0,MPI_COMM_WORLD); … … 309 309 310 310 /*Read string, then broadcast: */ 311 if(fread(string,string_size*sizeof(char),1,this->fid)!=1)_error 2_(" could not read string ");311 if(fread(string,string_size*sizeof(char),1,this->fid)!=1)_error_(" could not read string "); 312 312 #ifdef _HAVE_MPI_ 313 313 MPI_Bcast(string,string_size,MPI_CHAR,0,MPI_COMM_WORLD); … … 360 360 361 361 default: 362 _error 2_("unknown record type:" << record_code);362 _error_("unknown record type:" << record_code); 363 363 break;; 364 364 } … … 428 428 429 429 default: 430 _error 2_("unknown record type:" << record_code);430 _error_("unknown record type:" << record_code); 431 431 break;; 432 432 } … … 453 453 fid=this->SetFilePointerToData(&code,NULL,data_enum); 454 454 455 if(code!=1)_error 2_("expecting a boolean for enum " << EnumToStringx(data_enum));455 if(code!=1)_error_("expecting a boolean for enum " << EnumToStringx(data_enum)); 456 456 457 457 /*We have to read a boolean from disk. */ 458 458 if(my_rank==0){ 459 if(fread(&booleanint,sizeof(int),1,fid)!=1) _error 2_("could not read boolean ");459 if(fread(&booleanint,sizeof(int),1,fid)!=1) _error_("could not read boolean "); 460 460 } 461 461 #ifdef _HAVE_MPI_ … … 482 482 fid=this->SetFilePointerToData(&code,NULL,data_enum); 483 483 484 if(code!=2)_error 2_("expecting an integer for enum " << EnumToStringx(data_enum));484 if(code!=2)_error_("expecting an integer for enum " << EnumToStringx(data_enum)); 485 485 486 486 /*We have to read a integer from disk. First read the dimensions of the integer, then the integer: */ 487 487 if(my_rank==0){ 488 if(fread(&integer,sizeof(int),1,fid)!=1) _error 2_("could not read integer ");488 if(fread(&integer,sizeof(int),1,fid)!=1) _error_("could not read integer "); 489 489 } 490 490 … … 512 512 fid=this->SetFilePointerToData(&code,NULL,data_enum); 513 513 514 if(code!=3)_error 2_("expecting a IssmDouble for enum " << EnumToStringx(data_enum));514 if(code!=3)_error_("expecting a IssmDouble for enum " << EnumToStringx(data_enum)); 515 515 516 516 /*We have to read a scalar from disk. First read the dimensions of the scalar, then the scalar: */ 517 517 if(my_rank==0){ 518 if(fread(&scalar,sizeof(IssmPDouble),1,fid)!=1)_error 2_("could not read scalar ");518 if(fread(&scalar,sizeof(IssmPDouble),1,fid)!=1)_error_("could not read scalar "); 519 519 } 520 520 #ifdef _HAVE_MPI_ … … 542 542 fid=this->SetFilePointerToData(&code,NULL,data_enum); 543 543 544 if(code!=4)_error 2_("expecting a string for enum " << EnumToStringx(data_enum));544 if(code!=4)_error_("expecting a string for enum " << EnumToStringx(data_enum)); 545 545 546 546 /*Now fetch: */ … … 548 548 /*We have to read a string from disk. First read the dimensions of the string, then the string: */ 549 549 if(my_rank==0){ 550 if(fread(&string_size,sizeof(int),1,fid)!=1) _error 2_("could not read length of string ");550 if(fread(&string_size,sizeof(int),1,fid)!=1) _error_("could not read length of string "); 551 551 } 552 552 … … 562 562 /*Read string on node 0, then broadcast: */ 563 563 if(my_rank==0){ 564 if(fread(string,string_size*sizeof(char),1,fid)!=1)_error 2_(" could not read string ");564 if(fread(string,string_size*sizeof(char),1,fid)!=1)_error_(" could not read string "); 565 565 } 566 566 #ifdef _HAVE_MPI_ … … 596 596 fid=this->SetFilePointerToData(&code,&vector_type,data_enum); 597 597 598 if((code!=5) && (code!=6) && (code!=7))_error 2_("expecting a IssmDouble, integer or boolean matrix for enum " << EnumToStringx(data_enum));598 if((code!=5) && (code!=6) && (code!=7))_error_("expecting a IssmDouble, integer or boolean matrix for enum " << EnumToStringx(data_enum)); 599 599 600 600 /*Now fetch: */ … … 603 603 /*numberofelements: */ 604 604 if(my_rank==0){ 605 if(fread(&M,sizeof(int),1,fid)!=1) _error 2_("could not read number of rows for matrix ");605 if(fread(&M,sizeof(int),1,fid)!=1) _error_("could not read number of rows for matrix "); 606 606 } 607 607 … … 611 611 612 612 if(my_rank==0){ 613 if(fread(&N,sizeof(int),1,fid)!=1) _error 2_("could not read number of columns for matrix ");613 if(fread(&N,sizeof(int),1,fid)!=1) _error_("could not read number of columns for matrix "); 614 614 } 615 615 #ifdef _HAVE_MPI_ … … 623 623 /*Read matrix on node 0, then broadcast: */ 624 624 if(my_rank==0){ 625 if(fread(matrix,M*N*sizeof(IssmPDouble),1,fid)!=1) _error 2_("could not read matrix ");625 if(fread(matrix,M*N*sizeof(IssmPDouble),1,fid)!=1) _error_("could not read matrix "); 626 626 } 627 627 … … 667 667 /*Set file pointer to beginning of the data: */ 668 668 fid=this->SetFilePointerToData(&code,&vector_type,data_enum); 669 if((code!=5) && (code!=6) && (code!=7))_error 2_("expecting a IssmDouble, integer or boolean matrix for enum " << EnumToStringx(data_enum));669 if((code!=5) && (code!=6) && (code!=7))_error_("expecting a IssmDouble, integer or boolean matrix for enum " << EnumToStringx(data_enum)); 670 670 671 671 /*Now fetch: */ … … 674 674 /*numberofelements: */ 675 675 if(my_rank==0){ 676 if(fread(&M,sizeof(int),1,fid)!=1) _error 2_("could not read number of rows for matrix ");676 if(fread(&M,sizeof(int),1,fid)!=1) _error_("could not read number of rows for matrix "); 677 677 } 678 678 #ifdef _HAVE_MPI_ … … 681 681 682 682 if(my_rank==0){ 683 if(fread(&N,sizeof(int),1,fid)!=1) _error 2_("could not read number of columns for matrix ");683 if(fread(&N,sizeof(int),1,fid)!=1) _error_("could not read number of columns for matrix "); 684 684 } 685 685 #ifdef _HAVE_MPI_ … … 693 693 /*Read matrix on node 0, then broadcast: */ 694 694 if(my_rank==0){ 695 if(fread(matrix,M*N*sizeof(IssmPDouble),1,fid)!=1) _error 2_("could not read matrix ");695 if(fread(matrix,M*N*sizeof(IssmPDouble),1,fid)!=1) _error_("could not read matrix "); 696 696 } 697 697 #ifdef _HAVE_MPI_ … … 729 729 fid=this->SetFilePointerToData(&code,NULL,data_enum); 730 730 731 if(code!=9)_error 2_("expecting a string array for enum " << EnumToStringx(data_enum));731 if(code!=9)_error_("expecting a string array for enum " << EnumToStringx(data_enum)); 732 732 733 733 /*We have to read a bunch of strings from disk. First read the number of strings, and allocate: */ 734 734 if(my_rank==0){ 735 if(fread(&numstrings,sizeof(int),1,fid)!=1) _error 2_("could not read length of string array");735 if(fread(&numstrings,sizeof(int),1,fid)!=1) _error_("could not read length of string array"); 736 736 } 737 737 #ifdef _HAVE_MPI_ … … 748 748 749 749 if(my_rank==0){ 750 if(fread(&string_size,sizeof(int),1,fid)!=1) _error 2_("could not read length of string ");750 if(fread(&string_size,sizeof(int),1,fid)!=1) _error_("could not read length of string "); 751 751 } 752 752 #ifdef _HAVE_MPI_ … … 759 759 /*Read string on node 0, then broadcast: */ 760 760 if(my_rank==0){ 761 if(fread(string,string_size*sizeof(char),1,fid)!=1)_error 2_(" could not read string ");761 if(fread(string,string_size*sizeof(char),1,fid)!=1)_error_(" could not read string "); 762 762 } 763 763 #ifdef _HAVE_MPI_ … … 800 800 /*Set file pointer to beginning of the data: */ 801 801 fid=this->SetFilePointerToData(&code,NULL,data_enum); 802 if(code!=8)_error 2_("expecting a IssmDouble mat array for enum " << EnumToStringx(data_enum));802 if(code!=8)_error_("expecting a IssmDouble mat array for enum " << EnumToStringx(data_enum)); 803 803 804 804 /*Now fetch: */ 805 805 if(my_rank==0){ 806 if(fread(&numrecords,sizeof(int),1,fid)!=1) _error 2_("could not read number of records in matrix array ");806 if(fread(&numrecords,sizeof(int),1,fid)!=1) _error_("could not read number of records in matrix array "); 807 807 } 808 808 #ifdef _HAVE_MPI_ … … 827 827 828 828 if(my_rank==0){ 829 if(fread(&M,sizeof(int),1,fid)!=1) _error 2_("could not read number of rows in " << i << "th matrix of matrix array");829 if(fread(&M,sizeof(int),1,fid)!=1) _error_("could not read number of rows in " << i << "th matrix of matrix array"); 830 830 } 831 831 #ifdef _HAVE_MPI_ … … 834 834 835 835 if(my_rank==0){ 836 if(fread(&N,sizeof(int),1,fid)!=1) _error 2_("could not read number of columns in " << i << "th matrix of matrix array");836 if(fread(&N,sizeof(int),1,fid)!=1) _error_("could not read number of columns in " << i << "th matrix of matrix array"); 837 837 } 838 838 #ifdef _HAVE_MPI_ … … 846 846 /*Read matrix on node 0, then broadcast: */ 847 847 if(my_rank==0){ 848 if(fread(matrix,M*N*sizeof(IssmPDouble),1,fid)!=1) _error 2_("could not read matrix ");848 if(fread(matrix,M*N*sizeof(IssmPDouble),1,fid)!=1) _error_("could not read matrix "); 849 849 } 850 850 … … 912 912 } 913 913 default: 914 _error 2_("Option of format " << code << " not supported yet");914 _error_("Option of format " << code << " not supported yet"); 915 915 } 916 916 … … 941 941 _assert_(dataenum<MaximumNumberOfEnums); 942 942 if(this->data[dataenum]){ 943 _error 2_("Info: trying to fetch " << EnumToStringx(dataenum) << " but previous pointer has not been freed (DeleteData has not been called)");943 _error_("Info: trying to fetch " << EnumToStringx(dataenum) << " but previous pointer has not been freed (DeleteData has not been called)"); 944 944 } 945 945 #endif … … 1141 1141 break; /*}}}*/ 1142 1142 default: /*{{{*/ 1143 _error 2_("data code " << code << " not supported yet!");1143 _error_("data code " << code << " not supported yet!"); 1144 1144 break; 1145 1145 /*}}}*/ … … 1232 1232 #ifdef _HAVE_MPI_ 1233 1233 MPI_Bcast(&found,1,MPI_INT,0,MPI_COMM_WORLD); 1234 if(!found)_error 2_("could not find data with name" << " " << EnumToStringx(data_enum) << " ");1234 if(!found)_error_("could not find data with name" << " " << EnumToStringx(data_enum) << " "); 1235 1235 #endif 1236 1236 -
issm/trunk-jpl/src/c/classes/bamg/BamgOpts.cpp
r12821 r13036 60 60 int i; 61 61 62 if (this->anisomax<1) _error 2_("'anisomax' option should be >=1");63 if (this->coeff==0) _error 2_("'coeff' should be positive");64 if (this->errg<0) _error 2_("'errg' option should be >0");65 if (this->gradation<1) _error 2_("'gradation' option should be >=1");66 if (this->Hessiantype!=0 && this->Hessiantype!=1) _error 2_("'Hessiantype' supported options are 0 and 1");67 if (this->maxnbv<3) _error 2_("'maxnbv' option should be >3");68 if (this->maxsubdiv<=1) _error 2_("'maxsubdiv' should be >1");69 if (this->Metrictype!=0 && this->Metrictype!=1 && this->Metrictype!=2) _error 2_("'Metrictype' supported options are 0, 1 and 2");70 if (this->nbjacobi<=0) _error 2_("'nbjacobi' option should be >0");71 if (this->nbsmooth<=0) _error 2_("'nbsmooth' option should be >0");62 if (this->anisomax<1) _error_("'anisomax' option should be >=1"); 63 if (this->coeff==0) _error_("'coeff' should be positive"); 64 if (this->errg<0) _error_("'errg' option should be >0"); 65 if (this->gradation<1) _error_("'gradation' option should be >=1"); 66 if (this->Hessiantype!=0 && this->Hessiantype!=1) _error_("'Hessiantype' supported options are 0 and 1"); 67 if (this->maxnbv<3) _error_("'maxnbv' option should be >3"); 68 if (this->maxsubdiv<=1) _error_("'maxsubdiv' should be >1"); 69 if (this->Metrictype!=0 && this->Metrictype!=1 && this->Metrictype!=2) _error_("'Metrictype' supported options are 0, 1 and 2"); 70 if (this->nbjacobi<=0) _error_("'nbjacobi' option should be >0"); 71 if (this->nbsmooth<=0) _error_("'nbsmooth' option should be >0"); 72 72 73 if (this->Crack!=0 && this->Crack!=1) _error 2_("'Crack' supported options are 0 and 1");74 if (this->KeepVertices!=0 && this->KeepVertices!=1) _error 2_("'KeepVertices' supported options are 0 and 1");75 if (this->geometricalmetric!=0 && this->geometricalmetric!=1) _error 2_("'geometricalmetric' supported options are 0 and 1");73 if (this->Crack!=0 && this->Crack!=1) _error_("'Crack' supported options are 0 and 1"); 74 if (this->KeepVertices!=0 && this->KeepVertices!=1) _error_("'KeepVertices' supported options are 0 and 1"); 75 if (this->geometricalmetric!=0 && this->geometricalmetric!=1) _error_("'geometricalmetric' supported options are 0 and 1"); 76 76 77 if (this->hmin<=0) _error 2_("'hmin' option should be >0");78 if (this->hmax<=0 || this->hmax<this->hmin) _error 2_("'hmax' option should be between 0 and hmin=" << this->hmin);79 if (this->hminVertices && this->hminVerticesSize[1]!=1) _error 2_("'hminVertices' should be a column");80 if (this->hmaxVertices && this->hmaxVerticesSize[1]!=1) _error 2_("'hmaxVertices' should be a column");81 if (this->hVertices && this->hVerticesSize[1]!=1) _error 2_("'hVertices' should be a column");82 if (this->metric && (this->metricSize[1]!=1 && this->metricSize[1]!=3)) _error 2_("'metric' should have either 1 (iso) or 3 (aniso) columns.");77 if (this->hmin<=0) _error_("'hmin' option should be >0"); 78 if (this->hmax<=0 || this->hmax<this->hmin) _error_("'hmax' option should be between 0 and hmin=" << this->hmin); 79 if (this->hminVertices && this->hminVerticesSize[1]!=1) _error_("'hminVertices' should be a column"); 80 if (this->hmaxVertices && this->hmaxVerticesSize[1]!=1) _error_("'hmaxVertices' should be a column"); 81 if (this->hVertices && this->hVerticesSize[1]!=1) _error_("'hVertices' should be a column"); 82 if (this->metric && (this->metricSize[1]!=1 && this->metricSize[1]!=3)) _error_("'metric' should have either 1 (iso) or 3 (aniso) columns."); 83 83 if (this->field){ 84 if (this->errSize[0]!=1 || this->errSize[1]!=this->fieldSize[1]) _error 2_("'err' should be of size " << 1 << " x " << this->fieldSize[1]);85 for (i=0;i<this->fieldSize[1];i++) {if (this->err[i]<=0) _error 2_("'err' option should be >0");};84 if (this->errSize[0]!=1 || this->errSize[1]!=this->fieldSize[1]) _error_("'err' should be of size " << 1 << " x " << this->fieldSize[1]); 85 for (i=0;i<this->fieldSize[1];i++) {if (this->err[i]<=0) _error_("'err' option should be >0");}; 86 86 } 87 87 -
issm/trunk-jpl/src/c/classes/bamg/BamgQuadtree.h
r12835 r13036 31 31 }; 32 32 /*Object functions*/ 33 void Echo() {_error 2_("not implemented yet"); };34 void DeepEcho() {_error 2_("not implemented yet"); };35 int Id() {_error 2_("not implemented yet"); };36 int MyRank() {_error 2_("not implemented yet"); };37 int ObjectEnum() {_error 2_("not implemented yet"); };38 Object *copy() {_error 2_("not implemented yet"); };33 void Echo() {_error_("not implemented yet"); }; 34 void DeepEcho() {_error_("not implemented yet"); }; 35 int Id() {_error_("not implemented yet"); }; 36 int MyRank() {_error_("not implemented yet"); }; 37 int ObjectEnum() {_error_("not implemented yet"); }; 38 Object *copy() {_error_("not implemented yet"); }; 39 39 }; 40 40 -
issm/trunk-jpl/src/c/classes/bamg/BamgVertex.cpp
r12821 r13036 76 76 } 77 77 else{ 78 _error 2_("Metrictype " << Metrictype << " not supported yet (use 0,1 or 2(default))");78 _error_("Metrictype " << Metrictype << " not supported yet (use 0,1 or 2(default))"); 79 79 } 80 80 … … 146 146 j = NextEdge[jc]; 147 147 if (k>=2000){ 148 _error 2_("k>=2000 (Maximum number of iterations reached)");148 _error_("k>=2000 (Maximum number of iterations reached)"); 149 149 } 150 150 } while ( tbegin != tria); … … 213 213 j = NextEdge[jc]; 214 214 if (k>=2000){ 215 _error 2_("k>=2000");215 _error_("k>=2000"); 216 216 } 217 217 }while ( tbegin != tria); -
issm/trunk-jpl/src/c/classes/bamg/Edge.cpp
r12821 r13036 45 45 46 46 /*some shecks*/ 47 if (!(adj[0]==&e || adj[1]==&e)){ _error 2_("Intersection bug"); }47 if (!(adj[0]==&e || adj[1]==&e)){ _error_("Intersection bug"); } 48 48 _assert_(adj[0]==&e || adj[1]==&e); 49 49 -
issm/trunk-jpl/src/c/classes/bamg/Geometry.cpp
r12821 r13036 76 76 77 77 //some checks 78 if (bamggeom->Vertices==NULL) _error 2_("the domain provided does not contain any vertex");79 if (bamggeom->Edges==NULL) _error 2_("the domain provided does not contain any edge");78 if (bamggeom->Vertices==NULL) _error_("the domain provided does not contain any vertex"); 79 if (bamggeom->Edges==NULL) _error_("the domain provided does not contain any edge"); 80 80 81 81 //Vertices 82 82 if (bamggeom->Vertices){ 83 83 if(verbose>5) _printLine_(" processing Vertices"); 84 if (bamggeom->VerticesSize[1]!=3) _error 2_("Vertices should have 3 columns");84 if (bamggeom->VerticesSize[1]!=3) _error_("Vertices should have 3 columns"); 85 85 vertices = new GeomVertex[nbv]; 86 86 for (i=0;i<nbv;i++) { … … 115 115 */ 116 116 coefIcoor=(MaxICoor)/(Max(pmax.x-pmin.x,pmax.y-pmin.y)); 117 if(coefIcoor<=0) _error 2_("coefIcoor should be positive");117 if(coefIcoor<=0) _error_("coefIcoor should be positive"); 118 118 } 119 119 else{ 120 _error 2_("No BamgVertex provided");120 _error_("No BamgVertex provided"); 121 121 } 122 122 … … 127 127 128 128 if(verbose>5) _printLine_(" processing Edges"); 129 if (bamggeom->EdgesSize[1]!=3) _error 2_("Edges should have 3 columns");129 if (bamggeom->EdgesSize[1]!=3) _error_("Edges should have 3 columns"); 130 130 edges = new GeomEdge[nbe]; 131 131 … … 176 176 } 177 177 else{ 178 _error 2_("No edges provided");178 _error_("No edges provided"); 179 179 } 180 180 … … 206 206 if (bamggeom->TangentAtEdges){ 207 207 if(verbose>5) _printString_(" processing TangentAtEdges"); 208 if (bamggeom->TangentAtEdgesSize[1]!=4) _error 2_("TangentAtEdges should have 4 columns");208 if (bamggeom->TangentAtEdgesSize[1]!=4) _error_("TangentAtEdges should have 4 columns"); 209 209 int n,i,j,k; 210 210 R2 tg; … … 216 216 tg.x=bamggeom->TangentAtEdges[k*4+2]; 217 217 tg.y=bamggeom->TangentAtEdges[k*4+3]; 218 if (i<0 || i>=nbe) _error 2_("TangentAtEdges first index exceeds matrix dimension");219 if (j!=0 && j!=1) _error 2_("TangentAtEdges second index should be 1 or 2 only");218 if (i<0 || i>=nbe) _error_("TangentAtEdges first index exceeds matrix dimension"); 219 if (j!=0 && j!=1) _error_("TangentAtEdges second index should be 1 or 2 only"); 220 220 edges[i].tg[j] = tg; 221 221 } … … 225 225 if(bamggeom->Corners){ 226 226 if(verbose>5) _printString_(" processing Corners"); 227 if (bamggeom->CornersSize[1]!=1) _error 2_("Corners should have 1 column");227 if (bamggeom->CornersSize[1]!=1) _error_("Corners should have 1 column"); 228 228 n=bamggeom->CornersSize[0]; 229 229 for (i=0;i<n;i++) { 230 230 j=(int)bamggeom->Corners[i]-1; //for C indexing 231 if (j>nbv-1 || j<0) _error 2_("Bad corner definition: should in [0 " << nbv << "]");231 if (j>nbv-1 || j<0) _error_("Bad corner definition: should in [0 " << nbv << "]"); 232 232 /*Required => at the same time SetRequired and SetCorner*/ 233 233 vertices[j].SetCorner(); … … 239 239 if(bamggeom->RequiredVertices){ 240 240 if(verbose>5) _printLine_(" processing RequiredVertices"); 241 if (bamggeom->RequiredVerticesSize[1]!=1) _error 2_("RequiredVertices should have 1 column");241 if (bamggeom->RequiredVerticesSize[1]!=1) _error_("RequiredVertices should have 1 column"); 242 242 n=bamggeom->RequiredVerticesSize[0]; 243 243 for (i=0;i<n;i++) { 244 244 j=(int)bamggeom->RequiredVertices[i]-1; //for C indexing 245 if (j>nbv-1 || j<0) _error 2_("Bad RequiredVerticess definition: should in [0 " << nbv << "]");245 if (j>nbv-1 || j<0) _error_("Bad RequiredVerticess definition: should in [0 " << nbv << "]"); 246 246 vertices[j].SetRequired(); 247 247 } … … 251 251 if(bamggeom->RequiredEdges){ 252 252 if(verbose>5) _printLine_(" processing RequiredEdges"); 253 if (bamggeom->RequiredEdgesSize[1]!=1) _error 2_("RequiredEdges should have 1 column");253 if (bamggeom->RequiredEdgesSize[1]!=1) _error_("RequiredEdges should have 1 column"); 254 254 n=bamggeom->RequiredEdgesSize[0]; 255 255 for (i=0;i<n;i++) { 256 256 j=(int)bamggeom->RequiredEdges[i]-1; //for C indexing 257 if (j>nbe-1 || j<0) _error 2_("Bad RequiredEdges definition: should in [0 " << nbe << "]");257 if (j>nbe-1 || j<0) _error_("Bad RequiredEdges definition: should in [0 " << nbe << "]"); 258 258 edges[j].SetRequired(); 259 259 } … … 263 263 if(bamggeom->SubDomains){ 264 264 if(verbose>5) _printLine_(" processing SubDomains"); 265 if (bamggeom->SubDomainsSize[1]!=4) _error 2_("SubDomains should have 4 columns");265 if (bamggeom->SubDomainsSize[1]!=4) _error_("SubDomains should have 4 columns"); 266 266 nbsubdomains=bamggeom->SubDomainsSize[0]; 267 267 subdomains = new GeomSubDomain[nbsubdomains]; … … 271 271 i2=(int)bamggeom->SubDomains[i*4+2]; 272 272 i3=(int)bamggeom->SubDomains[i*4+3]; 273 if (i0!=2) _error 2_("Bad Subdomain definition: first number should be 2 (for Edges)");274 if (i1>nbe || i1<=0) _error 2_("Bad Subdomain definition: second number should in [1 " << nbe << "] (edge number)");273 if (i0!=2) _error_("Bad Subdomain definition: first number should be 2 (for Edges)"); 274 if (i1>nbe || i1<=0) _error_("Bad Subdomain definition: second number should in [1 " << nbe << "] (edge number)"); 275 275 subdomains[i].edge=edges + (i1-1); 276 276 subdomains[i].direction = (int) i2; … … 532 532 delete [] head_v; 533 533 delete [] eangle; 534 _error 2_("two points of the geometry are very closed to each other (see reference numbers above)");534 _error_("two points of the geometry are very closed to each other (see reference numbers above)"); 535 535 } 536 536 … … 610 610 delete [] head_v; 611 611 delete [] eangle; 612 _error 2_("Length of edge " << i << " is 0");612 _error_("Length of edge " << i << " is 0"); 613 613 } 614 614 //compute angle in [-Pi Pi] … … 704 704 long i1 = n1/2 ,j1=n1%2; 705 705 706 if( edges[i1].v[j1] != edges[i].v[j]) _error 2_("Problem while processing edges: check the edge list");706 if( edges[i1].v[j1] != edges[i].v[j]) _error_("Problem while processing edges: check the edge list"); 707 707 708 708 edges[i1].Adj[j1] = edges + i; … … 831 831 GeomEdge* on=e.GeomEdgeHook; 832 832 if (!on){ 833 _error 2_("ProjectOnCurve error message: edge provided should be on geometry");833 _error_("ProjectOnCurve error message: edge provided should be on geometry"); 834 834 } 835 835 if (!e[0].GeomEdgeHook || !e[1].GeomEdgeHook){ 836 _error 2_("ProjectOnCurve error message: at least one of the vertex of the edge provided is not on geometry");836 _error_("ProjectOnCurve error message: at least one of the vertex of the edge provided is not on geometry"); 837 837 } 838 838 … … 875 875 _printLine_(" 2) code bug : be sure that we call Mesh::SetVertexFieldOn() before"); 876 876 _printLine_("To solve the problem do a coarsening of the geometrical mesh or change the constant value of mxe (dangerous)"); 877 _error 2_("see above");877 _error_("see above"); 878 878 } 879 879 NbTry++; … … 895 895 _printLine_(" 2) code bug : be sure that we call Mesh::SetVertexFieldOn() before"); 896 896 _printLine_("To solve the problem do a coarsening of the geometrical mesh or change the constant value of mxe (dangerous)"); 897 _error 2_("see above");897 _error_("see above"); 898 898 } 899 899 GeomEdge* tmpge = eg1; -
issm/trunk-jpl/src/c/classes/bamg/ListofIntersectionTriangles.cpp
r12821 r13036 38 38 // check Size 39 39 if (Size<=0){ 40 _error 2_("Size<=0");40 _error_("Size<=0"); 41 41 } 42 42 … … 268 268 k=(*t)(0) ? (( (*t)(1) ? ( (*t)(2) ? -1 : 2) : 1 )) : 0; 269 269 if (k<0){ 270 _error 2_("k<0");270 _error_("k<0"); 271 271 } 272 272 ocut = OppositeEdge[k]; … … 312 312 double dij = detj-deti; 313 313 if (i+j+k != 0 + 1 +2){ 314 _error 2_("i+j+k != 0 + 1 +2");314 _error_("i+j+k != 0 + 1 +2"); 315 315 } 316 316 ba[j] = detj/dij; … … 384 384 } 385 385 else { 386 _error 2_("Bug Split Edge");386 _error_("Bug Split Edge"); 387 387 } 388 388 } -
issm/trunk-jpl/src/c/classes/bamg/ListofIntersectionTriangles.h
r12821 r13036 34 34 double c01=lEnd-lBegin, c0=(lEnd-s)/c01, c1=(s-lBegin)/c01; 35 35 if (lBegin>s || s>lEnd){ 36 _error 2_("lBegin>s || s>lEnd");36 _error_("lBegin>s || s>lEnd"); 37 37 } 38 38 return e->F(sBegin*c0+sEnd*c1); -
issm/trunk-jpl/src/c/classes/bamg/Mesh.cpp
r12934 r13036 117 117 delete [] kk; 118 118 delete [] refv; 119 _error 2_("imaxnbv != nbv");119 _error_("imaxnbv != nbv"); 120 120 } 121 121 for (i=0;i<Tho.nbt;i++) … … 128 128 if (i0<0 || i1<0 || i2<0){ 129 129 delete [] refv; 130 _error 2_("i0<0 || i1<0 || i2< 0");130 _error_("i0<0 || i1<0 || i2< 0"); 131 131 } 132 132 if (i0>=Tho.nbv || i1>=Tho.nbv || i2>=Tho.nbv){ 133 _error 2_("i0>=Tho.nbv || i1>=Tho.nbv || i2>=Tho.nbv");133 _error_("i0>=Tho.nbv || i1>=Tho.nbv || i2>=Tho.nbv"); 134 134 } 135 135 triangles[nbt] = Triangle(this,kk[i0],kk[i1],kk[i2]); … … 138 138 } 139 139 if (kt!=nbt){ 140 _error 2_("kt!=nbt");140 _error_("kt!=nbt"); 141 141 } 142 142 if (nbt==0 && nbv==0) { 143 _error 2_("All triangles have been removed");143 _error_("All triangles have been removed"); 144 144 } 145 145 delete [] kk; … … 153 153 154 154 if (!nbsubdomains){ 155 _error 2_("nbsubdomains==0");155 _error_("nbsubdomains==0"); 156 156 } 157 157 if (!subdomains[0].head || !subdomains[0].head->link){ 158 _error 2_("!subdomains[0].head || !subdomains[0].head->link");158 _error_("!subdomains[0].head || !subdomains[0].head->link"); 159 159 } 160 160 … … 323 323 } 324 324 } 325 if(isorphan) _error 2_("Orphan found in mesh, see ids above");325 if(isorphan) _error_("Orphan found in mesh, see ids above"); 326 326 327 327 /*Clean up*/ … … 362 362 } 363 363 else{ 364 if(verbose>5) _error 2_("no Vertices found in the initial mesh");364 if(verbose>5) _error_("no Vertices found in the initial mesh"); 365 365 } 366 366 … … 380 380 } 381 381 else{ 382 if(verbose>5) _error 2_("no Triangles found in the initial mesh");382 if(verbose>5) _error_("no Triangles found in the initial mesh"); 383 383 } 384 384 … … 506 506 //Check value 507 507 if(!(i>=0 && j>=0 && i<nbe && j<Gh.nbe)) { 508 _error 2_("ReadMesh error: EdgesOnGeomEdge edge provided (line " << i1+1 << ": [" << i+1 << " " << j+1 << "]) is incorrect (must be positive, [0<i<nbe=" << nbe << " 0<j<Gh.nbe=" << Gh.nbe << "]");508 _error_("ReadMesh error: EdgesOnGeomEdge edge provided (line " << i1+1 << ": [" << i+1 << " " << j+1 << "]) is incorrect (must be positive, [0<i<nbe=" << nbe << " 0<j<Gh.nbe=" << Gh.nbe << "]"); 509 509 } 510 510 edges[i].GeomEdgeHook=Gh.edges+j; … … 522 522 head=(int)bamgmesh->SubDomains[i*3+1]-1;//C indexing 523 523 direction=(int)bamgmesh->SubDomains[i*3+2]; 524 if (i3!=23) _error 2_("Bad Subdomain definition: first number should be 3");525 if (head<0 || head>=nbt) _error 2_("Bad Subdomain definition: head should in [1 " << nbt << "] (triangle number)");524 if (i3!=23) _error_("Bad Subdomain definition: first number should be 3"); 525 if (head<0 || head>=nbt) _error_("Bad Subdomain definition: head should in [1 " << nbt << "] (triangle number)"); 526 526 subdomains[i].head = triangles+head; 527 527 } … … 567 567 for (j=0;j<3;j++){ 568 568 int v=GetId(triangles[i][j]); //jth vertex of the ith triangle 569 if (k>3*nbt-1 || k<0) _error 2_("k = " << k << ", nbt = " << nbt);569 if (k>3*nbt-1 || k<0) _error_("k = " << k << ", nbt = " << nbt); 570 570 next_1[k]=head_1[v]; 571 if (v>nbv-1 || v<0) _error 2_("v = " << v << ", nbv = " << nbv);571 if (v>nbv-1 || v<0) _error_("v = " << v << ", nbv = " << nbv); 572 572 head_1[v]=k++; 573 573 connectivitysize_1[v]+=1; … … 707 707 } 708 708 if (!stop){ 709 _error 2_("Element holding segment [" << i1+1 << " " << i2+1 << "] not found...");709 _error_("Element holding segment [" << i1+1 << " " << i2+1 << "] not found..."); 710 710 } 711 711 } … … 805 805 const VertexOnGeom &v=VerticesOnGeomEdge[i]; 806 806 if (!v.OnGeomEdge()){ 807 _error 2_("A vertices supposed to be OnGeomEdge is actually not");807 _error_("A vertices supposed to be OnGeomEdge is actually not"); 808 808 } 809 809 bamgmesh->VerticesOnGeomEdge[i*3+0]=GetId((BamgVertex*)v)+1; //back to Matlab indexing … … 888 888 for (j=0;j<2;j++){ 889 889 int v=(int)bamgmesh->IssmEdges[i*i2+j]-1; //back to C indexing 890 if (k>2*i1-1 || k<0) _error 2_("Index exceed matrix dimensions (k=" << k << " not in [0 " << 2*i1-1 << "]");890 if (k>2*i1-1 || k<0) _error_("Index exceed matrix dimensions (k=" << k << " not in [0 " << 2*i1-1 << "]"); 891 891 next_2[k]=head_2[v]; 892 if (v>nbv-1 || v<0) _error 2_("Index exceed matrix dimensions (v=" << v << " not in [0 " << nbv-1 << "])");892 if (v>nbv-1 || v<0) _error_("Index exceed matrix dimensions (v=" << v << " not in [0 " << nbv-1 << "])"); 893 893 head_2[v]=k++; 894 894 connectivitysize_2[v]+=1; … … 1061 1061 //check that hmax is positive 1062 1062 if (hmax<=0){ 1063 _error 2_("hmax<=0");1063 _error_("hmax<=0"); 1064 1064 } 1065 1065 … … 1090 1090 1091 1091 if (ht<=0 || hn<=0){ 1092 _error 2_("ht<=0 || hn<=0");1092 _error_("ht<=0 || hn<=0"); 1093 1093 } 1094 1094 EigenMetric Vp(1/(ht*ht),1/(hn*hn),tg); … … 1115 1115 } 1116 1116 else{ 1117 _error 2_("Hessiantype " << Hessiantype << " not supported yet (1->use Green formula, 0-> double P2 projection)");1117 _error_("Hessiantype " << Hessiantype << " not supported yet (1->use Green formula, 0-> double P2 projection)"); 1118 1118 } 1119 1119 } … … 1159 1159 //some checks 1160 1160 if (( infvertexindex <0 ) && (detOld <0) || ( infvertexindex >=0 ) && (detOld >0) ){ 1161 _error 2_("inconsistent configuration (Contact ISSM developers)");1161 _error_("inconsistent configuration (Contact ISSM developers)"); 1162 1162 } 1163 1163 … … 1201 1201 } 1202 1202 else{ 1203 _error 2_("Cannot add a vertex more than once. Check duplicates");1203 _error_("Cannot add a vertex more than once. Check duplicates"); 1204 1204 } 1205 1205 } … … 1214 1214 tt[2]= &triangles[nbt++]; 1215 1215 1216 if (nbt>maxnbt) _error 2_("Not enough triangles");1216 if (nbt>maxnbt) _error_("Not enough triangles"); 1217 1217 1218 1218 *tt[1]=*tt[2]=*t; … … 1251 1251 1252 1252 if (!rswap) { 1253 _error 2_("swap the point s is on a edge");1253 _error_("swap the point s is on a edge"); 1254 1254 } 1255 1255 } … … 1318 1318 //check that the mesh is not empty 1319 1319 if (nbt<=0 || nbv <=0 ) { 1320 _error 2_("nbt or nbv is negative (Mesh empty?)");1320 _error_("nbt or nbv is negative (Mesh empty?)"); 1321 1321 } 1322 1322 … … 1340 1340 if (nbe != edge4->nb()){ 1341 1341 delete [] st; 1342 _error 2_("Some Double edge in the mesh, the number is " << nbe << ", nbe4=" << edge4->nb());1342 _error_("Some Double edge in the mesh, the number is " << nbe << ", nbe4=" << edge4->nb()); 1343 1343 } 1344 1344 //keep nbe in nbeold … … 1360 1360 //check that it is not an edge on boundary (should not already exist) 1361 1361 if (triangles[i].TriangleAdj(j) || triangles[st[k]/3].TriangleAdj((int) (st[k]%3))){ 1362 _error 2_("problem in Geometry reconstruction: an edge on boundary is duplicated (double element?)");1362 _error_("problem in Geometry reconstruction: an edge on boundary is duplicated (double element?)"); 1363 1363 } 1364 1364 //OK, the element is not on boundary, is belongs to 2 triangles -> build Adjacent triangles list … … 1378 1378 _printLine_("Edge " << (-st[k]+2)%3 << " of triangle " << (-st[k]+2)/3); 1379 1379 _printLine_("Edge " << triangles[(-st[k]+2)/3].NuEdgeTriangleAdj((int)((-st[k]+2)%3)) << " of triangle " << GetId(triangles[(-st[k]+2)/3].TriangleAdj((int)((-st[k]+2)%3)))); 1380 _error 2_("An edge belongs to more than 2 triangles");1380 _error_("An edge belongs to more than 2 triangles"); 1381 1381 } 1382 1382 } … … 1460 1460 //check that we have been through all edges 1461 1461 if (k!=nbe){ 1462 _error 2_("problem in edge construction process: k!=nbe (should not happen)");1462 _error_("problem in edge construction process: k!=nbe (should not happen)"); 1463 1463 } 1464 1464 //delete edgessave … … 1505 1505 //check that we have the correct vertex 1506 1506 if (v!=edges[i0 ].v[j0]){ 1507 _error 2_("v!=edges[i0 ].v[j0]: this should not happen as the vertex belongs to this edge");1507 _error_("v!=edges[i0 ].v[j0]: this should not happen as the vertex belongs to this edge"); 1508 1508 } 1509 1509 … … 1522 1522 //check that nbsubdomains is empty 1523 1523 if (nbsubdomains){ 1524 _error 2_("nbsubdomains should be 0");1524 _error_("nbsubdomains should be 0"); 1525 1525 } 1526 1526 nbsubdomains=0; … … 1591 1591 if (k!= nbsubdomains){ 1592 1592 delete [] colorT; 1593 _error 2_("k!= nbsubdomains");1593 _error_("k!= nbsubdomains"); 1594 1594 } 1595 1595 //delete colorT and st … … 1652 1652 if (Gh.coefIcoor<=0){ 1653 1653 delete [] colorV; 1654 _error 2_("Gh.coefIcoor<=0 in infered Geometry (this should not happen)");1654 _error_("Gh.coefIcoor<=0 in infered Geometry (this should not happen)"); 1655 1655 } 1656 1656 … … 1705 1705 delete [] len; 1706 1706 delete [] colorV; 1707 _error 2_("problem in Edge4 construction: k != i");1707 _error_("problem in Edge4 construction: k != i"); 1708 1708 } 1709 1709 } … … 1734 1734 } 1735 1735 else 1736 _error 2_("%i should be >=0");1736 _error_("%i should be >=0"); 1737 1737 } 1738 1738 … … 1768 1768 1769 1769 /*Check size*/ 1770 if (bamgopts->fieldSize[0] != nbv) _error 2_("'field' should have " << nbv << " rows");1770 if (bamgopts->fieldSize[0] != nbv) _error_("'field' should have " << nbv << " rows"); 1771 1771 1772 1772 //initialization of some variables … … 1973 1973 1974 1974 /*Check size*/ 1975 if (bamgopts->fieldSize[0] != nbv) _error 2_("'field' should have " << nbv << " rows");1975 if (bamgopts->fieldSize[0] != nbv) _error_("'field' should have " << nbv << " rows"); 1976 1976 1977 1977 //initialization of some variables … … 2298 2298 if (splitvertex[i1]==3 || splitvertex[i2]==3){ 2299 2299 delete [] splitvertex; 2300 _error 2_("Crossing rifts not supported yet");2300 _error_("Crossing rifts not supported yet"); 2301 2301 } 2302 2302 } … … 2376 2376 //_printLine_(element_renu[GetId(ta.t)] << " -> " << GetId((*ta.t)[0])+1 << " " << GetId((*ta.t)[1])+1 << " " << GetId((*ta.t)[2])+1 << ", edge [" << i1 << "->" << j1 << " " << i2 << "->" << j2 << "]"); 2377 2377 ta = Next(ta).Adj(); 2378 if (count++>50) _error 2_("Maximum number of iteration exceeded");2378 if (count++>50) _error_("Maximum number of iteration exceeded"); 2379 2379 }while ((tbegin != ta)); 2380 2380 } … … 2383 2383 for(i=0;i<NbCrackedEdges;i++){ 2384 2384 if (Edgeflags[i]!=2){ 2385 _error 2_("A problem occured: at least one crack edge (number " << i+1 << ") does not belong to 2 elements");2385 _error_("A problem occured: at least one crack edge (number " << i+1 << ") does not belong to 2 elements"); 2386 2386 } 2387 2387 } … … 2433 2433 } 2434 2434 if (k!=0) { 2435 _error 2_("there is " << k << " triangles of mes = 0");2435 _error_("there is " << k << " triangles of mes = 0"); 2436 2436 } 2437 2437 … … 2447 2447 if (nbswp) nbfe++; 2448 2448 if ( nbswp < 0 && k < 5){ 2449 _error 2_("Missing Edge " << i << ", v0=" << GetId(edges[i][0]) << ",v1=" << GetId(edges[i][1]));2449 _error_("Missing Edge " << i << ", v0=" << GetId(edges[i][0]) << ",v1=" << GetId(edges[i][1])); 2450 2450 } 2451 2451 } 2452 2452 2453 2453 if (k!=0) { 2454 _error 2_("There are " << k << " lost edges, the boundary might be crossing");2454 _error_("There are " << k << " lost edges, the boundary might be crossing"); 2455 2455 } 2456 2456 for (int j=0;j<nbv;j++){ … … 2534 2534 if (nbt == nbtout || !NbSubDomTot) { 2535 2535 delete [] HeapArete; 2536 _error 2_("The boundary is not close: all triangles are outside");2536 _error_("The boundary is not close: all triangles are outside"); 2537 2537 } 2538 2538 … … 2572 2572 if (k!=nbsubdomains){ 2573 2573 delete [] mark; 2574 _error 2_("k!=nbsubdomains");2574 _error_("k!=nbsubdomains"); 2575 2575 } 2576 2576 if(OutSide) … … 2662 2662 subdomains[i].head=t=ta; 2663 2663 if(t<triangles || t >= triangles+nbt || t->det < 0 || t->link == 0) { 2664 _error 2_("bad definition of SubSomain " << i);2664 _error_("bad definition of SubSomain " << i); 2665 2665 } 2666 2666 long it = GetId(t); … … 2677 2677 kkk++; 2678 2678 if (mark[GetId(tt)]>=0){ 2679 _error 2_("mark[GetId(tt)]>=0");2679 _error_("mark[GetId(tt)]>=0"); 2680 2680 } 2681 2681 mark[GetId(tt)]=i; … … 2686 2686 ta = Previous(Adj(ta)); 2687 2687 if(t == (Triangle *) ta) { 2688 _error 2_("bad definition of SubSomain " << i);2688 _error_("bad definition of SubSomain " << i); 2689 2689 } 2690 2690 } … … 2848 2848 //if i is higher than nbv, it means that all the determinants are 0, 2849 2849 //all vertices are aligned! 2850 if (++i>=nbv) _error 2_("all the vertices are aligned");2850 if (++i>=nbv) _error_("all the vertices are aligned"); 2851 2851 } 2852 2852 // exchange i et 2 in "orderedvertices" so that … … 2984 2984 long j=vj.ReferenceNumber; 2985 2985 if (&vj!=orderedvertices[j]){ 2986 _error 2_("&vj!= orderedvertices[j]");2986 _error_("&vj!= orderedvertices[j]"); 2987 2987 } 2988 2988 if(i!=j){ … … 2994 2994 if (tcvj && !tcvj->link){ 2995 2995 tcvj->Echo(); 2996 _error 2_("problem inserting point in InsertNewPoints (tcvj=" << tcvj << " and tcvj->link=" << tcvj->link << ")");2996 _error_("problem inserting point in InsertNewPoints (tcvj=" << tcvj << " and tcvj->link=" << tcvj->link << ")"); 2997 2997 } 2998 2998 quadtree->Add(vj); … … 3026 3026 3027 3027 if (!Gh.nbe){ 3028 _error 2_("!Gh.nbe");3028 _error_("!Gh.nbe"); 3029 3029 } 3030 3030 Edge **e= new (Edge* [Gh.nbe]); … … 3059 3059 } 3060 3060 } 3061 if(kk) _error 2_("See above");3061 if(kk) _error_("See above"); 3062 3062 3063 3063 return e; … … 3258 3258 //check i 3259 3259 if (i<0 || i>=nbt ){ 3260 _error 2_("Index problem in NewPoints (i=" << i << " not in [0 " << nbt-1 << "])");3260 _error_("Index problem in NewPoints (i=" << i << " not in [0 " << nbt-1 << "])"); 3261 3261 } 3262 3262 //change first_np_or_next_t[i] … … 3309 3309 } 3310 3310 if (ta.EdgeVertex(0)!=s){ 3311 _error 2_("ta.EdgeVertex(0)!=s");3311 _error_("ta.EdgeVertex(0)!=s"); 3312 3312 } 3313 3313 ta = Next(Adj(ta)); … … 3344 3344 } 3345 3345 else { 3346 _error 2_("ProjectOnCurve On BamgVertex " << BTh.GetId(vA) << " forget call to SetVertexFieldOnBTh");3346 _error_("ProjectOnCurve On BamgVertex " << BTh.GetId(vA) << " forget call to SetVertexFieldOnBTh"); 3347 3347 } 3348 3348 … … 3355 3355 } 3356 3356 else { 3357 _error 2_("ProjectOnCurve On BamgVertex " << BTh.GetId(vB) << " forget call to SetVertexFieldOnBTh");3357 _error_("ProjectOnCurve On BamgVertex " << BTh.GetId(vB) << " forget call to SetVertexFieldOnBTh"); 3358 3358 } 3359 3359 Edge * e = &BhAB; 3360 3360 if (!pA || !pB || !e){ 3361 _error 2_("!pA || !pB || !e");3361 _error_("!pA || !pB || !e"); 3362 3362 } 3363 3363 // be carefull the back ground edge e is on same geom edge … … 3365 3365 //check Is a background Mesh; 3366 3366 if (e<BTh.edges || e>=BTh.edges+BTh.nbe){ 3367 _error 2_("e<BTh.edges || e>=BTh.edges+BTh.nbe");3367 _error_("e<BTh.edges || e>=BTh.edges+BTh.nbe"); 3368 3368 } 3369 3369 // walk on BTh edge … … 3388 3388 } 3389 3389 else{ // do the search by walking 3390 _error 2_("case not supported yet");3390 _error_("case not supported yet"); 3391 3391 } 3392 3392 … … 3452 3452 3453 3453 } 3454 _error 2_("Big bug...");3454 _error_("Big bug..."); 3455 3455 return 0; // just for the compiler 3456 3456 } … … 3493 3493 } 3494 3494 if (kk != nbe){ 3495 _error 2_("There are " << kk-nbe << " double edges in the mesh");3495 _error_("There are " << kk-nbe << " double edges in the mesh"); 3496 3496 } 3497 3497 … … 3525 3525 //An edge belongs to 2 triangles 3526 3526 else { 3527 _error 2_("The edge (" << GetId(triangles[i][VerticesOfTriangularEdge[j][0]]) << " , " << GetId(triangles[i][VerticesOfTriangularEdge[j][1]]) << ") belongs to more than 2 triangles");3527 _error_("The edge (" << GetId(triangles[i][VerticesOfTriangularEdge[j][0]]) << " , " << GetId(triangles[i][VerticesOfTriangularEdge[j][1]]) << ") belongs to more than 2 triangles"); 3528 3528 } 3529 3529 } … … 3563 3563 } 3564 3564 if(k) { 3565 _error 2_(k << " boundary edges (from the geometry) are not defined as mesh edges");3565 _error_(k << " boundary edges (from the geometry) are not defined as mesh edges"); 3566 3566 } 3567 3567 … … 3590 3590 for (i=2;det(orderedvertices[0]->i,orderedvertices[1]->i,orderedvertices[i]->i)==0;) 3591 3591 if (++i>=nbvb) { 3592 _error 2_("ReconstructExistingMesh: All the vertices are aligned");3592 _error_("ReconstructExistingMesh: All the vertices are aligned"); 3593 3593 } 3594 3594 //Move this vertex (i) to the 2d position in orderedvertices … … 3650 3650 } 3651 3651 if(nbloss) { 3652 _error 2_("we lost " << nbloss << " existing edges other " << knbe);3652 _error_("we lost " << nbloss << " existing edges other " << knbe); 3653 3653 } 3654 3654 … … 3725 3725 subdomains = savesubdomains; 3726 3726 if (k) { 3727 _error 2_("number of triangles edges alone = " << k);3727 _error_("number of triangles edges alone = " << k); 3728 3728 } 3729 3729 FindSubDomain(); … … 3755 3755 3756 3756 _printLine_("This edge is on geometry and has no adjacent edge (open curve) and one of the tip is not required"); 3757 _error 2_("See above (might be cryptic...)");3757 _error_("See above (might be cryptic...)"); 3758 3758 } 3759 3759 } … … 3778 3778 t=t0=subdomains[i].head; 3779 3779 if (!t0){ // not empty sub domain 3780 _error 2_("!t0");3780 _error_("!t0"); 3781 3781 } 3782 3782 do { 3783 3783 long kt = GetId(t); 3784 3784 if (kt<0 || kt >= nbt ){ 3785 _error 2_("kt<0 || kt >= nbt");3785 _error_("kt<0 || kt >= nbt"); 3786 3786 } 3787 3787 if (renu[kt]!=-1){ 3788 _error 2_("renu[kt]!=-1");3788 _error_("renu[kt]!=-1"); 3789 3789 } 3790 3790 renu[kt]=k++; … … 3803 3803 } 3804 3804 if (k != nbt){ 3805 _error 2_("k != nbt");3805 _error_("k != nbt"); 3806 3806 } 3807 3807 // do the change on all the pointeur … … 3929 3929 coefIcoor= (MaxICoor)/(Max(pmax.x-pmin.x,pmax.y-pmin.y)); 3930 3930 if (coefIcoor<=0){ 3931 _error 2_("coefIcoor should be positive, a problem in the geometry is likely");3931 _error_("coefIcoor should be positive, a problem in the geometry is likely"); 3932 3932 } 3933 3933 … … 3965 3965 } 3966 3966 3967 if (number_of_errors) _error 2_("Fatal error: some triangles have negative areas, see above");3967 if (number_of_errors) _error_("Fatal error: some triangles have negative areas, see above"); 3968 3968 } 3969 3969 /*}}}*/ … … 4146 4146 register Triangle* t= vertices[i].t; 4147 4147 if (!t){ 4148 _error 2_("!t");4148 _error_("!t"); 4149 4149 } 4150 4150 BamgVertex & vi = vertices[i]; … … 4154 4154 ta=Previous(Adj(ta)); 4155 4155 if (vertices+i != ta.EdgeVertex(1)){ 4156 _error 2_("vertices+i != ta.EdgeVertex(1)");4156 _error_("vertices+i != ta.EdgeVertex(1)"); 4157 4157 } 4158 4158 BamgVertex & vj = *(ta.EdgeVertex(0)); … … 4160 4160 j= &vj-vertices; 4161 4161 if (j<0 || j >= nbv){ 4162 _error 2_("j<0 || j >= nbv");4162 _error_("j<0 || j >= nbv"); 4163 4163 } 4164 4164 R2 Aij = (R2) vj - (R2) vi; … … 4284 4284 // the first PB is to now a background edge between the 2 vertices 4285 4285 if (!edgesGtoB){ 4286 _error 2_("!edgesGtoB");4286 _error_("!edgesGtoB"); 4287 4287 } 4288 4288 ong= ProjectOnCurve(*edgesGtoB[Gh.GetId(edges[i].GeomEdgeHook)], … … 4356 4356 Triangle & t = triangles[i]; 4357 4357 if (!t.link){ 4358 _error 2_("!t.link");4358 _error_("!t.link"); 4359 4359 } 4360 4360 for(int j=0;j<3;j++) … … 4383 4383 || (cc=Area2( t[0].r , t[1].r , A.r )) < 0.0)){ 4384 4384 _printLine_(ke + nbvold << " not in triangle " << i << " In= " << !!t.link << " " << aa << " " << bb << " " << cc << " " << dd); 4385 _error 2_("Number of triangles with P2 interpolation Problem");4385 _error_("Number of triangles with P2 interpolation Problem"); 4386 4386 } 4387 4387 } … … 4391 4391 || (cc=Area2( tt[0].r , tt[1].r , A.r )) < 0)){ 4392 4392 _printLine_(ke + nbvold << " not in triangle " << ii << " In= " << !!tt.link << " " << aa << " " << bb << " " << cc << " " << dd); 4393 _error 2_("Number of triangles with P2 interpolation Problem");4393 _error_("Number of triangles with P2 interpolation Problem"); 4394 4394 } 4395 4395 } … … 4439 4439 } // tt 4440 4440 else 4441 _error 2_("Bug...");4441 _error_("Bug..."); 4442 4442 } // ke<0 4443 4443 else … … 4452 4452 } 4453 4453 if (nbinvisible>=2){ 4454 _error 2_("nbinvisible>=2");4454 _error_("nbinvisible>=2"); 4455 4455 } 4456 4456 switch (nbsplitedge) { … … 4464 4464 } 4465 4465 if (ksplit[i]<40){ 4466 _error 2_("ksplit[i]<40");4466 _error_("ksplit[i]<40"); 4467 4467 } 4468 4468 } … … 4481 4481 int ke=(int) (ksplit[i]%10); 4482 4482 if (kk>=7 || kk<=0){ 4483 _error 2_("kk>=7 || kk<=0");4483 _error_("kk>=7 || kk<=0"); 4484 4484 } 4485 4485 … … 4498 4498 4499 4499 if (nbmkadj>=10){ 4500 _error 2_("nbmkadj>=10");4500 _error_("nbmkadj>=10"); 4501 4501 } 4502 4502 // -------------------------- … … 4516 4516 t1=t0; 4517 4517 if (kedge[3*i+i0]<0){ 4518 _error 2_("kedge[3*i+i0]<0");4518 _error_("kedge[3*i+i0]<0"); 4519 4519 } 4520 4520 BamgVertex * v3 = vertices + kedge[3*i+k0]; … … 4532 4532 t2=t1=t0; 4533 4533 if (kedge[3*i+k1]<0){ 4534 _error 2_("kedge[3*i+k1]<0");4534 _error_("kedge[3*i+k1]<0"); 4535 4535 } 4536 4536 if (kedge[3*i+k2]<0){ 4537 _error 2_("kedge[3*i+k2]<0");4537 _error_("kedge[3*i+k2]<0"); 4538 4538 } 4539 4539 … … 4559 4559 t3=t2=t1=t0; 4560 4560 if (kedge[3*i+k0] <0 || kedge[3*i+k1]<0 || kedge[3*i+k2]<0){ 4561 _error 2_("kedge[3*i+k0] <0 || kedge[3*i+k1]<0 || kedge[3*i+k2]<0");4561 _error_("kedge[3*i+k0] <0 || kedge[3*i+k1]<0 || kedge[3*i+k2]<0"); 4562 4562 } 4563 4563 BamgVertex * v12 = vertices + kedge[3*i+k0]; … … 4633 4633 } 4634 4634 if (nbmkadj>13){// 13 = 6 + 4 + 4635 _error 2_("nbmkadj>13");4635 _error_("nbmkadj>13"); 4636 4636 } 4637 4637 … … 4759 4759 quadtree->Add(vi); 4760 4760 if (!tcvi || tcvi->det<0){// internal 4761 _error 2_("!tcvi || tcvi->det < 0");4761 _error_("!tcvi || tcvi->det < 0"); 4762 4762 } 4763 4763 AddVertex(vi,tcvi,det3); … … 4802 4802 4803 4803 /*Check that the quadtree does exist*/ 4804 if (!quadtree) _error 2_("no starting triangle provided and no quadtree available");4804 if (!quadtree) _error_("no starting triangle provided and no quadtree available"); 4805 4805 4806 4806 /*Call NearestVertex*/ … … 4808 4808 4809 4809 /*Check output (Vertex a)*/ 4810 if (!a) _error 2_("problem while trying to find nearest vertex from a given point. No output found");4811 if (!a->t) _error 2_("no triangle is associated to vertex number " << GetId(a)+1 << " (orphan?)");4810 if (!a) _error_("problem while trying to find nearest vertex from a given point. No output found"); 4811 if (!a->t) _error_("no triangle is associated to vertex number " << GetId(a)+1 << " (orphan?)"); 4812 4812 _assert_(a>=vertices && a<vertices+nbv); 4813 4813 … … 4844 4844 4845 4845 /*Increase counter*/ 4846 if (++counter>=10000) _error 2_("Maximum number of iteration reached (threshold = " << counter << ").");4846 if (++counter>=10000) _error_("Maximum number of iteration reached (threshold = " << counter << ")."); 4847 4847 4848 4848 j= OppositeVertex[jj]; … … 4908 4908 4909 4909 //check that the subdomain is not empty 4910 if (!t0){ _error 2_("At least one subdomain is empty");}4910 if (!t0){ _error_("At least one subdomain is empty");} 4911 4911 4912 4912 //loop … … 4991 4991 //allocate 4992 4992 VerticesOnGeomVertex = new VertexOnGeom[NbVerticesOnGeomVertex]; 4993 if(NbVerticesOnGeomVertex >= maxnbv) _error 2_("too many vertices on geometry: " << NbVerticesOnGeomVertex << " >= " << maxnbv);4993 if(NbVerticesOnGeomVertex >= maxnbv) _error_("too many vertices on geometry: " << NbVerticesOnGeomVertex << " >= " << maxnbv); 4994 4994 _assert_(nbv==0); 4995 4995 //Build VerticesOnGeomVertex … … 5080 5080 NbNewPoints=0; 5081 5081 NbEdgeCurve=0; 5082 if (nbvend>=maxnbv) _error 2_("maximum number of vertices too low! Check the domain outline or increase maxnbv");5082 if (nbvend>=maxnbv) _error_("maximum number of vertices too low! Check the domain outline or increase maxnbv"); 5083 5083 lcurve =0; 5084 5084 s = lstep; //-1 initially, then length of each sub edge … … 5322 5322 printf("\n"); 5323 5323 if(NbVerticesOnGeomVertex >= maxnbv){ 5324 _error 2_("too many vertices on geometry: " << NbVerticesOnGeomVertex << " >= " << maxnbv);5324 _error_("too many vertices on geometry: " << NbVerticesOnGeomVertex << " >= " << maxnbv); 5325 5325 } 5326 5326 … … 5393 5393 if (bfind!=Gh.nbcurves){ 5394 5394 delete [] bcurve; 5395 _error 2_("problem generating number of curves (" << Gh.nbcurves << " found in the geometry but " << bfind << " curve found in the mesh)");5395 _error_("problem generating number of curves (" << Gh.nbcurves << " found in the geometry but " << bfind << " curve found in the mesh)"); 5396 5396 } 5397 5397 … … 5492 5492 double se= (sNew-L0)/LAB; 5493 5493 if (se<0 || se>=1.000000001){ 5494 _error 2_("Problem creating point on a boundary: se=" << se << " should be in [0 1]");5494 _error_("Problem creating point on a boundary: se=" << se << " should be in [0 1]"); 5495 5495 } 5496 5496 se = abscisseInterpole(v0.m,v1.m,AB,se,1); 5497 5497 if (se<0 || se>1){ 5498 _error 2_("Problem creating point on a boundary: se=" << se << " should be in [0 1]");5498 _error_("Problem creating point on a boundary: se=" << se << " should be in [0 1]"); 5499 5499 } 5500 5500 se = k1 ? se : 1. - se; … … 5528 5528 } 5529 5529 if (!ee.adj[k1]) { 5530 _error 2_("adj edge " << BTh.GetId(ee) << ", nbe=" << nbe << ", Gh.vertices=" << Gh.vertices);5530 _error_("adj edge " << BTh.GetId(ee) << ", nbe=" << nbe << ", Gh.vertices=" << Gh.vertices); 5531 5531 } 5532 5532 pe = ee.adj[k1]; // next edge … … 5566 5566 if(step==0){ 5567 5567 if(nbv+NbOfNewPoints > maxnbv) { 5568 _error 2_("too many vertices on geometry: " << nbv+NbOfNewPoints << " >= " << maxnbv);5568 _error_("too many vertices on geometry: " << nbv+NbOfNewPoints << " >= " << maxnbv); 5569 5569 } 5570 5570 edges = new Edge[NbOfNewEdge]; … … 5611 5611 int dir=0; 5612 5612 if (k<0){ 5613 _error 2_("k<0");5613 _error_("k<0"); 5614 5614 } 5615 5615 int kkk=0; … … 5619 5619 kkk++; 5620 5620 if (kkk>=1000){ 5621 _error 2_("kkk>=1000");5621 _error_("kkk>=1000"); 5622 5622 } 5623 5623 BamgVertex &vI = *edge.EdgeVertex(0); … … 5636 5636 double IJ2 = IJ_IA + IJ_AJ; 5637 5637 if (IJ2==0){ 5638 _error 2_("IJ2==0");5638 _error_("IJ2==0"); 5639 5639 } 5640 5640 a= IJ_AJ/IJ2; … … 5650 5650 int NbSwap =0; 5651 5651 if (!a.t || !b.t){ // the 2 vertex is in a mesh 5652 _error 2_("!a.t || !b.t");5652 _error_("!a.t || !b.t"); 5653 5653 } 5654 5654 int k=0; … … 5667 5667 vbegin =v2; 5668 5668 if (!v2){ 5669 _error 2_("!v2");5669 _error_("!v2"); 5670 5670 } 5671 5671 det2 = det(*v2,a,b); … … 5684 5684 tc = Previous(tc); 5685 5685 if (!v1 || !v2){ 5686 _error 2_("!v1 || !v2");5686 _error_("!v1 || !v2"); 5687 5687 } 5688 5688 Icoor2 detss = 0,l=0,ks; 5689 5689 while ((ks=SwapForForcingEdge( va, vb, tc, detss, det1,det2,NbSwap))) 5690 5690 if(l++ > 10000000) { 5691 _error 2_("Loop in forcing Egde, nb de swap=" << NbSwap << ", nb of try swap (" << l << ") too big");5691 _error_("Loop in forcing Egde, nb de swap=" << NbSwap << ", nb of try swap (" << l << ") too big"); 5692 5692 } 5693 5693 BamgVertex *aa = tc.EdgeVertex(0), *bb = tc.EdgeVertex(1); … … 5708 5708 k++; 5709 5709 if (k>=2000){ 5710 _error 2_("k>=2000");5710 _error_("k>=2000"); 5711 5711 } 5712 5712 if ( vbegin == v2 ) return -1;// error … … 5780 5780 short a1=tt1,a2=tt2;// les 2 numero de l arete dans les 2 triangles 5781 5781 if ( a1<0 || a1>=3 ){ 5782 _error 2_("a1<0 || a1>=3");5782 _error_("a1<0 || a1>=3"); 5783 5783 } 5784 5784 … … 5792 5792 Icoor2 detT = det1+det2; 5793 5793 if ((det1<=0 ) || (det2<=0)){ 5794 _error 2_("(det1<=0 ) || (det2<=0)");5794 _error_("(det1<=0 ) || (det2<=0)"); 5795 5795 } 5796 5796 if ( (detsa>=0) || (detsb<=0) ){ // [a,b] cut infinite line va,bb 5797 _error 2_("(detsa>=0) || (detsb<=0)");5797 _error_("(detsa>=0) || (detsb<=0)"); 5798 5798 } 5799 5799 Icoor2 ndet1 = bamg::det(s1,sa,s2); -
issm/trunk-jpl/src/c/classes/bamg/Metric.cpp
r12821 r13036 197 197 // warning for optimisation S is in [0:0.5] not in [0:1] 198 198 if (i>=512){ 199 _error 2_("i>=512");199 _error_("i>=512"); 200 200 } 201 201 LastMetricInterpole.lab=l; … … 345 345 } 346 346 if (r>1 || r<0){ 347 _error 2_("r>1 || r<0");347 _error_("r>1 || r<0"); 348 348 } 349 349 return r ; -
issm/trunk-jpl/src/c/classes/bamg/SetOfE4.cpp
r12821 r13036 50 50 //check that nbax <=NbOfEdges 51 51 if (nbax <=NbOfEdges ) { 52 _error 2_("SetOfEdges4::add overflow: NbOfEdges=" << NbOfEdges << " > nbax=" << nbax);52 _error_("SetOfEdges4::add overflow: NbOfEdges=" << NbOfEdges << " > nbax=" << nbax); 53 53 } 54 54 -
issm/trunk-jpl/src/c/classes/bamg/SubDomain.cpp
r12821 r13036 16 16 *this = Th.subdomains[i]; 17 17 if ( head-Th.triangles<0 || head-Th.triangles>=Th.nbt){ 18 _error 2_("head-Th.triangles<0 || head-Th.triangles>=Th.nbt");18 _error_("head-Th.triangles<0 || head-Th.triangles>=Th.nbt"); 19 19 } 20 20 head = ThNew.triangles + Th.GetId(head) ; 21 21 if (edge-Th.edges<0 || edge-Th.edges>=Th.nbe);{ 22 _error 2_("edge-Th.edges<0 || edge-Th.edges>=Th.nbe");22 _error_("edge-Th.edges<0 || edge-Th.edges>=Th.nbe"); 23 23 } 24 24 edge = ThNew.edges+ Th.GetId(edge); -
issm/trunk-jpl/src/c/classes/bamg/Triangle.cpp
r12821 r13036 19 19 long nbv = Th->nbv; 20 20 if (i<0 || j<0 || k<0){ 21 _error 2_("i<0 || j<0 || k<0");21 _error_("i<0 || j<0 || k<0"); 22 22 } 23 23 if (i>=nbv || j>=nbv || k>=nbv){ 24 _error 2_("i>=nbv || j>=nbv || k>=nbv");24 _error_("i>=nbv || j>=nbv || k>=nbv"); 25 25 } 26 26 vertices[0]=v+i; … … 173 173 //check number of iterations 174 174 if (k>=2000){ 175 _error 2_("too many iteration in Triangle::FindBoundaryEdge (k>=2000)");175 _error_("too many iteration in Triangle::FindBoundaryEdge (k>=2000)"); 176 176 } 177 177 } while (this!= t); … … 213 213 do { 214 214 while (t->swap(j,koption)){ 215 if (k>=20000) _error 2_("k>=20000");215 if (k>=20000) _error_("k>=20000"); 216 216 NbSwap++; 217 217 k++; -
issm/trunk-jpl/src/c/classes/gauss/GaussPenta.cpp
r12832 r13036 119 119 } 120 120 else{ 121 _error 2_("Penta not supported yet");121 _error_("Penta not supported yet"); 122 122 } 123 123 … … 159 159 } 160 160 else{ 161 _error 2_("Tria not supported yet");161 _error_("Tria not supported yet"); 162 162 } 163 163 … … 221 221 } 222 222 else{ 223 _error 2_("Tria not supported yet (user provided indices " << index1 << " " << index2 << " " << index3 << " " << index4 << ")");223 _error_("Tria not supported yet (user provided indices " << index1 << " " << index2 << " " << index3 << " " << index4 << ")"); 224 224 } 225 225 … … 340 340 break; 341 341 default: 342 _error 2_("vertex index should be in [0 5]");342 _error_("vertex index should be in [0 5]"); 343 343 344 344 } … … 359 359 } 360 360 else{ 361 _error 2_("Tria not supported yet");361 _error_("Tria not supported yet"); 362 362 } 363 363 -
issm/trunk-jpl/src/c/classes/gauss/GaussTria.cpp
r12832 r13036 80 80 } 81 81 else 82 _error 2_("The 2 indices provided are not supported yet (user provided " << index1 << " and " << index2 << ")");82 _error_("The 2 indices provided are not supported yet (user provided " << index1 << " and " << index2 << ")"); 83 83 84 84 /*Initialize static fields as undefined*/ … … 178 178 } 179 179 else 180 _error 2_("The 2 indices provided are not supported yet (user provided " << index1 << " and " << index2 << ")");180 _error_("The 2 indices provided are not supported yet (user provided " << index1 << " and " << index2 << ")"); 181 181 182 182 } … … 241 241 break; 242 242 default: 243 _error 2_("vertex index should be in [0 2]");243 _error_("vertex index should be in [0 2]"); 244 244 245 245 } -
issm/trunk-jpl/src/c/classes/kriging/ExponentialVariogram.cpp
r12821 r13036 39 39 40 40 /*Checks*/ 41 if(nugget==sill) _error 2_("nugget and sill cannot be equal (constant semivariogram not allowed)");41 if(nugget==sill) _error_("nugget and sill cannot be equal (constant semivariogram not allowed)"); 42 42 } 43 43 /*}}}*/ -
issm/trunk-jpl/src/c/classes/kriging/ExponentialVariogram.h
r12821 r13036 23 23 /*Object virtual functions definitions*/ 24 24 void Echo(); 25 void DeepEcho(){_error 2_("Not implemented yet");};26 int Id(){_error 2_("Not implemented yet");};27 int MyRank(){_error 2_("Not implemented yet");};28 int ObjectEnum(){_error 2_("Not implemented yet");};29 Object* copy(){_error 2_("Not implemented yet");};25 void DeepEcho(){_error_("Not implemented yet");}; 26 int Id(){_error_("Not implemented yet");}; 27 int MyRank(){_error_("Not implemented yet");}; 28 int ObjectEnum(){_error_("Not implemented yet");}; 29 Object* copy(){_error_("Not implemented yet");}; 30 30 31 31 /*Variogram functions*/ -
issm/trunk-jpl/src/c/classes/kriging/GaussianVariogram.cpp
r12821 r13036 39 39 40 40 /*Checks*/ 41 if(nugget==sill) _error 2_("nugget and sill cannot be equal (constant semivariogram not allowed)");41 if(nugget==sill) _error_("nugget and sill cannot be equal (constant semivariogram not allowed)"); 42 42 } 43 43 /*}}}*/ -
issm/trunk-jpl/src/c/classes/kriging/GaussianVariogram.h
r12832 r13036 24 24 /*Object virtual functions definitions*/ 25 25 void Echo(); 26 void DeepEcho(){_error 2_("Not implemented yet");};27 int Id(){_error 2_("Not implemented yet");};28 int MyRank(){_error 2_("Not implemented yet");};29 int ObjectEnum(){_error 2_("Not implemented yet");};30 Object* copy(){_error 2_("Not implemented yet");};26 void DeepEcho(){_error_("Not implemented yet");}; 27 int Id(){_error_("Not implemented yet");}; 28 int MyRank(){_error_("Not implemented yet");}; 29 int ObjectEnum(){_error_("Not implemented yet");}; 30 Object* copy(){_error_("Not implemented yet");}; 31 31 32 32 /*Variogram functions*/ -
issm/trunk-jpl/src/c/classes/kriging/Observation.h
r12832 r13036 24 24 /*Object virtual functions definitions*/ 25 25 void Echo(); 26 void DeepEcho() {_error 2_("Not implemented yet"); };27 int Id() {_error 2_("Not implemented yet"); };28 int MyRank() {_error 2_("Not implemented yet"); };29 int ObjectEnum(){_error 2_("Not implemented yet"); };30 Object *copy() {_error 2_("Not implemented yet"); };26 void DeepEcho() {_error_("Not implemented yet"); }; 27 int Id() {_error_("Not implemented yet"); }; 28 int MyRank() {_error_("Not implemented yet"); }; 29 int ObjectEnum(){_error_("Not implemented yet"); }; 30 Object *copy() {_error_("Not implemented yet"); }; 31 31 32 32 /*Management*/ -
issm/trunk-jpl/src/c/classes/kriging/PowerVariogram.cpp
r12821 r13036 39 39 40 40 /*Checks*/ 41 if(power<=0 || power>=2) _error 2_("power must be betwwen 0 and 2 (0 < power < 2)");42 if(slope<=0) _error 2_("slope must be positive");41 if(power<=0 || power>=2) _error_("power must be betwwen 0 and 2 (0 < power < 2)"); 42 if(slope<=0) _error_("slope must be positive"); 43 43 } 44 44 /*}}}*/ -
issm/trunk-jpl/src/c/classes/kriging/PowerVariogram.h
r12821 r13036 23 23 /*Object virtual functions definitions*/ 24 24 void Echo(); 25 void DeepEcho(){_error 2_("Not implemented yet");};26 int Id(){_error 2_("Not implemented yet");};27 int MyRank(){_error 2_("Not implemented yet");};28 int ObjectEnum(){_error 2_("Not implemented yet");};29 Object* copy(){_error 2_("Not implemented yet");};25 void DeepEcho(){_error_("Not implemented yet");}; 26 int Id(){_error_("Not implemented yet");}; 27 int MyRank(){_error_("Not implemented yet");}; 28 int ObjectEnum(){_error_("Not implemented yet");}; 29 Object* copy(){_error_("Not implemented yet");}; 30 30 31 31 /*Variogram functions*/ -
issm/trunk-jpl/src/c/classes/kriging/Quadtree.cpp
r12821 r13036 83 83 /*FUNCTION Quadtree::Quadtree(){{{*/ 84 84 Quadtree::Quadtree(){ 85 _error 2_("Constructor not supported");85 _error_("Constructor not supported"); 86 86 87 87 } … … 248 248 } 249 249 else{ 250 _error 2_("Box is not full");250 _error_("Box is not full"); 251 251 } 252 252 }/*}}}*/ … … 397 397 break; 398 398 default: 399 _error 2_("Case " << index << " not supported");399 _error_("Case " << index << " not supported"); 400 400 } 401 401 newbox->length=master->length/2; … … 574 574 break; 575 575 default: 576 _error 2_("Case " << this->IsWithinRange(x,y,range) << " not supported");576 _error_("Case " << this->IsWithinRange(x,y,range) << " not supported"); 577 577 } 578 578 -
issm/trunk-jpl/src/c/classes/kriging/Quadtree.h
r12821 r13036 27 27 /*Object functions (Needed because the Quadtree uses a Container*/ 28 28 void Echo(); 29 void DeepEcho() {_error 2_("not implemented yet"); };30 int Id() {_error 2_("not implemented yet"); };31 int MyRank() {_error 2_("not implemented yet"); };32 int ObjectEnum(){_error 2_("not implemented yet"); };33 Object *copy() {_error 2_("not implemented yet"); };29 void DeepEcho() {_error_("not implemented yet"); }; 30 int Id() {_error_("not implemented yet"); }; 31 int MyRank() {_error_("not implemented yet"); }; 32 int ObjectEnum(){_error_("not implemented yet"); }; 33 Object *copy() {_error_("not implemented yet"); }; 34 34 35 35 /*Methods*/ -
issm/trunk-jpl/src/c/classes/kriging/SphericalVariogram.cpp
r12821 r13036 39 39 40 40 /*Checks*/ 41 if(nugget==sill) _error 2_("nugget and sill cannot be equal (constant semivariogram not allowed)");41 if(nugget==sill) _error_("nugget and sill cannot be equal (constant semivariogram not allowed)"); 42 42 } 43 43 /*}}}*/ -
issm/trunk-jpl/src/c/classes/kriging/SphericalVariogram.h
r12821 r13036 23 23 /*Object virtual functions definitions*/ 24 24 void Echo(); 25 void DeepEcho(){_error 2_("Not implemented yet");};26 int Id(){_error 2_("Not implemented yet");};27 int MyRank(){_error 2_("Not implemented yet");};28 int ObjectEnum(){_error 2_("Not implemented yet");};29 Object* copy(){_error 2_("Not implemented yet");};25 void DeepEcho(){_error_("Not implemented yet");}; 26 int Id(){_error_("Not implemented yet");}; 27 int MyRank(){_error_("Not implemented yet");}; 28 int ObjectEnum(){_error_("Not implemented yet");}; 29 Object* copy(){_error_("Not implemented yet");}; 30 30 31 31 /*Variogram functions*/ -
issm/trunk-jpl/src/c/classes/matrix/ElementMatrix.cpp
r12832 r13036 47 47 ElementMatrix::ElementMatrix(ElementMatrix* Ke){ 48 48 49 if(!Ke) _error 2_("Input Element Matrix is a NULL pointer");49 if(!Ke) _error_("Input Element Matrix is a NULL pointer"); 50 50 this->Init(Ke); 51 51 return; … … 63 63 /*If one of the two matrix is NULL, we copy the other one*/ 64 64 if(!Ke1 && !Ke2){ 65 _error 2_("Two input element matrices are NULL");65 _error_("Two input element matrices are NULL"); 66 66 } 67 67 else if(!Ke1){ … … 75 75 76 76 /*General Case: Ke1 and Ke2 are not empty*/ 77 if(!Ke1->dofsymmetrical || !Ke2->dofsymmetrical) _error 2_("merging 2 non dofsymmetrical matrices not implemented yet");77 if(!Ke1->dofsymmetrical || !Ke2->dofsymmetrical) _error_("merging 2 non dofsymmetrical matrices not implemented yet"); 78 78 79 79 /*Initialize itransformation matrix Ke[P[i]] = Ke2[i]*/ … … 295 295 } 296 296 else{ 297 _error 2_("non dofsymmetrical matrix AddToGlobal routine not support yet!");297 _error_("non dofsymmetrical matrix AddToGlobal routine not support yet!"); 298 298 } 299 299 … … 332 332 } 333 333 else{ 334 _error 2_("non dofsymmetrical matrix AddToGlobal routine not support yet!");334 _error_("non dofsymmetrical matrix AddToGlobal routine not support yet!"); 335 335 } 336 336 … … 343 343 for (int i=0;i<this->nrows;i++){ 344 344 for(int j=0;j<this->ncols;j++){ 345 if (xIsNan<IssmDouble>(this->values[i*this->ncols+j])) _error 2_("NaN found in Element Matrix");346 if (fabs(this->values[i*this->ncols+j])>1.e+50) _error 2_("Element Matrix values exceeds 1.e+50");345 if (xIsNan<IssmDouble>(this->values[i*this->ncols+j])) _error_("NaN found in Element Matrix"); 346 if (fabs(this->values[i*this->ncols+j])>1.e+50) _error_("Element Matrix values exceeds 1.e+50"); 347 347 } 348 348 } … … 365 365 /*Transpose indices*/ 366 366 if(!dofsymmetrical){ 367 _error 2_("not supported yet");367 _error_("not supported yet"); 368 368 } 369 369 … … 488 488 int i; 489 489 490 if(this->nrows!=this->ncols)_error 2_("need square matrix in input!");490 if(this->nrows!=this->ncols)_error_("need square matrix in input!"); 491 491 492 492 for(i=0;i<this->nrows;i++){ -
issm/trunk-jpl/src/c/classes/matrix/ElementVector.cpp
r12832 r13036 42 42 /*If one of the two matrix is NULL, we copy the other one*/ 43 43 if(!pe1 && !pe2){ 44 _error 2_("Two input element matrices are NULL");44 _error_("Two input element matrices are NULL"); 45 45 } 46 46 else if(!pe1){ … … 210 210 #ifdef _ISSM_DEBUG_ 211 211 for (int i=0;i<this->nrows;i++){ 212 if (xIsNan<IssmDouble>(this->values[i])) _error 2_("NaN found in Element Vector");213 if (fabs( this->values[i])>1.e+50) _error 2_("Element Vector values exceeds 1.e+50");212 if (xIsNan<IssmDouble>(this->values[i])) _error_("NaN found in Element Vector"); 213 if (fabs( this->values[i])>1.e+50) _error_("Element Vector values exceeds 1.e+50"); 214 214 } 215 215 #endif -
issm/trunk-jpl/src/c/classes/matrix/Matrix.cpp
r12987 r13036 51 51 this->pmatrix=new PetscMat(M,N); 52 52 #else 53 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");53 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 54 54 #endif 55 55 } … … 57 57 this->smatrix=new SeqMat(M,N); 58 58 } 59 else _error 2_("Matrix type: " << type << " not supported yet!");59 else _error_("Matrix type: " << type << " not supported yet!"); 60 60 61 61 } … … 74 74 this->pmatrix=new PetscMat(M,N,sparsity); 75 75 #else 76 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");76 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 77 77 #endif 78 78 } … … 80 80 this->smatrix=new SeqMat(M,N,sparsity); 81 81 } 82 else _error 2_("Matrix type: " << type << " not supported yet!");82 else _error_("Matrix type: " << type << " not supported yet!"); 83 83 } 84 84 /*}}}*/ … … 96 96 this->pmatrix=new PetscMat(serial_mat,M,N,sparsity); 97 97 #else 98 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");98 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 99 99 #endif 100 100 } … … 102 102 this->smatrix=new SeqMat(serial_mat,M,N,sparsity); 103 103 } 104 else _error 2_("Matrix type: " << type << " not supported yet!");104 else _error_("Matrix type: " << type << " not supported yet!"); 105 105 106 106 } … … 119 119 this->pmatrix=new PetscMat(M,N,connectivity,numberofdofspernode); 120 120 #else 121 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");121 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 122 122 #endif 123 123 } … … 125 125 this->smatrix=new SeqMat(M,N,connectivity,numberofdofspernode); 126 126 } 127 else _error 2_("Matrix type: " << type << " not supported yet!");127 else _error_("Matrix type: " << type << " not supported yet!"); 128 128 129 129 } … … 136 136 delete this->pmatrix; 137 137 #else 138 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");138 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 139 139 #endif 140 140 } … … 142 142 delete this->smatrix; 143 143 } 144 else _error 2_("Matrix type: " << type << " not supported yet!");144 else _error_("Matrix type: " << type << " not supported yet!"); 145 145 146 146 } … … 159 159 this->smatrix->Echo(); 160 160 } 161 else _error 2_("Matrix type: " << type << " not supported yet!");161 else _error_("Matrix type: " << type << " not supported yet!"); 162 162 163 163 } … … 175 175 } 176 176 else{ 177 _error 2_("Matrix type: " << type << " not supported yet!");177 _error_("Matrix type: " << type << " not supported yet!"); 178 178 } 179 179 } … … 192 192 norm=this->smatrix->Norm(norm_type); 193 193 } 194 else _error 2_("Matrix type: " << type << " not supported yet!");194 else _error_("Matrix type: " << type << " not supported yet!"); 195 195 196 196 return norm; … … 208 208 this->smatrix->GetSize(pM,pN); 209 209 } 210 else _error 2_("Matrix type: " << type << " not supported yet!");210 else _error_("Matrix type: " << type << " not supported yet!"); 211 211 212 212 } … … 223 223 this->smatrix->GetLocalSize(pM,pN); 224 224 } 225 else _error 2_("Matrix type: " << type << " not supported yet!");225 else _error_("Matrix type: " << type << " not supported yet!"); 226 226 227 227 } … … 238 238 this->smatrix->MatMult(X->svector,AX->svector); 239 239 } 240 else _error 2_("Matrix type: " << type << " not supported yet!");240 else _error_("Matrix type: " << type << " not supported yet!"); 241 241 242 242 } … … 257 257 output->smatrix=this->smatrix->Duplicate(); 258 258 } 259 else _error 2_("Matrix type: " << type << " not supported yet!");259 else _error_("Matrix type: " << type << " not supported yet!"); 260 260 261 261 return output; … … 275 275 output=this->smatrix->ToSerial(); 276 276 } 277 else _error 2_("Matrix type: " << type << " not supported yet!");277 else _error_("Matrix type: " << type << " not supported yet!"); 278 278 279 279 … … 292 292 this->smatrix->SetValues(m,idxm,n,idxn,values,mode); 293 293 } 294 else _error 2_("Matrix type: " << type << " not supported yet!");294 else _error_("Matrix type: " << type << " not supported yet!"); 295 295 } 296 296 /*}}}*/ … … 307 307 } 308 308 else{ 309 _error 2_("Matrix type: " << type << " not supported yet!");310 } 311 312 } 313 /*}}}*/ 309 _error_("Matrix type: " << type << " not supported yet!"); 310 } 311 312 } 313 /*}}}*/ -
issm/trunk-jpl/src/c/classes/matrix/Vector.cpp
r12910 r13036 51 51 this->pvector=new PetscVec(M,fromlocalsize); 52 52 #else 53 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");53 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 54 54 #endif 55 55 } … … 57 57 this->svector=new SeqVec(M,fromlocalsize); 58 58 } 59 else _error 2_("Vector type: " << type << " not supported yet!");59 else _error_("Vector type: " << type << " not supported yet!"); 60 60 61 61 } … … 86 86 this->pvector=new PetscVec(serial_vec,M); 87 87 #else 88 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");88 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 89 89 #endif 90 90 } … … 92 92 this->svector=new SeqVec(serial_vec,M); 93 93 } 94 else _error 2_("Vector type: " << type << " not supported yet!");94 else _error_("Vector type: " << type << " not supported yet!"); 95 95 96 96 } … … 103 103 delete this->pvector; 104 104 #else 105 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");105 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 106 106 #endif 107 107 } … … 109 109 delete this->svector; 110 110 } 111 else _error 2_("Vector type: " << type << " not supported yet!");111 else _error_("Vector type: " << type << " not supported yet!"); 112 112 } 113 113 /*}}}*/ … … 121 121 this->pvector->Echo(); 122 122 #else 123 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");123 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 124 124 #endif 125 125 } … … 127 127 this->svector->Echo(); 128 128 } 129 else _error 2_("Vector type: " << type << " not supported yet!");129 else _error_("Vector type: " << type << " not supported yet!"); 130 130 131 131 } … … 138 138 this->pvector->Assemble(); 139 139 #else 140 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");140 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 141 141 #endif 142 142 } … … 144 144 this->svector->Assemble(); 145 145 } 146 else _error 2_("Vector type: " << type << " not supported yet!");146 else _error_("Vector type: " << type << " not supported yet!"); 147 147 148 148 } … … 156 156 this->pvector->SetValues(ssize,list,values,mode); 157 157 #else 158 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");158 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 159 159 #endif 160 160 } … … 162 162 this->svector->SetValues(ssize,list,values,mode); 163 163 } 164 else _error 2_("Vector type: " << type << " not supported yet!");164 else _error_("Vector type: " << type << " not supported yet!"); 165 165 166 166 … … 175 175 this->pvector->SetValue(dof,value,mode); 176 176 #else 177 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");177 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 178 178 #endif 179 179 } … … 181 181 this->svector->SetValue(dof,value,mode); 182 182 } 183 else _error 2_("Vector type: " << type << " not supported yet!");183 else _error_("Vector type: " << type << " not supported yet!"); 184 184 185 185 } … … 193 193 this->pvector->GetValue(pvalue,dof); 194 194 #else 195 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");195 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 196 196 #endif 197 197 } … … 199 199 this->svector->GetValue(pvalue,dof); 200 200 } 201 else _error 2_("Vector type: " << type << " not supported yet!");201 else _error_("Vector type: " << type << " not supported yet!"); 202 202 203 203 } … … 210 210 this->pvector->GetSize(pM); 211 211 #else 212 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");212 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 213 213 #endif 214 214 } … … 216 216 this->svector->GetSize(pM); 217 217 } 218 else _error 2_("Vector type: " << type << " not supported yet!");218 else _error_("Vector type: " << type << " not supported yet!"); 219 219 220 220 } … … 241 241 this->pvector->GetLocalSize(pM); 242 242 #else 243 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");243 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 244 244 #endif 245 245 } … … 247 247 this->svector->GetLocalSize(pM); 248 248 } 249 else _error 2_("Vector type: " << type << " not supported yet!");249 else _error_("Vector type: " << type << " not supported yet!"); 250 250 251 251 } … … 262 262 output->pvector=this->pvector->Duplicate(); 263 263 #else 264 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");264 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 265 265 #endif 266 266 } … … 269 269 output->svector=this->svector->Duplicate(); 270 270 } 271 else _error 2_("Vector type: " << type << " not supported yet!");271 else _error_("Vector type: " << type << " not supported yet!"); 272 272 273 273 return output; … … 283 283 this->pvector->Set(value); 284 284 #else 285 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");285 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 286 286 #endif 287 287 } … … 289 289 this->svector->Set(value); 290 290 } 291 else _error 2_("Vector type: " << type << " not supported yet!");291 else _error_("Vector type: " << type << " not supported yet!"); 292 292 293 293 } … … 301 301 this->pvector->AXPY(X->pvector,a); 302 302 #else 303 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");303 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 304 304 #endif 305 305 } … … 307 307 this->svector->AXPY(X->svector,a); 308 308 } 309 else _error 2_("Vector type: " << type << " not supported yet!");309 else _error_("Vector type: " << type << " not supported yet!"); 310 310 311 311 } … … 319 319 this->pvector->AYPX(X->pvector,a); 320 320 #else 321 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");321 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 322 322 #endif 323 323 } … … 325 325 this->svector->AYPX(X->svector,a); 326 326 } 327 else _error 2_("Vector type: " << type << " not supported yet!");327 else _error_("Vector type: " << type << " not supported yet!"); 328 328 329 329 … … 339 339 vec_serial=this->pvector->ToMPISerial(); 340 340 #else 341 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");341 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 342 342 #endif 343 343 } … … 345 345 vec_serial=this->svector->ToMPISerial(); 346 346 } 347 else _error 2_("Vector type: " << type << " not supported yet!");347 else _error_("Vector type: " << type << " not supported yet!"); 348 348 349 349 return vec_serial; … … 359 359 this->pvector->Copy(to->pvector); 360 360 #else 361 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");361 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 362 362 #endif 363 363 } … … 365 365 this->svector->Copy(to->svector); 366 366 } 367 else _error 2_("Vector type: " << type << " not supported yet!");367 else _error_("Vector type: " << type << " not supported yet!"); 368 368 369 369 … … 379 379 norm=this->pvector->Norm(norm_type); 380 380 #else 381 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");381 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 382 382 #endif 383 383 } … … 385 385 norm=this->svector->Norm(norm_type); 386 386 } 387 else _error 2_("Vector type: " << type << " not supported yet!");387 else _error_("Vector type: " << type << " not supported yet!"); 388 388 389 389 return norm; … … 398 398 this->pvector->Scale(scale_factor); 399 399 #else 400 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");400 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 401 401 #endif 402 402 } … … 404 404 this->svector->Scale(scale_factor); 405 405 } 406 else _error 2_("Vector type: " << type << " not supported yet!");406 else _error_("Vector type: " << type << " not supported yet!"); 407 407 408 408 } … … 417 417 dot=this->pvector->Dot(vector->pvector); 418 418 #else 419 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");419 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 420 420 #endif 421 421 } … … 423 423 dot=this->svector->Dot(vector->svector); 424 424 } 425 else _error 2_("Vector type: " << type << " not supported yet!");425 else _error_("Vector type: " << type << " not supported yet!"); 426 426 427 427 return dot; … … 436 436 this->pvector->PointwiseDivide(x->pvector,y->pvector); 437 437 #else 438 _error 2_("Petsc matrix format not usable, as Petsc has not been compiled!");438 _error_("Petsc matrix format not usable, as Petsc has not been compiled!"); 439 439 #endif 440 440 } … … 442 442 this->svector->PointwiseDivide(x->svector,y->svector); 443 443 } 444 else _error 2_("Vector type: " << type << " not supported yet!");445 446 } 447 /*}}}*/ 444 else _error_("Vector type: " << type << " not supported yet!"); 445 446 } 447 /*}}}*/ -
issm/trunk-jpl/src/c/classes/objects/Constraints/SpcTransient.cpp
r12832 r13036 146 146 } 147 147 148 if(!found)_error 2_("could not find time segment for constraint");148 if(!found)_error_("could not find time segment for constraint"); 149 149 150 150 /*Apply or relax constraint: */ -
issm/trunk-jpl/src/c/classes/objects/ElementResults/BoolElementResult.cpp
r12832 r13036 128 128 void BoolElementResult::GetVectorFromResults(Vector* vector,int* doflist,int* connectivitylist,int numdofs){ 129 129 130 _error 2_("cannot return vector on vertices");130 _error_("cannot return vector on vertices"); 131 131 } /*}}}*/ 132 132 /*FUNCTION BoolElementResult::GetElementVectorFromResults{{{*/ -
issm/trunk-jpl/src/c/classes/objects/ElementResults/DoubleElementResult.cpp
r12994 r13036 129 129 void DoubleElementResult::GetVectorFromResults(Vector* vector,int* doflist,int* connectivitylist,int numdofs){ 130 130 131 _error 2_("cannot return vector on vertices");131 _error_("cannot return vector on vertices"); 132 132 } /*}}}*/ 133 133 /*FUNCTION DoubleElementResult::GetElementVectorFromResults{{{1*/ -
issm/trunk-jpl/src/c/classes/objects/ElementResults/PentaP1ElementResult.cpp
r12832 r13036 142 142 IssmDouble data[6]; 143 143 144 if(numdofs!=6)_error 2_("Result " << EnumToStringx(this->enum_type) << " is a PentaP1ElementResult and cannot write vector of " << numdofs << " dofs");144 if(numdofs!=6)_error_("Result " << EnumToStringx(this->enum_type) << " is a PentaP1ElementResult and cannot write vector of " << numdofs << " dofs"); 145 145 for(int i=0;i<6;i++) data[i]=this->values[i]/(IssmDouble)connectivitylist[i]; 146 146 vector->SetValues(numdofs,doflist,&data[0],ADD_VAL); … … 150 150 void PentaP1ElementResult::GetElementVectorFromResults(Vector* vector,int dof){ 151 151 152 _error 2_("Result " << EnumToStringx(enum_type) << " is a PentaP1ElementResult and should not write vector of size numberofelemenrs");152 _error_("Result " << EnumToStringx(enum_type) << " is a PentaP1ElementResult and should not write vector of size numberofelemenrs"); 153 153 } /*}}}*/ -
issm/trunk-jpl/src/c/classes/objects/ElementResults/TriaP1ElementResult.cpp
r12832 r13036 130 130 IssmDouble data[3]; 131 131 132 if(numdofs!=3)_error 2_("Result " << EnumToStringx(this->enum_type) << " is a TriaP1ElementResult and cannot write vector of " << numdofs << " dofs");132 if(numdofs!=3)_error_("Result " << EnumToStringx(this->enum_type) << " is a TriaP1ElementResult and cannot write vector of " << numdofs << " dofs"); 133 133 for(int i=0;i<3;i++) data[i]=this->values[i]/(IssmDouble)connectivitylist[i]; 134 134 vector->SetValues(numdofs,doflist,&data[0],ADD_VAL); … … 137 137 /*FUNCTION TriaP1ElementResult::GetElementVectorFromResults{{{*/ 138 138 void TriaP1ElementResult::GetElementVectorFromResults(Vector* vector,int dof){ 139 _error 2_("Result " << EnumToStringx(enum_type) << " is a TriaP1ElementResult and should not write vector of size numberofelemenrs");139 _error_("Result " << EnumToStringx(enum_type) << " is a TriaP1ElementResult and should not write vector of size numberofelemenrs"); 140 140 } /*}}}*/ -
issm/trunk-jpl/src/c/classes/objects/Elements/Penta.cpp
r12994 r13036 146 146 /*FUNCTION Penta::AverageOntoPartition {{{*/ 147 147 void Penta::AverageOntoPartition(Vector* partition_contributions,Vector* partition_areas,IssmDouble* vertex_response,IssmDouble* qmu_part){ 148 _error 2_("Not supported yet!");148 _error_("Not supported yet!"); 149 149 } 150 150 /*}}}*/ … … 252 252 253 253 /*Check analysis_types*/ 254 if (analysis_type!=DiagnosticHorizAnalysisEnum) _error 2_("Not supported yet!");255 if (approximation!=StokesApproximationEnum) _error 2_("Not supported yet!");254 if (analysis_type!=DiagnosticHorizAnalysisEnum) _error_("Not supported yet!"); 255 if (approximation!=StokesApproximationEnum) _error_("Not supported yet!"); 256 256 257 257 /*retrieve some parameters: */ … … 318 318 void Penta::ComputeStrainRate(Vector* eps){ 319 319 320 _error 2_("Not implemented yet");320 _error_("Not implemented yet"); 321 321 322 322 } … … 464 464 #endif 465 465 default: 466 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");466 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 467 467 } 468 468 … … 569 569 #endif 570 570 default: 571 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");571 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 572 572 } 573 573 … … 638 638 #endif 639 639 default: 640 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");640 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 641 641 } 642 642 … … 888 888 return i; 889 889 } 890 _error 2_("Node provided not found among element nodes");890 _error_("Node provided not found among element nodes"); 891 891 892 892 } … … 901 901 /*Recover input*/ 902 902 Input* input=inputs->GetInput(enumtype); 903 if (!input) _error 2_("Input " << EnumToStringx(enumtype) << " not found in element");903 if (!input) _error_("Input " << EnumToStringx(enumtype) << " not found in element"); 904 904 905 905 /*Checks in debugging mode*/ … … 950 950 951 951 Input* input=inputs->GetInput(enumtype); 952 if(!input) _error 2_("No input of type " << EnumToStringx(enumtype) << " found in tria");952 if(!input) _error_("No input of type " << EnumToStringx(enumtype) << " found in tria"); 953 953 954 954 GaussPenta* gauss=new GaussPenta(); … … 1045 1045 #endif 1046 1046 default: 1047 _error 2_("analysis: " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");1047 _error_("analysis: " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 1048 1048 } 1049 1049 } … … 1085 1085 /*Check that both inputs have been found*/ 1086 1086 if (!vx_input || !vy_input){ 1087 _error 2_("Input missing. Here are the input pointers we have for vx: " << vx_input << ", vy: " << vy_input << "\n");1087 _error_("Input missing. Here are the input pointers we have for vx: " << vx_input << ", vy: " << vy_input << "\n"); 1088 1088 } 1089 1089 … … 1110 1110 /*Check that both inputs have been found*/ 1111 1111 if (!vx_input || !vy_input || !vz_input){ 1112 _error 2_("Input missing. Here are the input pointers we have for vx: " << vx_input << ", vy: " << vy_input << ", vz: " << vz_input << "\n");1112 _error_("Input missing. Here are the input pointers we have for vx: " << vx_input << ", vy: " << vy_input << ", vz: " << vz_input << "\n"); 1113 1113 } 1114 1114 … … 1145 1145 /*Get input (either in element or material)*/ 1146 1146 Input* input=inputs->GetInput(input_enum); 1147 if(!input) _error 2_("Input " << EnumToStringx(input_enum) << " not found in element");1147 if(!input) _error_("Input " << EnumToStringx(input_enum) << " not found in element"); 1148 1148 1149 1149 /*We found the enum. Use its values to fill into the vector, using the vertices ids: */ … … 1157 1157 ElementResult* elementresult=(ElementResult*)this->results->GetObjectByOffset(offset); 1158 1158 if(elementresult->InstanceEnum()!=enum_in){ 1159 _error 2_("Results of offset "<<offset<<" is "<<EnumToStringx(elementresult->InstanceEnum())<<" when "<<EnumToStringx(enum_in)<<" was expected");1159 _error_("Results of offset "<<offset<<" is "<<EnumToStringx(elementresult->InstanceEnum())<<" when "<<EnumToStringx(enum_in)<<" was expected"); 1160 1160 } 1161 1161 if(interp==P1Enum){ … … 1208 1208 /*Make a copy of the original input: */ 1209 1209 input=(Input*)this->inputs->GetInput(enum_type); 1210 if(!input)_error 2_("could not find old input with enum: " << EnumToStringx(enum_type));1210 if(!input)_error_("could not find old input with enum: " << EnumToStringx(enum_type)); 1211 1211 1212 1212 /*ArtificialNoise: */ … … 1228 1228 new_inputs[i]=(Input*)this->inputs->GetInput(enums[2*i+0]); 1229 1229 old_inputs[i]=(Input*)this->inputs->GetInput(enums[2*i+1]); 1230 if(!new_inputs[i])_error 2_("could not find input with enum " << EnumToStringx(enums[2*i+0]));1231 if(!old_inputs[i])_error 2_("could not find input with enum " << EnumToStringx(enums[2*i+0]));1230 if(!new_inputs[i])_error_("could not find input with enum " << EnumToStringx(enums[2*i+0])); 1231 if(!old_inputs[i])_error_("could not find input with enum " << EnumToStringx(enums[2*i+0])); 1232 1232 } 1233 1233 … … 1261 1261 this->inputs->AddInput(new DoubleInput(name,(IssmDouble)scalar)); 1262 1262 } 1263 else _error 2_("could not recognize nature of vector from code " << code);1263 else _error_("could not recognize nature of vector from code " << code); 1264 1264 1265 1265 } … … 1327 1327 this->inputs->AddInput(transientinput); 1328 1328 } 1329 else _error 2_("nodal vector is either numberofnodes (" << numberofvertices << "), or numberofnodes+1 long. Field provided is " << M << " long. Enum " << EnumToStringx(vector_enum));1329 else _error_("nodal vector is either numberofnodes (" << numberofvertices << "), or numberofnodes+1 long. Field provided is " << M << " long. Enum " << EnumToStringx(vector_enum)); 1330 1330 } 1331 1331 else if(vector_type==2){ //element vector … … 1344 1344 this->inputs->AddInput(new DoubleInput(vector_enum,(IssmDouble)vector[index])); 1345 1345 } 1346 else _error 2_("could not recognize nature of vector from code " << code);1346 else _error_("could not recognize nature of vector from code " << code); 1347 1347 } 1348 1348 else { 1349 _error 2_("transient elementary inputs not supported yet!");1349 _error_("transient elementary inputs not supported yet!"); 1350 1350 } 1351 1351 } 1352 1352 else{ 1353 _error 2_("Cannot add input for vector type " << vector_type << " (not supported)");1353 _error_("Cannot add input for vector type " << vector_type << " (not supported)"); 1354 1354 } 1355 1355 … … 1390 1390 original_input=(Input*)penta->matice->inputs->GetInput(enum_type); 1391 1391 else 1392 _error 2_("object " << EnumToStringx(object_enum) << " not supported yet");1393 if(!original_input) _error 2_("could not find input with enum " << EnumToStringx(enum_type));1392 _error_("object " << EnumToStringx(object_enum) << " not supported yet"); 1393 if(!original_input) _error_("could not find input with enum " << EnumToStringx(enum_type)); 1394 1394 1395 1395 /*If first time, initialize total_integrated_input*/ … … 1402 1402 total_integrated_input=new DoubleInput(average_enum_type,0.0); 1403 1403 else 1404 _error 2_("object " << EnumToStringx(original_input->ObjectEnum()) << " not supported yet");1404 _error_("object " << EnumToStringx(original_input->ObjectEnum()) << " not supported yet"); 1405 1405 } 1406 1406 … … 1450 1450 this->matice->inputs->AddInput((Input*)depth_averaged_input); 1451 1451 else 1452 _error 2_("object " << EnumToStringx(object_enum) << " not supported yet");1452 _error_("object " << EnumToStringx(object_enum) << " not supported yet"); 1453 1453 } 1454 1454 /*}}}*/ … … 1491 1491 } 1492 1492 else{ 1493 _error 2_("object of type " << EnumToStringx(object_type) << " not supported yet");1493 _error_("object of type " << EnumToStringx(object_type) << " not supported yet"); 1494 1494 } 1495 1495 for(i=0;i<num_inputs;i++){ 1496 if(!base_inputs[i]) _error 2_("could not find input with enum " << EnumToStringx(enum_type) << " in object " << EnumToStringx(object_type));1496 if(!base_inputs[i]) _error_("could not find input with enum " << EnumToStringx(enum_type) << " in object " << EnumToStringx(object_type)); 1497 1497 base_inputs[i]->Extrude(); 1498 1498 } … … 1521 1521 } 1522 1522 else{ 1523 _error 2_("object of type " << EnumToStringx(object_type) << " not supported yet");1523 _error_("object of type " << EnumToStringx(object_type) << " not supported yet"); 1524 1524 } 1525 1525 } … … 1540 1540 /*Make a copy of the original input: */ 1541 1541 input=(Input*)this->inputs->GetInput(enum_type); 1542 if(!input)_error 2_("could not find old input with enum: " << EnumToStringx(enum_type));1542 if(!input)_error_("could not find old input with enum: " << EnumToStringx(enum_type)); 1543 1543 1544 1544 /*Scale: */ … … 1556 1556 if (enum_type==MaterialsRheologyBbarEnum) input=this->matice->inputs->GetInput(MaterialsRheologyBEnum); 1557 1557 else input=this->inputs->GetInput(enum_type); 1558 //if (!input) _error 2_("Input " << EnumToStringx(enum_type) << " not found in penta->inputs"); why error out? if the requested input does not exist, we should still1558 //if (!input) _error_("Input " << EnumToStringx(enum_type) << " not found in penta->inputs"); why error out? if the requested input does not exist, we should still 1559 1559 //try and output whatever we can instead of just failing. 1560 1560 if(!input)return; … … 1669 1669 /*Matice will take care of it*/ break; 1670 1670 default: 1671 _error 2_("Control " << EnumToStringx((int)iomodel->Data(InversionControlParametersEnum)[i]) << " not implemented yet");1671 _error_("Control " << EnumToStringx((int)iomodel->Data(InversionControlParametersEnum)[i]) << " not implemented yet"); 1672 1672 } 1673 1673 } … … 1702 1702 } 1703 1703 else{ 1704 _error 2_("Approximation type " << EnumToStringx((int)*(iomodel->Data(FlowequationElementEquationEnum)+index)) << " not supported yet");1704 _error_("Approximation type " << EnumToStringx((int)*(iomodel->Data(FlowequationElementEquationEnum)+index)) << " not supported yet"); 1705 1705 } 1706 1706 } … … 1786 1786 #endif 1787 1787 default: 1788 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");1788 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 1789 1789 } 1790 1790 } … … 1817 1817 for(i=0;i<numdof2d;i++){ 1818 1818 newthickness[i]=solution[doflist[i]]; 1819 if(xIsNan<IssmDouble>(newthickness[i])) _error 2_("NaN found in solution vector");1819 if(xIsNan<IssmDouble>(newthickness[i])) _error_("NaN found in solution vector"); 1820 1820 /*Constrain thickness to be at least 1m*/ 1821 1821 if(newthickness[i]<minthickness) newthickness[i]=minthickness; … … 1850 1850 newbed[i]=oldbed[i]-rho_ice/rho_water*(newthickness[i]-oldthickness[i]); //bed = oldbed + di * dH 1851 1851 } 1852 else _error 2_("Hydrostatic adjustment " << hydroadjustment << " (" << EnumToStringx(hydroadjustment) << ") not supported yet");1852 else _error_("Hydrostatic adjustment " << hydroadjustment << " (" << EnumToStringx(hydroadjustment) << ") not supported yet"); 1853 1853 } 1854 1854 } … … 1887 1887 for(int i=0;i<numdof;i++){ 1888 1888 values[i]=solution[doflist[i]]; 1889 if(xIsNan<IssmDouble>(values[i])) _error 2_("NaN found in solution vector");1889 if(xIsNan<IssmDouble>(values[i])) _error_("NaN found in solution vector"); 1890 1890 } 1891 1891 … … 1917 1917 values[i] =solution[doflist[i]]; 1918 1918 values[i+numdof2d]=values[i]; 1919 if(xIsNan<IssmDouble>(values[i])) _error 2_("NaN found in solution vector");1919 if(xIsNan<IssmDouble>(values[i])) _error_("NaN found in solution vector"); 1920 1920 } 1921 1921 … … 1963 1963 default: 1964 1964 1965 _error 2_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet");1965 _error_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet"); 1966 1966 } 1967 1967 } … … 1969 1969 /*FUNCTION Penta::InputUpdateFromVector(int* vector, int name, int type);{{{*/ 1970 1970 void Penta::InputUpdateFromVector(int* vector, int name, int type){ 1971 _error 2_("not supported yet!");1971 _error_("not supported yet!"); 1972 1972 } 1973 1973 /*}}}*/ 1974 1974 /*FUNCTION Penta::InputUpdateFromVector(bool* vector, int name, int type);{{{*/ 1975 1975 void Penta::InputUpdateFromVector(bool* vector, int name, int type){ 1976 _error 2_("not supported yet!");1976 _error_("not supported yet!"); 1977 1977 } 1978 1978 /*}}}*/ … … 2575 2575 void Penta::SetClone(int* minranks){ 2576 2576 2577 _error 2_("not implemented yet");2577 _error_("not implemented yet"); 2578 2578 } 2579 2579 /*}}}*/ … … 2942 2942 this->inputs->AddInput(new PentaP1Input(EnthalpyEnum,nodeinputs)); 2943 2943 } 2944 else _error 2_("temperature and waterfraction required for the enthalpy solution");2944 else _error_("temperature and waterfraction required for the enthalpy solution"); 2945 2945 break; 2946 2946 … … 3021 3021 /*FUNCTION Penta::SmearFunction {{{*/ 3022 3022 void Penta::SmearFunction(Vector* smearedvector,IssmDouble (*WeightFunction)(IssmDouble distance,IssmDouble radius),IssmDouble radius){ 3023 _error 2_("not implemented yet");3023 _error_("not implemented yet"); 3024 3024 } 3025 3025 /*}}}*/ … … 3239 3239 *presponse=vel; 3240 3240 default: 3241 _error 2_("Response type " << EnumToStringx(response_enum) << " not supported yet!");3241 _error_("Response type " << EnumToStringx(response_enum) << " not supported yet!"); 3242 3242 } 3243 3243 … … 4314 4314 4315 4315 /*Check solution*/ 4316 if(xIsNan<IssmDouble>(values[i])) _error 2_("NaN found in solution vector");4316 if(xIsNan<IssmDouble>(values[i])) _error_("NaN found in solution vector"); 4317 4317 //if(values[i]<0) _printLine_("temperature < 0°K found in solution vector"); 4318 4318 //if(values[i]>275) _printLine_("temperature > 275°K found in solution vector (Paterson's rheology associated is negative)"); … … 4348 4348 break; 4349 4349 default: 4350 _error 2_("Rheology law " << EnumToStringx(rheology_law) << " not supported yet");4350 _error_("Rheology law " << EnumToStringx(rheology_law) << " not supported yet"); 4351 4351 4352 4352 } … … 4384 4384 4385 4385 /*Check solution*/ 4386 if(xIsNan<IssmDouble>(values[i])) _error 2_("NaN found in solution vector");4386 if(xIsNan<IssmDouble>(values[i])) _error_("NaN found in solution vector"); 4387 4387 } 4388 4388 … … 4397 4397 for(i=0;i<numdof;i++){ 4398 4398 matpar->EnthalpyToThermal(&temperatures[i],&waterfraction[i],values[i],pressure[i]); 4399 if(waterfraction[i]<0) _error 2_("Negative water fraction found in solution vector");4400 //if(waterfraction[i]>1) _error 2_("Water fraction >1 found in solution vector");4399 if(waterfraction[i]<0) _error_("Negative water fraction found in solution vector"); 4400 //if(waterfraction[i]>1) _error_("Water fraction >1 found in solution vector"); 4401 4401 } 4402 4402 … … 4426 4426 break; 4427 4427 default: 4428 _error 2_("Rheology law " << EnumToStringx(rheology_law) << " not supported yet");4428 _error_("Rheology law " << EnumToStringx(rheology_law) << " not supported yet"); 4429 4429 4430 4430 } … … 4454 4454 input=inputs->GetInput(enum_type); 4455 4455 } 4456 if (!input) _error 2_("Input " << EnumToStringx(enum_type) << " not found");4457 if (input->ObjectEnum()!=ControlInputEnum) _error 2_("Input " << EnumToStringx(enum_type) << " is not a ControlInput");4456 if (!input) _error_("Input " << EnumToStringx(enum_type) << " not found"); 4457 if (input->ObjectEnum()!=ControlInputEnum) _error_("Input " << EnumToStringx(enum_type) << " is not a ControlInput"); 4458 4458 4459 4459 GradientIndexing(&doflist1[0],control_index); … … 4472 4472 input=inputs->GetInput(enum_type); 4473 4473 } 4474 if (!input) _error 2_("Input " << EnumToStringx(enum_type) << " not found");4475 if (input->ObjectEnum()!=ControlInputEnum) _error 2_("Input " << EnumToStringx(enum_type) << " is not a ControlInput");4474 if (!input) _error_("Input " << EnumToStringx(enum_type) << " not found"); 4475 if (input->ObjectEnum()!=ControlInputEnum) _error_("Input " << EnumToStringx(enum_type) << " is not a ControlInput"); 4476 4476 4477 4477 ((ControlInput*)input)->ScaleGradient(scale); … … 4491 4491 input=inputs->GetInput(enum_type); 4492 4492 } 4493 if (!input) _error 2_("Input " << EnumToStringx(enum_type) << " not found");4494 if (input->ObjectEnum()!=ControlInputEnum) _error 2_("Input " << EnumToStringx(enum_type) << " is not a ControlInput");4493 if (!input) _error_("Input " << EnumToStringx(enum_type) << " not found"); 4494 if (input->ObjectEnum()!=ControlInputEnum) _error_("Input " << EnumToStringx(enum_type) << " is not a ControlInput"); 4495 4495 4496 4496 GradientIndexing(&doflist1[0],control_index); … … 4516 4516 return NULL; 4517 4517 default: 4518 _error 2_("Approximation " << EnumToStringx(approximation) << " not supported yet");4518 _error_("Approximation " << EnumToStringx(approximation) << " not supported yet"); 4519 4519 } 4520 4520 } … … 4706 4706 return CreatePVectorAdjointStokes(); 4707 4707 default: 4708 _error 2_("Approximation " << EnumToStringx(approximation) << " not supported yet");4708 _error_("Approximation " << EnumToStringx(approximation) << " not supported yet"); 4709 4709 } 4710 4710 } … … 4795 4795 break; 4796 4796 default: 4797 _error 2_("approximation " << EnumToStringx(approximation) << " not supported yet");4797 _error_("approximation " << EnumToStringx(approximation) << " not supported yet"); 4798 4798 } 4799 4799 break; … … 4815 4815 break; 4816 4816 default: 4817 _error 2_("approximation " << EnumToStringx(approximation) << " not supported yet");4817 _error_("approximation " << EnumToStringx(approximation) << " not supported yet"); 4818 4818 } 4819 4819 break; 4820 4820 4821 4821 default: 4822 _error 2_("control type " << EnumToStringx(control_type) << " not supported yet: ");4822 _error_("control type " << EnumToStringx(control_type) << " not supported yet: "); 4823 4823 } 4824 4824 … … 4852 4852 break; 4853 4853 default: 4854 _error 2_("response " << EnumToStringx(responses[resp]) << " not supported yet");4854 _error_("response " << EnumToStringx(responses[resp]) << " not supported yet"); 4855 4855 } 4856 4856 xDelete<int>(responses); … … 5106 5106 } 5107 5107 5108 if (input->ObjectEnum()!=ControlInputEnum) _error 2_("input " << EnumToStringx(control_type[i]) << " is not a ControlInput");5108 if (input->ObjectEnum()!=ControlInputEnum) _error_("input " << EnumToStringx(control_type[i]) << " is not a ControlInput"); 5109 5109 5110 5110 ((ControlInput*)input)->UpdateValue(scalar); … … 5149 5149 5150 5150 /*Check solution*/ 5151 if(xIsNan<IssmDouble>(lambdax[i])) _error 2_("NaN found in solution vector");5152 if(xIsNan<IssmDouble>(lambday[i])) _error 2_("NaN found in solution vector");5153 if(xIsNan<IssmDouble>(lambdaz[i])) _error 2_("NaN found in solution vector");5154 if(xIsNan<IssmDouble>(lambdap[i])) _error 2_("NaN found in solution vector");5151 if(xIsNan<IssmDouble>(lambdax[i])) _error_("NaN found in solution vector"); 5152 if(xIsNan<IssmDouble>(lambday[i])) _error_("NaN found in solution vector"); 5153 if(xIsNan<IssmDouble>(lambdaz[i])) _error_("NaN found in solution vector"); 5154 if(xIsNan<IssmDouble>(lambdap[i])) _error_("NaN found in solution vector"); 5155 5155 } 5156 5156 … … 5188 5188 5189 5189 /*Check solution*/ 5190 if(xIsNan<IssmDouble>(lambdax[i])) _error 2_("NaN found in solution vector");5191 if(xIsNan<IssmDouble>(lambday[i])) _error 2_("NaN found in solution vector");5190 if(xIsNan<IssmDouble>(lambdax[i])) _error_("NaN found in solution vector"); 5191 if(xIsNan<IssmDouble>(lambday[i])) _error_("NaN found in solution vector"); 5192 5192 } 5193 5193 … … 5390 5390 IssmDouble Penta::ThicknessAbsGradient(bool process_units,int weight_index){ 5391 5391 5392 _error 2_("Not implemented yet");5392 _error_("Not implemented yet"); 5393 5393 } 5394 5394 /*}}}*/ … … 5405 5405 /*If on water, return 0: */ 5406 5406 if(IsOnWater())return 0; 5407 _error 2_("Not implemented yet");5407 _error_("Not implemented yet"); 5408 5408 5409 5409 tria=(Tria*)SpawnTria(0,1,2); … … 5456 5456 /*Get input (either in element or material)*/ 5457 5457 Input* input=inputs->GetInput(control_enum); 5458 if(!input) _error 2_("Input " << EnumToStringx(control_enum) << " not found in element");5458 if(!input) _error_("Input " << EnumToStringx(control_enum) << " not found in element"); 5459 5459 5460 5460 /*Check that it is a ControlInput*/ 5461 5461 if (input->ObjectEnum()!=ControlInputEnum){ 5462 _error 2_("input " << EnumToStringx(control_enum) << " is not a ControlInput");5462 _error_("input " << EnumToStringx(control_enum) << " is not a ControlInput"); 5463 5463 } 5464 5464 … … 5495 5495 5496 5496 if (input->ObjectEnum()!=ControlInputEnum){ 5497 _error 2_("input " << EnumToStringx(control_enum) << " is not a ControlInput");5497 _error_("input " << EnumToStringx(control_enum) << " is not a ControlInput"); 5498 5498 } 5499 5499 … … 5601 5601 5602 5602 default: 5603 _error 2_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet");5603 _error_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet"); 5604 5604 } 5605 5605 … … 5608 5608 /*FUNCTION Penta::InputUpdateFromVectorDakota(int* vector, int name, int type);{{{*/ 5609 5609 void Penta::InputUpdateFromVectorDakota(int* vector, int name, int type){ 5610 _error 2_("not supported yet!");5610 _error_("not supported yet!"); 5611 5611 } 5612 5612 /*}}}*/ 5613 5613 /*FUNCTION Penta::InputUpdateFromVectorDakota(bool* vector, int name, int type);{{{*/ 5614 5614 void Penta::InputUpdateFromVectorDakota(bool* vector, int name, int type){ 5615 _error 2_("not supported yet!");5615 _error_("not supported yet!"); 5616 5616 } 5617 5617 /*}}}*/ … … 5656 5656 5657 5657 default: 5658 _error 2_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet");5658 _error_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet"); 5659 5659 } 5660 5660 … … 6215 6215 return CreateKMatrixDiagnosticPattynStokes(); 6216 6216 default: 6217 _error 2_("Approximation " << EnumToStringx(approximation) << " not supported yet");6217 _error_("Approximation " << EnumToStringx(approximation) << " not supported yet"); 6218 6218 } 6219 6219 } … … 6383 6383 matice->GetViscosity3dStokes(&newviscosity,&epsilons[0]); 6384 6384 } 6385 else _error 2_("approximation " << approximation << " (" << EnumToStringx(approximation) << ") not supported yet");6385 else _error_("approximation " << approximation << " (" << EnumToStringx(approximation) << ") not supported yet"); 6386 6386 6387 6387 D_scalar=2*newviscosity*gauss->weight*Jdet; … … 7206 7206 return CreatePVectorDiagnosticPattynStokes(); 7207 7207 default: 7208 _error 2_("Approximation " << EnumToStringx(approximation) << " not supported yet");7208 _error_("Approximation " << EnumToStringx(approximation) << " not supported yet"); 7209 7209 } 7210 7210 } … … 7719 7719 return NULL; 7720 7720 default: 7721 _error 2_("Approximation " << EnumToStringx(approximation) << " not supported yet");7721 _error_("Approximation " << EnumToStringx(approximation) << " not supported yet"); 7722 7722 } 7723 7723 } … … 8114 8114 8115 8115 /*Check solution*/ 8116 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");8117 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");8116 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 8117 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 8118 8118 } 8119 8119 … … 8212 8212 8213 8213 /*Check solution*/ 8214 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");8215 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");8214 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 8215 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 8216 8216 } 8217 8217 … … 8300 8300 8301 8301 /*Check solution*/ 8302 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");8303 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");8304 if(xIsNan<IssmDouble>(vzstokes[i])) _error 2_("NaN found in solution vector");8305 if(xIsNan<IssmDouble>(pressure[i])) _error 2_("NaN found in solution vector");8302 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 8303 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 8304 if(xIsNan<IssmDouble>(vzstokes[i])) _error_("NaN found in solution vector"); 8305 if(xIsNan<IssmDouble>(pressure[i])) _error_("NaN found in solution vector"); 8306 8306 } 8307 8307 … … 8310 8310 if (vzmacayeal_input){ 8311 8311 if (vzmacayeal_input->ObjectEnum()!=PentaP1InputEnum){ 8312 _error 2_("Cannot compute Vel as VzMacAyeal is of type " << EnumToStringx(vzmacayeal_input->ObjectEnum()));8312 _error_("Cannot compute Vel as VzMacAyeal is of type " << EnumToStringx(vzmacayeal_input->ObjectEnum())); 8313 8313 } 8314 8314 GetInputListOnVertices(&vzmacayeal[0],VzMacAyealEnum); 8315 8315 } 8316 8316 else{ 8317 _error 2_("Cannot update solution as VzMacAyeal is not present");8317 _error_("Cannot update solution as VzMacAyeal is not present"); 8318 8318 } 8319 8319 … … 8379 8379 8380 8380 /*Check solution*/ 8381 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");8382 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");8381 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 8382 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 8383 8383 } 8384 8384 … … 8468 8468 8469 8469 /*Check solution*/ 8470 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");8471 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");8472 if(xIsNan<IssmDouble>(vzstokes[i])) _error 2_("NaN found in solution vector");8473 if(xIsNan<IssmDouble>(pressure[i])) _error 2_("NaN found in solution vector");8470 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 8471 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 8472 if(xIsNan<IssmDouble>(vzstokes[i])) _error_("NaN found in solution vector"); 8473 if(xIsNan<IssmDouble>(pressure[i])) _error_("NaN found in solution vector"); 8474 8474 } 8475 8475 … … 8478 8478 if (vzpattyn_input){ 8479 8479 if (vzpattyn_input->ObjectEnum()!=PentaP1InputEnum){ 8480 _error 2_("Cannot compute Vel as VzPattyn is of type " << EnumToStringx(vzpattyn_input->ObjectEnum()));8480 _error_("Cannot compute Vel as VzPattyn is of type " << EnumToStringx(vzpattyn_input->ObjectEnum())); 8481 8481 } 8482 8482 GetInputListOnVertices(&vzpattyn[0],VzPattynEnum); 8483 8483 } 8484 8484 else{ 8485 _error 2_("Cannot update solution as VzPattyn is not present");8485 _error_("Cannot update solution as VzPattyn is not present"); 8486 8486 } 8487 8487 … … 8544 8544 8545 8545 /*Check solution*/ 8546 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");8547 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");8546 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 8547 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 8548 8548 } 8549 8549 … … 8613 8613 8614 8614 /*Check solution*/ 8615 if(xIsNan<IssmDouble>(vz[i])) _error 2_("NaN found in solution vector");8615 if(xIsNan<IssmDouble>(vz[i])) _error_("NaN found in solution vector"); 8616 8616 } 8617 8617 … … 8624 8624 Input* vzstokes_input=inputs->GetInput(VzStokesEnum); 8625 8625 if (vzstokes_input){ 8626 if (vzstokes_input->ObjectEnum()!=PentaP1InputEnum) _error 2_("Cannot compute Vel as VzStokes is of type " << EnumToStringx(vzstokes_input->ObjectEnum()));8626 if (vzstokes_input->ObjectEnum()!=PentaP1InputEnum) _error_("Cannot compute Vel as VzStokes is of type " << EnumToStringx(vzstokes_input->ObjectEnum())); 8627 8627 GetInputListOnVertices(&vzstokes[0],VzStokesEnum); 8628 8628 } 8629 else _error 2_("Cannot compute Vz as VzStokes in not present in PattynStokes element");8629 else _error_("Cannot compute Vz as VzStokes in not present in PattynStokes element"); 8630 8630 for(i=0;i<NUMVERTICES;i++){ 8631 8631 vzpattyn[i]=vz[i]; … … 8636 8636 Input* vzstokes_input=inputs->GetInput(VzStokesEnum); 8637 8637 if (vzstokes_input){ 8638 if (vzstokes_input->ObjectEnum()!=PentaP1InputEnum) _error 2_("Cannot compute Vel as VzStokes is of type " << EnumToStringx(vzstokes_input->ObjectEnum()));8638 if (vzstokes_input->ObjectEnum()!=PentaP1InputEnum) _error_("Cannot compute Vel as VzStokes is of type " << EnumToStringx(vzstokes_input->ObjectEnum())); 8639 8639 GetInputListOnVertices(&vzstokes[0],VzStokesEnum); 8640 8640 } 8641 else _error 2_("Cannot compute Vz as VzStokes in not present in MacAyealStokes element");8641 else _error_("Cannot compute Vz as VzStokes in not present in MacAyealStokes element"); 8642 8642 for(i=0;i<NUMVERTICES;i++){ 8643 8643 vzmacayeal[i]=vz[i]; … … 8711 8711 8712 8712 /*Check solution*/ 8713 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");8714 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");8715 if(xIsNan<IssmDouble>(vz[i])) _error 2_("NaN found in solution vector");8716 if(xIsNan<IssmDouble>(pressure[i])) _error 2_("NaN found in solution vector");8713 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 8714 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 8715 if(xIsNan<IssmDouble>(vz[i])) _error_("NaN found in solution vector"); 8716 if(xIsNan<IssmDouble>(pressure[i])) _error_("NaN found in solution vector"); 8717 8717 } 8718 8718 -
issm/trunk-jpl/src/c/classes/objects/Elements/Penta.h
r12927 r13036 162 162 IssmDouble SurfaceAverageVelMisfit(bool process_units,int weight_index); 163 163 IssmDouble ThicknessAbsGradient(bool process_units,int weight_index); 164 IssmDouble ThicknessAlongGradient( bool process_units,int weight_index){_error 2_("not supported");};165 IssmDouble ThicknessAcrossGradient(bool process_units,int weight_index){_error 2_("not supported");};164 IssmDouble ThicknessAlongGradient( bool process_units,int weight_index){_error_("not supported");}; 165 IssmDouble ThicknessAcrossGradient(bool process_units,int weight_index){_error_("not supported");}; 166 166 void InputControlUpdate(IssmDouble scalar,bool save_parameter); 167 167 #endif -
issm/trunk-jpl/src/c/classes/objects/Elements/PentaRef.cpp
r12832 r13036 949 949 /*Get Determinant*/ 950 950 Matrix3x3Determinant(Jdet,&J[0][0]); 951 if(*Jdet<0) _error 2_("negative jacobian determinant!");951 if(*Jdet<0) _error_("negative jacobian determinant!"); 952 952 953 953 } … … 972 972 /*Jdet = norm( AB ^ AC ) / (2 * area of the reference triangle), with areaRef=sqrt(3) */ 973 973 *Jdet=SQRT3/6.0*pow(pow(((y2-y1)*(z3-z1)-(z2-z1)*(y3-y1)),2.0)+pow(((z2-z1)*(x3-x1)-(x2-x1)*(z3-z1)),2.0)+pow(((x2-x1)*(y3-y1)-(y2-y1)*(x3-x1)),2.0),0.5); 974 if(*Jdet<0) _error 2_("negative jacobian determinant!");974 if(*Jdet<0) _error_("negative jacobian determinant!"); 975 975 } 976 976 /*}}}*/ … … 990 990 991 991 *Jdet=1.0/2.0*sqrt(pow(x2-x1,2.) + pow(y2-y1,2.) + pow(z2-z1,2.)); 992 if(*Jdet<0) _error 2_("negative jacobian determinant!");992 if(*Jdet<0) _error_("negative jacobian determinant!"); 993 993 994 994 } … … 1226 1226 /*Area of a trabezoid = altitude * (base1 + base2)/2 */ 1227 1227 *Jdet= pow(pow(x2-x1,2.) + pow(y2-y1,2.),0.5) * (z4-z1 + z3-z2)/8; 1228 if(*Jdet<0) _error 2_("negative jacobian determinant!");1228 if(*Jdet<0) _error_("negative jacobian determinant!"); 1229 1229 1230 1230 } -
issm/trunk-jpl/src/c/classes/objects/Elements/PentaRef.h
r12494 r13036 56 56 void GetLprimeStokesMacAyeal(IssmDouble* LprimeStokesMacAyeal, IssmDouble* xyz_list, GaussPenta* gauss); 57 57 void GetInputValue(IssmDouble* pvalue,IssmDouble* plist, GaussPenta* gauss); 58 void GetInputValue(IssmDouble* pvalue,IssmDouble* plist,GaussTria* gauss){_error 2_("only PentaGauss are supported");};58 void GetInputValue(IssmDouble* pvalue,IssmDouble* plist,GaussTria* gauss){_error_("only PentaGauss are supported");}; 59 59 void GetInputDerivativeValue(IssmDouble* pvalues, IssmDouble* plist,IssmDouble* xyz_list, GaussPenta* gauss); 60 void GetInputDerivativeValue(IssmDouble* pvalues, IssmDouble* plist,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("only PentaGauss are supported");};60 void GetInputDerivativeValue(IssmDouble* pvalues, IssmDouble* plist,IssmDouble* xyz_list, GaussTria* gauss){_error_("only PentaGauss are supported");}; 61 61 62 62 }; -
issm/trunk-jpl/src/c/classes/objects/Elements/Tria.cpp
r12994 r13036 214 214 #endif 215 215 default: 216 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");216 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 217 217 } 218 218 … … 277 277 return CreateKMatrixPrognostic_DG(); 278 278 default: 279 _error 2_("Element type " << EnumToStringx(GetElementType()) << " not supported yet");279 _error_("Element type " << EnumToStringx(GetElementType()) << " not supported yet"); 280 280 } 281 281 … … 568 568 #endif 569 569 default: 570 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");570 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 571 571 } 572 572 … … 587 587 return CreatePVectorPrognostic_DG(); 588 588 default: 589 _error 2_("Element type " << EnumToStringx(GetElementType()) << " not supported yet");589 _error_("Element type " << EnumToStringx(GetElementType()) << " not supported yet"); 590 590 } 591 591 } … … 763 763 #endif 764 764 default: 765 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");765 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 766 766 } 767 767 … … 775 775 /*FUNCTION Tria::ComputeBasalStress {{{*/ 776 776 void Tria::ComputeBasalStress(Vector* eps){ 777 _error 2_("Not Implemented yet");777 _error_("Not Implemented yet"); 778 778 } 779 779 /*}}}*/ 780 780 /*FUNCTION Tria::ComputeStrainRate {{{*/ 781 781 void Tria::ComputeStrainRate(Vector* eps){ 782 _error 2_("Not Implemented yet");782 _error_("Not Implemented yet"); 783 783 } 784 784 /*}}}*/ … … 1088 1088 return i; 1089 1089 } 1090 _error 2_("Node provided not found among element nodes");1090 _error_("Node provided not found among element nodes"); 1091 1091 } 1092 1092 /*}}}*/ … … 1100 1100 /*Recover input*/ 1101 1101 Input* input=inputs->GetInput(enumtype); 1102 if (!input) _error 2_("Input " << EnumToStringx(enumtype) << " not found in element");1102 if (!input) _error_("Input " << EnumToStringx(enumtype) << " not found in element"); 1103 1103 1104 1104 /*Checks in debugging mode*/ … … 1172 1172 1173 1173 Input* input=inputs->GetInput(enumtype); 1174 if(!input) _error 2_("No input of type " << EnumToStringx(enumtype) << " found in tria");1174 if(!input) _error_("No input of type " << EnumToStringx(enumtype) << " found in tria"); 1175 1175 1176 1176 GaussTria* gauss=new GaussTria(); … … 1214 1214 #endif 1215 1215 default: 1216 _error 2_("analysis: " << EnumToStringx(analysis_type) << " not supported yet");1216 _error_("analysis: " << EnumToStringx(analysis_type) << " not supported yet"); 1217 1217 } 1218 1218 … … 1230 1230 /*Check that both inputs have been found*/ 1231 1231 if (!vx_input || !vy_input){ 1232 _error 2_("Input missing. Here are the input pointers we have for vx: " << vx_input << ", vy: " << vy_input << "\n");1232 _error_("Input missing. Here are the input pointers we have for vx: " << vx_input << ", vy: " << vy_input << "\n"); 1233 1233 } 1234 1234 … … 1254 1254 /*Get input (either in element or material)*/ 1255 1255 Input* input=inputs->GetInput(input_enum); 1256 if(!input) _error 2_("Input " << EnumToStringx(input_enum) << " not found in element");1256 if(!input) _error_("Input " << EnumToStringx(input_enum) << " not found in element"); 1257 1257 1258 1258 /*We found the enum. Use its values to fill into the vector, using the vertices ids: */ … … 1266 1266 ElementResult* elementresult=(ElementResult*)this->results->GetObjectByOffset(offset); 1267 1267 if(elementresult->InstanceEnum()!=enum_in){ 1268 _error 2_("Results of offset "<<offset<<" is "<<EnumToStringx(elementresult->InstanceEnum())<<" when "<<EnumToStringx(enum_in)<<" was expected");1268 _error_("Results of offset "<<offset<<" is "<<EnumToStringx(elementresult->InstanceEnum())<<" when "<<EnumToStringx(enum_in)<<" was expected"); 1269 1269 } 1270 1270 if(interp==P1Enum){ … … 1304 1304 /*Make a copy of the original input: */ 1305 1305 input=(Input*)this->inputs->GetInput(enum_type); 1306 if(!input)_error 2_("could not find old input with enum: " << EnumToStringx(enum_type));1306 if(!input)_error_("could not find old input with enum: " << EnumToStringx(enum_type)); 1307 1307 1308 1308 /*ArtificialNoise: */ … … 1324 1324 new_inputs[i]=(Input*)this->inputs->GetInput(enums[2*i+0]); 1325 1325 old_inputs[i]=(Input*)this->inputs->GetInput(enums[2*i+1]); 1326 if(!new_inputs[i])_error 2_("could not find input with enum " << EnumToStringx(enums[2*i+0]));1327 if(!old_inputs[i])_error 2_("could not find input with enum " << EnumToStringx(enums[2*i+0]));1326 if(!new_inputs[i])_error_("could not find input with enum " << EnumToStringx(enums[2*i+0])); 1327 if(!old_inputs[i])_error_("could not find input with enum " << EnumToStringx(enums[2*i+0])); 1328 1328 } 1329 1329 … … 1353 1353 oldinput=(Input*)this->matice->inputs->GetInput(enum_type); 1354 1354 else 1355 _error 2_("object " << EnumToStringx(object_enum) << " not supported yet");1356 if(!oldinput)_error 2_("could not find old input with enum: " << EnumToStringx(enum_type));1355 _error_("object " << EnumToStringx(object_enum) << " not supported yet"); 1356 if(!oldinput)_error_("could not find old input with enum: " << EnumToStringx(enum_type)); 1357 1357 newinput=(Input*)oldinput->copy(); 1358 1358 … … 1366 1366 this->matice->inputs->AddInput((Input*)newinput); 1367 1367 else 1368 _error 2_("object " << EnumToStringx(object_enum) << " not supported yet");1368 _error_("object " << EnumToStringx(object_enum) << " not supported yet"); 1369 1369 } 1370 1370 /*}}}*/ … … 1384 1384 /*Make a copy of the original input: */ 1385 1385 input=(Input*)this->inputs->GetInput(enum_type); 1386 if(!input)_error 2_("could not find old input with enum: " << EnumToStringx(enum_type));1386 if(!input)_error_("could not find old input with enum: " << EnumToStringx(enum_type)); 1387 1387 1388 1388 /*Scale: */ … … 1399 1399 if (enum_type==MaterialsRheologyBbarEnum) input=this->matice->inputs->GetInput(enum_type); 1400 1400 else input=this->inputs->GetInput(enum_type); 1401 //if (!input) _error 2_("Input " << EnumToStringx(enum_type) << " not found in tria->inputs");1401 //if (!input) _error_("Input " << EnumToStringx(enum_type) << " not found in tria->inputs"); 1402 1402 if(!input)return; 1403 1403 … … 1505 1505 /*Matice will take care of it*/ break; 1506 1506 default: 1507 _error 2_("Control " << EnumToStringx((int)iomodel->Data(InversionControlParametersEnum)[i]) << " not implemented yet");1507 _error_("Control " << EnumToStringx((int)iomodel->Data(InversionControlParametersEnum)[i]) << " not implemented yet"); 1508 1508 } 1509 1509 } … … 1577 1577 break; 1578 1578 default: 1579 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");1579 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 1580 1580 } 1581 1581 } … … 1595 1595 for(int i=0;i<numdof;i++){ 1596 1596 values[i]=solution[doflist[i]]; 1597 if(xIsNan<IssmDouble>(values[i])) _error 2_("NaN found in solution vector");1597 if(xIsNan<IssmDouble>(values[i])) _error_("NaN found in solution vector"); 1598 1598 } 1599 1599 … … 1628 1628 for(i=0;i<numdof;i++){ 1629 1629 newthickness[i]=solution[doflist[i]]; 1630 if(xIsNan<IssmDouble>(newthickness[i])) _error 2_("NaN found in solution vector");1630 if(xIsNan<IssmDouble>(newthickness[i])) _error_("NaN found in solution vector"); 1631 1631 /*Constrain thickness to be at least 1m*/ 1632 1632 if(newthickness[i]<minthickness) newthickness[i]=minthickness; … … 1659 1659 newbed[i]=oldbed[i]-rho_ice/rho_water*(newthickness[i]-oldthickness[i]); //bed = oldbed + di * dH 1660 1660 } 1661 else _error 2_("Hydrostatic adjustment " << hydroadjustment << " (" << EnumToStringx(hydroadjustment) << ") not supported yet");1661 else _error_("Hydrostatic adjustment " << hydroadjustment << " (" << EnumToStringx(hydroadjustment) << ") not supported yet"); 1662 1662 } 1663 1663 } … … 1700 1700 } 1701 1701 default: 1702 _error 2_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet");1702 _error_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet"); 1703 1703 } 1704 1704 } … … 1706 1706 /*FUNCTION Tria::InputUpdateFromVector(int* vector, int name, int type);{{{*/ 1707 1707 void Tria::InputUpdateFromVector(int* vector, int name, int type){ 1708 _error 2_("not supported yet!");1708 _error_("not supported yet!"); 1709 1709 } 1710 1710 /*}}}*/ 1711 1711 /*FUNCTION Tria::InputUpdateFromVector(bool* vector, int name, int type);{{{*/ 1712 1712 void Tria::InputUpdateFromVector(bool* vector, int name, int type){ 1713 _error 2_("not supported yet!");1713 _error_("not supported yet!"); 1714 1714 } 1715 1715 /*}}}*/ … … 1729 1729 this->inputs->AddInput(new DoubleInput(name,reCast<int>(scalar))); 1730 1730 } 1731 else _error 2_("could not recognize nature of vector from code " << code);1731 else _error_("could not recognize nature of vector from code " << code); 1732 1732 1733 1733 } … … 1795 1795 this->inputs->AddInput(transientinput); 1796 1796 } 1797 else _error 2_("nodal vector is either numberofnodes or numberofnodes+1 long. Field provided (" << EnumToStringx(vector_enum) << ") is " << M << " long");1797 else _error_("nodal vector is either numberofnodes or numberofnodes+1 long. Field provided (" << EnumToStringx(vector_enum) << ") is " << M << " long"); 1798 1798 } 1799 1799 else if(vector_type==2){ //element vector … … 1812 1812 this->inputs->AddInput(new DoubleInput(vector_enum,vector[index])); 1813 1813 } 1814 else _error 2_("could not recognize nature of vector from code " << code);1814 else _error_("could not recognize nature of vector from code " << code); 1815 1815 } 1816 1816 else { 1817 _error 2_("transient elementary inputs not supported yet!");1817 _error_("transient elementary inputs not supported yet!"); 1818 1818 } 1819 1819 } 1820 1820 else{ 1821 _error 2_("Cannot add input for vector type " << vector_type << " (not supported)");1821 _error_("Cannot add input for vector type " << vector_type << " (not supported)"); 1822 1822 } 1823 1823 … … 2246 2246 void Tria::SetClone(int* minranks){ 2247 2247 2248 _error 2_("not implemented yet");2248 _error_("not implemented yet"); 2249 2249 } 2250 2250 /*}}}*/ 2251 2251 /*FUNCTION Tria::SmearFunction {{{*/ 2252 2252 void Tria::SmearFunction(Vector* smearedvector,IssmDouble (*WeightFunction)(IssmDouble distance,IssmDouble radius),IssmDouble radius){ 2253 _error 2_("not implemented yet");2253 _error_("not implemented yet"); 2254 2254 2255 2255 } … … 2398 2398 this->MaxAbsVy(&maxabsvy,false); 2399 2399 #else 2400 _error 2_("ISSM was not compiled with responses compiled in, exiting!");2400 _error_("ISSM was not compiled with responses compiled in, exiting!"); 2401 2401 #endif 2402 2402 … … 2591 2591 2592 2592 /*First off, check that this segment belongs to this element: */ 2593 if ((int)*(segment+4)!=this->id)_error 2_("error message: segment with id " << (int)*(segment+4) << " does not belong to element with id:" << this->id);2593 if ((int)*(segment+4)!=this->id)_error_("error message: segment with id " << (int)*(segment+4) << " does not belong to element with id:" << this->id); 2594 2594 2595 2595 /*Recover segment node locations: */ … … 2810 2810 *presponse=vel; 2811 2811 default: 2812 _error 2_("Response type " << EnumToStringx(response_enum) << " not supported yet!");2812 _error_("Response type " << EnumToStringx(response_enum) << " not supported yet!"); 2813 2813 } 2814 2814 … … 3297 3297 3298 3298 /*Check solution*/ 3299 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");3300 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");3299 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 3300 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 3301 3301 } 3302 3302 … … 3357 3357 3358 3358 /*Check solution*/ 3359 if(xIsNan<IssmDouble>(vx[i])) _error 2_("NaN found in solution vector");3360 if(xIsNan<IssmDouble>(vy[i])) _error 2_("NaN found in solution vector");3359 if(xIsNan<IssmDouble>(vx[i])) _error_("NaN found in solution vector"); 3360 if(xIsNan<IssmDouble>(vy[i])) _error_("NaN found in solution vector"); 3361 3361 } 3362 3362 … … 3413 3413 3414 3414 if (input->ObjectEnum()!=ControlInputEnum){ 3415 _error 2_("input " << EnumToStringx(control_type[i]) << " is not a ControlInput");3415 _error_("input " << EnumToStringx(control_type[i]) << " is not a ControlInput"); 3416 3416 } 3417 3417 … … 3438 3438 input=inputs->GetInput(enum_type); 3439 3439 } 3440 if (!input) _error 2_("Input " << EnumToStringx(enum_type) << " not found");3441 if (input->ObjectEnum()!=ControlInputEnum) _error 2_("Input " << EnumToStringx(enum_type) << " is not a ControlInput");3440 if (!input) _error_("Input " << EnumToStringx(enum_type) << " not found"); 3441 if (input->ObjectEnum()!=ControlInputEnum) _error_("Input " << EnumToStringx(enum_type) << " is not a ControlInput"); 3442 3442 3443 3443 GradientIndexing(&doflist1[0],control_index); … … 3456 3456 input=inputs->GetInput(enum_type); 3457 3457 } 3458 if (!input) _error 2_("Input " << EnumToStringx(enum_type) << " not found");3459 if (input->ObjectEnum()!=ControlInputEnum) _error 2_("Input " << EnumToStringx(enum_type) << " is not a ControlInput");3458 if (!input) _error_("Input " << EnumToStringx(enum_type) << " not found"); 3459 if (input->ObjectEnum()!=ControlInputEnum) _error_("Input " << EnumToStringx(enum_type) << " is not a ControlInput"); 3460 3460 3461 3461 ((ControlInput*)input)->ScaleGradient(scale); … … 3475 3475 input=inputs->GetInput(enum_type); 3476 3476 } 3477 if (!input) _error 2_("Input " << EnumToStringx(enum_type) << " not found");3478 if (input->ObjectEnum()!=ControlInputEnum) _error 2_("Input " << EnumToStringx(enum_type) << " is not a ControlInput");3477 if (!input) _error_("Input " << EnumToStringx(enum_type) << " not found"); 3478 if (input->ObjectEnum()!=ControlInputEnum) _error_("Input " << EnumToStringx(enum_type) << " is not a ControlInput"); 3479 3479 3480 3480 GradientIndexing(&doflist1[0],control_index); … … 3510 3510 break; 3511 3511 default: 3512 _error 2_("control type not supported yet: " << control_type);3512 _error_("control type not supported yet: " << control_type); 3513 3513 } 3514 3514 … … 3540 3540 break; 3541 3541 default: 3542 _error 2_("response " << EnumToStringx(responses[resp]) << " not supported yet");3542 _error_("response " << EnumToStringx(responses[resp]) << " not supported yet"); 3543 3543 } 3544 3544 … … 4521 4521 break; 4522 4522 default: 4523 _error 2_("response " << EnumToStringx(responses[resp]) << " not supported yet");4523 _error_("response " << EnumToStringx(responses[resp]) << " not supported yet"); 4524 4524 } 4525 4525 } … … 4705 4705 break; 4706 4706 default: 4707 _error 2_("response " << EnumToStringx(responses[resp]) << " not supported yet");4707 _error_("response " << EnumToStringx(responses[resp]) << " not supported yet"); 4708 4708 } 4709 4709 } … … 4888 4888 break; 4889 4889 default: 4890 _error 2_("response " << EnumToStringx(responses[resp]) << " not supported yet");4890 _error_("response " << EnumToStringx(responses[resp]) << " not supported yet"); 4891 4891 } 4892 4892 } … … 4957 4957 break; 4958 4958 default: 4959 _error 2_("Element type " << EnumToStringx(GetElementType()) << " not supported yet");4959 _error_("Element type " << EnumToStringx(GetElementType()) << " not supported yet"); 4960 4960 } 4961 4961 … … 5058 5058 5059 5059 /*Check solution*/ 5060 if(xIsNan<IssmDouble>(lambdax[i])) _error 2_("NaN found in solution vector");5061 if(xIsNan<IssmDouble>(lambday[i])) _error 2_("NaN found in solution vector");5060 if(xIsNan<IssmDouble>(lambdax[i])) _error_("NaN found in solution vector"); 5061 if(xIsNan<IssmDouble>(lambday[i])) _error_("NaN found in solution vector"); 5062 5062 } 5063 5063 … … 5089 5089 for(i=0;i<numdof;i++){ 5090 5090 lambda[i]=values[i]; 5091 if(xIsNan<IssmDouble>(lambda[i])) _error 2_("NaN found in solution vector");5091 if(xIsNan<IssmDouble>(lambda[i])) _error_("NaN found in solution vector"); 5092 5092 } 5093 5093 … … 5121 5121 /*Check that it is a ControlInput*/ 5122 5122 if (input->ObjectEnum()!=ControlInputEnum){ 5123 _error 2_("input " << EnumToStringx(control_enum) << " is not a ControlInput");5123 _error_("input " << EnumToStringx(control_enum) << " is not a ControlInput"); 5124 5124 } 5125 5125 … … 5155 5155 5156 5156 if (input->ObjectEnum()!=ControlInputEnum){ 5157 _error 2_("input " << EnumToStringx(control_enum) << " is not a ControlInput");5157 _error_("input " << EnumToStringx(control_enum) << " is not a ControlInput"); 5158 5158 } 5159 5159 … … 5425 5425 for(i=0;i<numdof;i++){ 5426 5426 values[i]=solution[doflist[i]]; 5427 if(xIsNan<IssmDouble>(values[i])) _error 2_("NaN found in solution vector");5427 if(xIsNan<IssmDouble>(values[i])) _error_("NaN found in solution vector"); 5428 5428 if (values[i]<pow((IssmDouble)10,(IssmDouble)-10))values[i]=pow((IssmDouble)10,(IssmDouble)-10); //correcting the water column to positive values 5429 5429 … … 5524 5524 5525 5525 default: 5526 _error 2_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet");5526 _error_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet"); 5527 5527 } 5528 5528 … … 5531 5531 /*FUNCTION Tria::InputUpdateFromVectorDakota(int* vector, int name, int type);{{{*/ 5532 5532 void Tria::InputUpdateFromVectorDakota(int* vector, int name, int type){ 5533 _error 2_("not supported yet!");5533 _error_("not supported yet!"); 5534 5534 } 5535 5535 /*}}}*/ 5536 5536 /*FUNCTION Tria::InputUpdateFromVectorDakota(bool* vector, int name, int type);{{{*/ 5537 5537 void Tria::InputUpdateFromVectorDakota(bool* vector, int name, int type){ 5538 _error 2_("not supported yet!");5538 _error_("not supported yet!"); 5539 5539 } 5540 5540 /*}}}*/ … … 5578 5578 5579 5579 default: 5580 _error 2_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet");5580 _error_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet"); 5581 5581 } 5582 5582 … … 5595 5595 return CreateKMatrixBalancethickness_DG(); 5596 5596 default: 5597 _error 2_("Element type " << EnumToStringx(GetElementType()) << " not supported yet");5597 _error_("Element type " << EnumToStringx(GetElementType()) << " not supported yet"); 5598 5598 } 5599 5599 … … 5774 5774 return CreatePVectorBalancethickness_DG(); 5775 5775 default: 5776 _error 2_("Element type " << EnumToStringx(GetElementType()) << " not supported yet");5776 _error_("Element type " << EnumToStringx(GetElementType()) << " not supported yet"); 5777 5777 } 5778 5778 } -
issm/trunk-jpl/src/c/classes/objects/Elements/Tria.h
r12927 r13036 100 100 void InputToResult(int enum_type,int step,IssmDouble time); 101 101 void DeleteResults(void); 102 void MaterialUpdateFromTemperature(void){_error 2_("not implemented yet");};102 void MaterialUpdateFromTemperature(void){_error_("not implemented yet");}; 103 103 void MigrateGroundingLine(IssmDouble* oldfloating,IssmDouble* sheet_ungrounding); 104 104 int NodalValue(IssmDouble* pvalue, int index, int natureofdataenum,bool process_units); … … 110 110 void PatchSize(int* pnumrows, int* pnumvertices,int* pnumnodes); 111 111 void ProcessResultsUnits(void); 112 void ResetCoordinateSystem(void){_error 2_("not implemented yet");};112 void ResetCoordinateSystem(void){_error_("not implemented yet");}; 113 113 void SmbGradients(); 114 114 IssmDouble SurfaceArea(void); -
issm/trunk-jpl/src/c/classes/objects/Elements/TriaRef.cpp
r12832 r13036 338 338 339 339 *Jdet=1.0/2.0*sqrt(pow(x2-x1,2.) + pow(y2-y1,2.)); 340 if(*Jdet<0) _error 2_("negative jacobian determinant!");340 if(*Jdet<0) _error_("negative jacobian determinant!"); 341 341 342 342 } … … 353 353 /*Get Determinant*/ 354 354 Matrix2x2Determinant(Jdet,&J[0][0]); 355 if(*Jdet<0) _error 2_("negative jacobian determinant!");355 if(*Jdet<0) _error_("negative jacobian determinant!"); 356 356 357 357 } … … 375 375 376 376 *Jdet=SQRT3/6.0*pow(pow(((y2-y1)*(z3-z1)-(z2-z1)*(y3-y1)),2.0)+pow(((z2-z1)*(x3-x1)-(x2-x1)*(z3-z1)),2.0)+pow(((x2-x1)*(y3-y1)-(y2-y1)*(x3-x1)),2.0),0.5); 377 if(*Jdet<0) _error 2_("negative jacobian determinant!");377 if(*Jdet<0) _error_("negative jacobian determinant!"); 378 378 379 379 } -
issm/trunk-jpl/src/c/classes/objects/Inputs/BoolInput.cpp
r12832 r13036 112 112 /*}}}*/ 113 113 /*FUNCTION BoolInput::GetInputValue(int* pvalue){{{*/ 114 void BoolInput::GetInputValue(int* pvalue){_error 2_("not supported yet!");}114 void BoolInput::GetInputValue(int* pvalue){_error_("not supported yet!");} 115 115 /*}}}*/ 116 116 /*FUNCTION BoolInput::GetInputValue(IssmDouble* pvalue){{{*/ 117 void BoolInput::GetInputValue(IssmDouble* pvalue){_error 2_("not supported yet!");}117 void BoolInput::GetInputValue(IssmDouble* pvalue){_error_("not supported yet!");} 118 118 /*}}}*/ 119 119 /*FUNCTION BoolInput::GetInputValue(IssmDouble* pvalue,GaussTria* gauss){{{*/ 120 void BoolInput::GetInputValue(IssmDouble* pvalue,GaussTria* gauss){_error 2_("not supported yet!");}120 void BoolInput::GetInputValue(IssmDouble* pvalue,GaussTria* gauss){_error_("not supported yet!");} 121 121 /*}}}*/ 122 122 /*FUNCTION BoolInput::GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){{{*/ 123 void BoolInput::GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){_error 2_("not supported yet!");}123 void BoolInput::GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){_error_("not supported yet!");} 124 124 /*}}}*/ 125 125 /*FUNCTION BoolInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){{{*/ 126 void BoolInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not supported yet!");}126 void BoolInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error_("not supported yet!");} 127 127 /*}}}*/ 128 128 /*FUNCTION BoolInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){{{*/ 129 void BoolInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not supported yet!");}129 void BoolInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error_("not supported yet!");} 130 130 /*}}}*/ 131 131 /*FUNCTION BoolInput::ChangeEnum{{{*/ … … 161 161 162 162 default: 163 _error 2_("not implemented yet");163 _error_("not implemented yet"); 164 164 } 165 165 … … 176 176 void BoolInput::GetVectorFromInputs(Vector* vector,int* doflist){ 177 177 178 _error 2_("not supporte yet!");178 _error_("not supporte yet!"); 179 179 180 180 } … … 183 183 void BoolInput::GetValuesPtr(IssmDouble** pvalues,int* pnum_values){ 184 184 185 _error 2_("not supported yet!");185 _error_("not supported yet!"); 186 186 187 187 } -
issm/trunk-jpl/src/c/classes/objects/Inputs/BoolInput.h
r12832 r13036 37 37 int InstanceEnum(); 38 38 Input* SpawnTriaInput(int* indices); 39 Input* PointwiseDivide(Input* inputB){_error 2_("not implemented yet");};40 Input* PointwiseMin(Input* inputB){_error 2_("not implemented yet");};41 Input* PointwiseMax(Input* inputB){_error 2_("not implemented yet");};39 Input* PointwiseDivide(Input* inputB){_error_("not implemented yet");}; 40 Input* PointwiseMin(Input* inputB){_error_("not implemented yet");}; 41 Input* PointwiseMax(Input* inputB){_error_("not implemented yet");}; 42 42 ElementResult* SpawnResult(int step, IssmDouble time); 43 43 void Configure(Parameters* parameters); 44 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error 2_("not supported yet");};44 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error_("not supported yet");}; 45 45 /*}}}*/ 46 46 /*numerics: {{{*/ … … 50 50 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss); 51 51 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss); 52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error 2_("not implemented yet");};53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error 2_("not implemented yet");};54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error 2_("not implemented yet");};55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error 2_("not implemented yet");};52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error_("not implemented yet");}; 53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error_("not implemented yet");}; 54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error_("not implemented yet");}; 55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error_("not implemented yet");}; 56 56 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss); 57 57 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss); 58 void GetInputAverage(IssmDouble* pvalue){_error 2_("not implemented yet");};59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};63 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};64 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};65 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};58 void GetInputAverage(IssmDouble* pvalue){_error_("not implemented yet");}; 59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 63 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 64 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 65 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 66 66 void ChangeEnum(int newenumtype); 67 67 void SquareMin(IssmDouble* psquaremin, bool process_units,Parameters* parameters); 68 void ConstrainMin(IssmDouble minimum){_error 2_("not implemented yet");};69 IssmDouble InfinityNorm(void){_error 2_("InfinityNorm not implemented for booleans");};70 IssmDouble Max(void){_error 2_("Max not implemented for booleans");};71 IssmDouble MaxAbs(void){_error 2_("Max not implemented for booleans");};72 IssmDouble Min(void){_error 2_("Min not implemented for booleans");};73 IssmDouble MinAbs(void){_error 2_("Min not implemented for booleans");};68 void ConstrainMin(IssmDouble minimum){_error_("not implemented yet");}; 69 IssmDouble InfinityNorm(void){_error_("InfinityNorm not implemented for booleans");}; 70 IssmDouble Max(void){_error_("Max not implemented for booleans");}; 71 IssmDouble MaxAbs(void){_error_("Max not implemented for booleans");}; 72 IssmDouble Min(void){_error_("Min not implemented for booleans");}; 73 IssmDouble MinAbs(void){_error_("Min not implemented for booleans");}; 74 74 void Scale(IssmDouble scale_factor); 75 void ArtificialNoise(IssmDouble min,IssmDouble max){_error 2_("not implemented yet");};75 void ArtificialNoise(IssmDouble min,IssmDouble max){_error_("not implemented yet");}; 76 76 void AXPY(Input* xinput,IssmDouble scalar); 77 void Constrain(IssmDouble cm_min, IssmDouble cm_max){_error 2_("Constrain not implemented for booleans");};77 void Constrain(IssmDouble cm_min, IssmDouble cm_max){_error_("Constrain not implemented for booleans");}; 78 78 void Extrude(void); 79 void VerticallyIntegrate(Input* thickness_input){_error 2_("not supported yet");};79 void VerticallyIntegrate(Input* thickness_input){_error_("not supported yet");}; 80 80 void GetVectorFromInputs(Vector* vector,int* doflist); 81 81 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values); -
issm/trunk-jpl/src/c/classes/objects/Inputs/ControlInput.cpp
r12832 r13036 48 48 break; 49 49 default: 50 _error 2_("Input of Enum " << EnumToStringx(enum_input) << " not supported yet by ControlInput");50 _error_("Input of Enum " << EnumToStringx(enum_input) << " not supported yet by ControlInput"); 51 51 } 52 52 gradient =NULL; … … 152 152 /*FUNCTION ControlInput::ScaleGradient{{{*/ 153 153 void ControlInput::ScaleGradient(IssmDouble scaling_factor){ 154 if(!gradient) _error 2_("Gradient of ControlInput " << EnumToStringx(enum_type) << " not found");154 if(!gradient) _error_("Gradient of ControlInput " << EnumToStringx(enum_type) << " not found"); 155 155 gradient->Scale(scaling_factor); 156 156 }/*}}}*/ … … 170 170 break; 171 171 default: 172 _error 2_("more than 3 controls not implemented yet (Gradient " << this->control_id << " was requested). EnumDefinitions.h needs to be updated.");172 _error_("more than 3 controls not implemented yet (Gradient " << this->control_id << " was requested). EnumDefinitions.h needs to be updated."); 173 173 } 174 174 … … 221 221 } 222 222 else{ 223 _error 2_("Data " << data << " not supported yet");223 _error_("Data " << data << " not supported yet"); 224 224 } 225 225 }/*}}}*/ … … 258 258 /*FUNCTION ControlInput::SaveValue{{{*/ 259 259 void ControlInput::SaveValue(void){ 260 if(!values) _error 2_("Values of " << EnumToStringx(this->enum_type) << " not found");260 if(!values) _error_("Values of " << EnumToStringx(this->enum_type) << " not found"); 261 261 262 262 if(savedvalues) delete this->savedvalues; … … 265 265 /*FUNCTION ControlInput::UpdateValue{{{*/ 266 266 void ControlInput::UpdateValue(IssmDouble scalar){ 267 if(!gradient) _error 2_("Gradient of " << EnumToStringx(this->enum_type) << " not found");268 if(!savedvalues) _error 2_("Values of " << EnumToStringx(this->enum_type) << " not found");267 if(!gradient) _error_("Gradient of " << EnumToStringx(this->enum_type) << " not found"); 268 if(!savedvalues) _error_("Values of " << EnumToStringx(this->enum_type) << " not found"); 269 269 270 270 if(values) delete this->values; -
issm/trunk-jpl/src/c/classes/objects/Inputs/ControlInput.h
r12832 r13036 41 41 int InstanceEnum(); 42 42 Input* SpawnTriaInput(int* indices); 43 Input* PointwiseDivide(Input* inputB){_error 2_("not implemented yet");};44 Input* PointwiseMin(Input* inputB){_error 2_("not implemented yet");};45 Input* PointwiseMax(Input* inputB){_error 2_("not implemented yet");};43 Input* PointwiseDivide(Input* inputB){_error_("not implemented yet");}; 44 Input* PointwiseMin(Input* inputB){_error_("not implemented yet");}; 45 Input* PointwiseMax(Input* inputB){_error_("not implemented yet");}; 46 46 ElementResult* SpawnResult(int step, IssmDouble time); 47 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error 2_("not supported yet");};47 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error_("not supported yet");}; 48 48 void Configure(Parameters* parameters); 49 49 /*}}}*/ … … 55 55 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss); 56 56 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss); 57 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error 2_("not implemented yet");};58 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error 2_("not implemented yet");};59 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error 2_("not implemented yet");};60 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error 2_("not implemented yet");};57 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error_("not implemented yet");}; 58 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error_("not implemented yet");}; 59 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error_("not implemented yet");}; 60 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error_("not implemented yet");}; 61 61 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss); 62 62 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss); 63 63 void GetInputAverage(IssmDouble* pvalue); 64 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};65 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};66 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};67 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};68 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};69 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};70 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};71 void ChangeEnum(int newenumtype){_error 2_("not implemented yet");};72 void SquareMin(IssmDouble* psquaremin, bool process_units,Parameters* parameters){_error 2_("not implemented yet");};73 void ConstrainMin(IssmDouble minimum){_error 2_("not implemented yet");};74 void Scale(IssmDouble scale_factor){_error 2_("not implemented yet");};75 void ArtificialNoise(IssmDouble min,IssmDouble max){_error 2_("not implemented yet");};76 void AXPY(Input* xinput,IssmDouble scalar){_error 2_("not implemented yet");};64 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 65 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 66 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 67 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 68 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 69 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 70 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 71 void ChangeEnum(int newenumtype){_error_("not implemented yet");}; 72 void SquareMin(IssmDouble* psquaremin, bool process_units,Parameters* parameters){_error_("not implemented yet");}; 73 void ConstrainMin(IssmDouble minimum){_error_("not implemented yet");}; 74 void Scale(IssmDouble scale_factor){_error_("not implemented yet");}; 75 void ArtificialNoise(IssmDouble min,IssmDouble max){_error_("not implemented yet");}; 76 void AXPY(Input* xinput,IssmDouble scalar){_error_("not implemented yet");}; 77 77 void Constrain(void); 78 78 void Constrain(IssmDouble min,IssmDouble max); 79 IssmDouble InfinityNorm(void){_error 2_("not implemented yet");};80 IssmDouble Max(void){_error 2_("not implemented yet");};81 IssmDouble MaxAbs(void){_error 2_("not implemented yet");};82 IssmDouble Min(void){_error 2_("not implemented yet");};83 IssmDouble MinAbs(void){_error 2_("not implemented yet");};79 IssmDouble InfinityNorm(void){_error_("not implemented yet");}; 80 IssmDouble Max(void){_error_("not implemented yet");}; 81 IssmDouble MaxAbs(void){_error_("not implemented yet");}; 82 IssmDouble Min(void){_error_("not implemented yet");}; 83 IssmDouble MinAbs(void){_error_("not implemented yet");}; 84 84 void Extrude(void); 85 85 void VerticallyIntegrate(Input* thickness_input); 86 86 void GetVectorFromInputs(Vector* vector,int* doflist,const char* data); 87 87 void GetVectorFromInputs(Vector* vector,int* doflist); 88 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values){_error 2_("not implemented yet");};88 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values){_error_("not implemented yet");}; 89 89 ElementResult* SpawnGradient(int step, IssmDouble time); 90 90 void GetGradient(Vector* gradient_vec,int* doflist); -
issm/trunk-jpl/src/c/classes/objects/Inputs/DatasetInput.cpp
r12832 r13036 115 115 116 116 /*Get requested input within dataset*/ 117 if(index<0 || index > inputs->Size()-1) _error 2_("index requested (" << index << ") exceeds dataset size (" << inputs->Size() << ")");117 if(index<0 || index > inputs->Size()-1) _error_("index requested (" << index << ") exceeds dataset size (" << inputs->Size() << ")"); 118 118 Input* input=(Input*)this->inputs->GetObjectByOffset(index); 119 119 -
issm/trunk-jpl/src/c/classes/objects/Inputs/DatasetInput.h
r12832 r13036 37 37 int InstanceEnum(); 38 38 Input* SpawnTriaInput(int* indices); 39 Input* PointwiseDivide(Input* inputB){_error 2_("not implemented yet");};40 Input* PointwiseMin(Input* inputB){_error 2_("not implemented yet");};41 Input* PointwiseMax(Input* inputB){_error 2_("not implemented yet");};42 ElementResult* SpawnResult(int step, IssmDouble time){_error 2_("not implemented yet");};43 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error 2_("not supported yet");};39 Input* PointwiseDivide(Input* inputB){_error_("not implemented yet");}; 40 Input* PointwiseMin(Input* inputB){_error_("not implemented yet");}; 41 Input* PointwiseMax(Input* inputB){_error_("not implemented yet");}; 42 ElementResult* SpawnResult(int step, IssmDouble time){_error_("not implemented yet");}; 43 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error_("not supported yet");}; 44 44 void Configure(Parameters* parameters); 45 45 /*}}}*/ 46 46 /*numerics: {{{*/ 47 void GetInputValue(bool* pvalue){_error 2_("not implemented yet");};48 void GetInputValue(int* pvalue){_error 2_("not implemented yet");};49 void GetInputValue(IssmDouble* pvalue){_error 2_("not implemented yet");};50 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss){_error 2_("not implemented yet");};51 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){_error 2_("not implemented yet");};52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error 2_("not implemented yet");};53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error 2_("not implemented yet");};47 void GetInputValue(bool* pvalue){_error_("not implemented yet");}; 48 void GetInputValue(int* pvalue){_error_("not implemented yet");}; 49 void GetInputValue(IssmDouble* pvalue){_error_("not implemented yet");}; 50 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss){_error_("not implemented yet");}; 51 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){_error_("not implemented yet");}; 52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error_("not implemented yet");}; 53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error_("not implemented yet");}; 54 54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index); 55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error 2_("not implemented yet");};56 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};57 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};58 void GetInputAverage(IssmDouble* pvalue){_error 2_("not implemented yet");};59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};63 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};64 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};65 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};66 void ChangeEnum(int newenumtype){_error 2_("not implemented yet");};67 void SquareMin(IssmDouble* psquaremin, bool process_units,Parameters* parameters){_error 2_("not implemented yet");};68 void ConstrainMin(IssmDouble minimum){_error 2_("not implemented yet");};69 void Scale(IssmDouble scale_factor){_error 2_("not implemented yet");};70 void ArtificialNoise(IssmDouble min,IssmDouble max){_error 2_("not implemented yet");};71 void AXPY(Input* xinput,IssmDouble scalar){_error 2_("not implemented yet");};72 void Constrain(void){_error 2_("not implemented yet");};73 void Constrain(IssmDouble min,IssmDouble max){_error 2_("not implemented yet");};74 IssmDouble InfinityNorm(void){_error 2_("not implemented yet");};75 IssmDouble Max(void){_error 2_("not implemented yet");};76 IssmDouble MaxAbs(void){_error 2_("not implemented yet");};77 IssmDouble Min(void){_error 2_("not implemented yet");};78 IssmDouble MinAbs(void){_error 2_("not implemented yet");};79 void Extrude(void){_error 2_("not implemented yet");};80 void VerticallyIntegrate(Input* thickness_input){_error 2_("not implemented yet");};81 void GetVectorFromInputs(Vector* vector,int* doflist){_error 2_("not implemented yet");};82 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values){_error 2_("not implemented yet");};83 ElementResult* SpawnGradient(int step, IssmDouble time){_error 2_("not implemented yet");};84 void GetGradient(Vector* gradient_vec,int* doflist){_error 2_("not implemented yet");};85 void ScaleGradient(IssmDouble scale){_error 2_("not implemented yet");};86 void SetGradient(Input* gradient_in){_error 2_("not implemented yet");};87 void UpdateValue(IssmDouble scalar){_error 2_("not implemented yet");};88 void SaveValue(void){_error 2_("not implemented yet");};55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error_("not implemented yet");}; 56 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 57 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 58 void GetInputAverage(IssmDouble* pvalue){_error_("not implemented yet");}; 59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 63 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 64 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 65 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 66 void ChangeEnum(int newenumtype){_error_("not implemented yet");}; 67 void SquareMin(IssmDouble* psquaremin, bool process_units,Parameters* parameters){_error_("not implemented yet");}; 68 void ConstrainMin(IssmDouble minimum){_error_("not implemented yet");}; 69 void Scale(IssmDouble scale_factor){_error_("not implemented yet");}; 70 void ArtificialNoise(IssmDouble min,IssmDouble max){_error_("not implemented yet");}; 71 void AXPY(Input* xinput,IssmDouble scalar){_error_("not implemented yet");}; 72 void Constrain(void){_error_("not implemented yet");}; 73 void Constrain(IssmDouble min,IssmDouble max){_error_("not implemented yet");}; 74 IssmDouble InfinityNorm(void){_error_("not implemented yet");}; 75 IssmDouble Max(void){_error_("not implemented yet");}; 76 IssmDouble MaxAbs(void){_error_("not implemented yet");}; 77 IssmDouble Min(void){_error_("not implemented yet");}; 78 IssmDouble MinAbs(void){_error_("not implemented yet");}; 79 void Extrude(void){_error_("not implemented yet");}; 80 void VerticallyIntegrate(Input* thickness_input){_error_("not implemented yet");}; 81 void GetVectorFromInputs(Vector* vector,int* doflist){_error_("not implemented yet");}; 82 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values){_error_("not implemented yet");}; 83 ElementResult* SpawnGradient(int step, IssmDouble time){_error_("not implemented yet");}; 84 void GetGradient(Vector* gradient_vec,int* doflist){_error_("not implemented yet");}; 85 void ScaleGradient(IssmDouble scale){_error_("not implemented yet");}; 86 void SetGradient(Input* gradient_in){_error_("not implemented yet");}; 87 void UpdateValue(IssmDouble scalar){_error_("not implemented yet");}; 88 void SaveValue(void){_error_("not implemented yet");}; 89 89 /*}}}*/ 90 90 -
issm/trunk-jpl/src/c/classes/objects/Inputs/DoubleInput.cpp
r12832 r13036 108 108 /*FUNCTION DoubleInput::GetInputValue(bool* pvalue) {{{*/ 109 109 void DoubleInput::GetInputValue(bool* pvalue){ 110 _error 2_("Double input of enum " << EnumToStringx(enum_type) << " cannot return a boolean");110 _error_("Double input of enum " << EnumToStringx(enum_type) << " cannot return a boolean"); 111 111 112 112 } … … 114 114 /*FUNCTION DoubleInput::GetInputValue(int* pvalue){{{*/ 115 115 void DoubleInput::GetInputValue(int* pvalue){ 116 _error 2_("Double input of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an integer");116 _error_("Double input of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an integer"); 117 117 118 118 } … … 132 132 /*}}}*/ 133 133 /*FUNCTION DoubleInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){{{*/ 134 void DoubleInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not supported yet!");}134 void DoubleInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error_("not supported yet!");} 135 135 /*}}}*/ 136 136 /*FUNCTION DoubleInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){{{*/ 137 void DoubleInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not supported yet!");}137 void DoubleInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error_("not supported yet!");} 138 138 /*}}}*/ 139 139 /*FUNCTION DoubleInput::GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){{{*/ … … 217 217 218 218 default: 219 _error 2_("not implemented yet");219 _error_("not implemented yet"); 220 220 } 221 221 … … 253 253 void DoubleInput::GetVectorFromInputs(Vector* vector,int* doflist){ 254 254 255 _error 2_("not supporte yet!");255 _error_("not supporte yet!"); 256 256 257 257 } … … 260 260 void DoubleInput::GetValuesPtr(IssmDouble** pvalues,int* pnum_values){ 261 261 262 _error 2_("not supported yet!");262 _error_("not supported yet!"); 263 263 264 264 } … … 276 276 277 277 /*Check that input provided is a thickness*/ 278 if (thickness_input->InstanceEnum()!=ThicknessEnum) _error 2_("Input provided is not a Thickness (enum_type is " << EnumToStringx(thickness_input->InstanceEnum()) << ")");278 if (thickness_input->InstanceEnum()!=ThicknessEnum) _error_("Input provided is not a Thickness (enum_type is " << EnumToStringx(thickness_input->InstanceEnum()) << ")"); 279 279 280 280 /*vertically integrate depending on type:*/ … … 287 287 288 288 default: 289 _error 2_("not implemented yet");289 _error_("not implemented yet"); 290 290 } 291 291 } -
issm/trunk-jpl/src/c/classes/objects/Inputs/DoubleInput.h
r12832 r13036 40 40 Input* PointwiseMax(Input* inputB); 41 41 ElementResult* SpawnResult(int step, IssmDouble time); 42 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error 2_("not supported yet");};42 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error_("not supported yet");}; 43 43 void Configure(Parameters* parameters); 44 44 /*}}}*/ … … 49 49 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss); 50 50 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss); 51 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error 2_("not implemented yet");};52 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error 2_("not implemented yet");};53 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error 2_("not implemented yet");};54 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error 2_("not implemented yet");};51 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error_("not implemented yet");}; 52 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error_("not implemented yet");}; 53 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error_("not implemented yet");}; 54 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error_("not implemented yet");}; 55 55 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss); 56 56 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss); … … 67 67 void ConstrainMin(IssmDouble minimum); 68 68 void Scale(IssmDouble scale_factor); 69 void ArtificialNoise(IssmDouble min,IssmDouble max){_error 2_("not implemented yet");};69 void ArtificialNoise(IssmDouble min,IssmDouble max){_error_("not implemented yet");}; 70 70 void AXPY(Input* xinput,IssmDouble scalar); 71 71 void Constrain(IssmDouble cm_min, IssmDouble cm_max); 72 IssmDouble InfinityNorm(void){_error 2_("not implemented yet");};72 IssmDouble InfinityNorm(void){_error_("not implemented yet");}; 73 73 IssmDouble Max(void); 74 74 IssmDouble MaxAbs(void); 75 75 IssmDouble Min(void); 76 76 IssmDouble MinAbs(void); 77 void Extrude(void){_error 2_("not supported yet");};77 void Extrude(void){_error_("not supported yet");}; 78 78 void VerticallyIntegrate(Input* thickness_input); 79 79 void GetVectorFromInputs(Vector* vector,int* doflist); -
issm/trunk-jpl/src/c/classes/objects/Inputs/IntInput.cpp
r12832 r13036 99 99 ElementResult* IntInput::SpawnResult(int step, IssmDouble time){ 100 100 101 _error 2_("not supported yet!");101 _error_("not supported yet!"); 102 102 103 103 } … … 106 106 /*Object functions*/ 107 107 /*FUNCTION IntInput::GetInputValue(bool* pvalue) {{{*/ 108 void IntInput::GetInputValue(bool* pvalue){_error 2_("not supported yet!");}108 void IntInput::GetInputValue(bool* pvalue){_error_("not supported yet!");} 109 109 /*}}}*/ 110 110 /*FUNCTION IntInput::GetInputValue(int* pvalue){{{*/ … … 115 115 /*FUNCTION IntInput::GetInputValue(IssmDouble* pvalue){{{*/ 116 116 void IntInput::GetInputValue(IssmDouble* pvalue){ 117 _error 2_("IntInput cannot return a IssmDouble in parallel");117 _error_("IntInput cannot return a IssmDouble in parallel"); 118 118 } 119 119 /*}}}*/ 120 120 /*FUNCTION IntInput::GetInputValue(IssmDouble* pvalue,GaussTria* gauss){{{*/ 121 void IntInput::GetInputValue(IssmDouble* pvalue,GaussTria* gauss){_error 2_("not supported yet!");}121 void IntInput::GetInputValue(IssmDouble* pvalue,GaussTria* gauss){_error_("not supported yet!");} 122 122 /*}}}*/ 123 123 /*FUNCTION IntInput::GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){{{*/ 124 void IntInput::GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){_error 2_("not supported yet!");}124 void IntInput::GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){_error_("not supported yet!");} 125 125 /*}}}*/ 126 126 /*FUNCTION IntInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){{{*/ 127 void IntInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not supported yet!");}127 void IntInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error_("not supported yet!");} 128 128 /*}}}*/ 129 129 /*FUNCTION IntInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){{{*/ 130 void IntInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not supported yet!");}130 void IntInput::GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error_("not supported yet!");} 131 131 /*}}}*/ 132 132 /*FUNCTION IntInput::ChangeEnum{{{*/ … … 166 166 167 167 default: 168 _error 2_("not implemented yet");168 _error_("not implemented yet"); 169 169 } 170 170 … … 182 182 void IntInput::GetVectorFromInputs(Vector* vector,int* doflist){ 183 183 184 _error 2_("not supporte yet!");184 _error_("not supporte yet!"); 185 185 186 186 } … … 189 189 void IntInput::GetValuesPtr(IssmDouble** pvalues,int* pnum_values){ 190 190 191 _error 2_("not supported yet!");191 _error_("not supported yet!"); 192 192 193 193 } -
issm/trunk-jpl/src/c/classes/objects/Inputs/IntInput.h
r12832 r13036 37 37 int InstanceEnum(); 38 38 Input* SpawnTriaInput(int* indices); 39 Input* PointwiseDivide(Input* inputB){_error 2_("not implemented yet");};40 Input* PointwiseMin(Input* inputB){_error 2_("not implemented yet");};41 Input* PointwiseMax(Input* inputB){_error 2_("not implemented yet");};39 Input* PointwiseDivide(Input* inputB){_error_("not implemented yet");}; 40 Input* PointwiseMin(Input* inputB){_error_("not implemented yet");}; 41 Input* PointwiseMax(Input* inputB){_error_("not implemented yet");}; 42 42 ElementResult* SpawnResult(int step, IssmDouble time); 43 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error 2_("not supported yet");};43 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error_("not supported yet");}; 44 44 void Configure(Parameters* parameters); 45 45 /*}}}*/ … … 50 50 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss); 51 51 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss); 52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error 2_("not implemented yet");};53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error 2_("not implemented yet");};54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error 2_("not implemented yet");};55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error 2_("not implemented yet");};52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error_("not implemented yet");}; 53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error_("not implemented yet");}; 54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error_("not implemented yet");}; 55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error_("not implemented yet");}; 56 56 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss); 57 57 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss); 58 void GetInputAverage(IssmDouble* pvalue){_error 2_("not implemented yet");};59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};63 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};64 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};65 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};58 void GetInputAverage(IssmDouble* pvalue){_error_("not implemented yet");}; 59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 63 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 64 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 65 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 66 66 void ChangeEnum(int newenumtype); 67 67 void SquareMin(IssmDouble* psquaremin, bool process_units,Parameters* parameters); 68 void ConstrainMin(IssmDouble minimum){_error 2_("not implemented yet");};68 void ConstrainMin(IssmDouble minimum){_error_("not implemented yet");}; 69 69 void Scale(IssmDouble scale_factor); 70 void ArtificialNoise(IssmDouble min,IssmDouble max){_error 2_("not implemented yet");};70 void ArtificialNoise(IssmDouble min,IssmDouble max){_error_("not implemented yet");}; 71 71 void AXPY(Input* xinput,IssmDouble scalar); 72 72 void Constrain(IssmDouble cm_min, IssmDouble cm_max); 73 IssmDouble InfinityNorm(void){_error 2_("InfinityNorm not implemented for integers");};74 IssmDouble Max(void){_error 2_("Max not implemented for integers");};75 IssmDouble MaxAbs(void){_error 2_("Max not implemented for integers");};76 IssmDouble Min(void){_error 2_("Min not implemented for integers");};77 IssmDouble MinAbs(void){_error 2_("Min not implemented for integers");};78 void Extrude(void){_error 2_("not supported yet");};79 void VerticallyIntegrate(Input* thickness_input){_error 2_("not supported yet");};73 IssmDouble InfinityNorm(void){_error_("InfinityNorm not implemented for integers");}; 74 IssmDouble Max(void){_error_("Max not implemented for integers");}; 75 IssmDouble MaxAbs(void){_error_("Max not implemented for integers");}; 76 IssmDouble Min(void){_error_("Min not implemented for integers");}; 77 IssmDouble MinAbs(void){_error_("Min not implemented for integers");}; 78 void Extrude(void){_error_("not supported yet");}; 79 void VerticallyIntegrate(Input* thickness_input){_error_("not supported yet");}; 80 80 void GetVectorFromInputs(Vector* vector,int* doflist); 81 81 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values); -
issm/trunk-jpl/src/c/classes/objects/Inputs/PentaP1Input.cpp
r12832 r13036 455 455 case ControlInputEnum:{ 456 456 ControlInput* cont_input=(ControlInput*)xinput; 457 if(cont_input->values->ObjectEnum()!=PentaP1InputEnum) _error 2_("not supported yet");457 if(cont_input->values->ObjectEnum()!=PentaP1InputEnum) _error_("not supported yet"); 458 458 PentaP1Input* cast_input=(PentaP1Input*)cont_input->values; 459 459 for(i=0;i<numnodes;i++)this->values[i]=this->values[i]+scalar*(cast_input->values[i]);} 460 460 return; 461 461 default: 462 _error 2_("not implemented yet");462 _error_("not implemented yet"); 463 463 } 464 464 … … 495 495 496 496 /*Check that input provided is a thickness*/ 497 if (thickness_input->InstanceEnum()!=ThicknessEnum) _error 2_("Input provided is not a Thickness (enum_type is " << EnumToStringx(thickness_input->InstanceEnum()) << ")");497 if (thickness_input->InstanceEnum()!=ThicknessEnum) _error_("Input provided is not a Thickness (enum_type is " << EnumToStringx(thickness_input->InstanceEnum()) << ")"); 498 498 499 499 /*Get Thickness value pointer*/ … … 511 511 512 512 default: 513 _error 2_("not implemented yet");513 _error_("not implemented yet"); 514 514 } 515 515 } … … 529 529 530 530 /*Check that inputB is of the same type*/ 531 if (inputB->ObjectEnum()!=PentaP1InputEnum) _error 2_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum()));531 if (inputB->ObjectEnum()!=PentaP1InputEnum) _error_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum())); 532 532 xinputB=(PentaP1Input*)inputB; 533 533 … … 560 560 561 561 /*Check that inputB is of the same type*/ 562 if (inputB->ObjectEnum()!=PentaP1InputEnum) _error 2_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum()));562 if (inputB->ObjectEnum()!=PentaP1InputEnum) _error_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum())); 563 563 xinputB=(PentaP1Input*)inputB; 564 564 … … 591 591 592 592 /*Check that inputB is of the same type*/ 593 if (inputB->ObjectEnum()!=PentaP1InputEnum) _error 2_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum()));593 if (inputB->ObjectEnum()!=PentaP1InputEnum) _error_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum())); 594 594 xinputB=(PentaP1Input*)inputB; 595 595 -
issm/trunk-jpl/src/c/classes/objects/Inputs/PentaP1Input.h
r12704 r13036 41 41 Input* PointwiseMax(Input* inputB); 42 42 ElementResult* SpawnResult(int step, IssmDouble time); 43 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error 2_("not supported yet");};43 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error_("not supported yet");}; 44 44 void Configure(Parameters* parameters); 45 45 /*}}}*/ 46 46 /*numerics: {{{*/ 47 void GetInputValue(bool* pvalue){_error 2_("not implemented yet");};48 void GetInputValue(int* pvalue){_error 2_("not implemented yet");};49 void GetInputValue(IssmDouble* pvalue){_error 2_("not implemented yet");};50 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss){_error 2_("not implemented yet");};47 void GetInputValue(bool* pvalue){_error_("not implemented yet");}; 48 void GetInputValue(int* pvalue){_error_("not implemented yet");}; 49 void GetInputValue(IssmDouble* pvalue){_error_("not implemented yet");}; 50 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss){_error_("not implemented yet");}; 51 51 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss); 52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error 2_("not implemented yet");};53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error 2_("not implemented yet");};54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error 2_("not implemented yet");};55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error 2_("not implemented yet");};56 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error_("not implemented yet");}; 53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error_("not implemented yet");}; 54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error_("not implemented yet");}; 55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error_("not implemented yet");}; 56 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 57 57 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss); 58 58 void GetInputAverage(IssmDouble* pvalue); 59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 61 61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss); 62 62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss); … … 69 69 void ConstrainMin(IssmDouble minimum); 70 70 void Scale(IssmDouble scale_factor); 71 void ArtificialNoise(IssmDouble min,IssmDouble max){_error 2_("not implemented yet");};71 void ArtificialNoise(IssmDouble min,IssmDouble max){_error_("not implemented yet");}; 72 72 void AXPY(Input* xinput,IssmDouble scalar); 73 73 void Constrain(IssmDouble cm_min, IssmDouble cm_max); -
issm/trunk-jpl/src/c/classes/objects/Inputs/TransientInput.cpp
r12882 r13036 482 482 } 483 483 } 484 if(!found)_error 2_("did not find time interval on which to interpolate forcing values!");484 if(!found)_error_("did not find time interval on which to interpolate forcing values!"); 485 485 486 486 /*Assign output pointer*/ -
issm/trunk-jpl/src/c/classes/objects/Inputs/TransientInput.h
r12882 r13036 40 40 int InstanceEnum(); 41 41 Input* SpawnTriaInput(int* indices); 42 Input* PointwiseDivide(Input* forcingB){_error 2_("not implemented yet");};43 Input* PointwiseMin(Input* forcingB){_error 2_("not implemented yet");};44 Input* PointwiseMax(Input* forcingB){_error 2_("not implemented yet");};42 Input* PointwiseDivide(Input* forcingB){_error_("not implemented yet");}; 43 Input* PointwiseMin(Input* forcingB){_error_("not implemented yet");}; 44 Input* PointwiseMax(Input* forcingB){_error_("not implemented yet");}; 45 45 ElementResult* SpawnResult(int step, IssmDouble time); 46 46 void Configure(Parameters* parameters); 47 47 /*}}}*/ 48 48 /*numerics: {{{*/ 49 void GetInputValue(bool* pvalue){_error 2_("not implemented yet");};50 void GetInputValue(int* pvalue){_error 2_("not implemented yet");};51 void GetInputValue(IssmDouble* pvalue){_error 2_("not implemented yet");};49 void GetInputValue(bool* pvalue){_error_("not implemented yet");}; 50 void GetInputValue(int* pvalue){_error_("not implemented yet");}; 51 void GetInputValue(IssmDouble* pvalue){_error_("not implemented yet");}; 52 52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss); 53 53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss); 54 54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time); 55 55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time); 56 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error 2_("not implemented yet");};57 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error 2_("not implemented yet");};56 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error_("not implemented yet");}; 57 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss ,int index){_error_("not implemented yet");}; 58 58 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss); 59 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};59 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 60 60 void GetInputAverage(IssmDouble* pvalue); 61 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};62 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error 2_("not implemented yet");};63 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};64 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};65 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};66 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};67 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};61 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 62 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss){_error_("not implemented yet");}; 63 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 64 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 65 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 66 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 67 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 68 68 void ChangeEnum(int newenumtype); 69 69 70 70 void SquareMin(IssmDouble* psquaremin, bool process_units,Parameters* parameters); 71 void ConstrainMin(IssmDouble minimum){_error 2_("not implemented yet");};72 void Scale(IssmDouble scale_factor){_error 2_("not implemented yet");};73 void ArtificialNoise(IssmDouble min,IssmDouble max){_error 2_("not implemented yet");};74 void AXPY(Input* xforcing,IssmDouble scalar){_error 2_("not implemented yet");};75 void Constrain(IssmDouble cm_min, IssmDouble cm_max){_error 2_("not implemented yet");};71 void ConstrainMin(IssmDouble minimum){_error_("not implemented yet");}; 72 void Scale(IssmDouble scale_factor){_error_("not implemented yet");}; 73 void ArtificialNoise(IssmDouble min,IssmDouble max){_error_("not implemented yet");}; 74 void AXPY(Input* xforcing,IssmDouble scalar){_error_("not implemented yet");}; 75 void Constrain(IssmDouble cm_min, IssmDouble cm_max){_error_("not implemented yet");}; 76 76 IssmDouble InfinityNorm(void); 77 77 IssmDouble Max(void); … … 80 80 IssmDouble MinAbs(void); 81 81 void Extrude(void); 82 void VerticallyIntegrate(Input* thickness_forcing){_error 2_("not supported yet");};82 void VerticallyIntegrate(Input* thickness_forcing){_error_("not supported yet");}; 83 83 void GetVectorFromInputs(Vector* vector,int* doflist); 84 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values){_error 2_("not supported yet");};85 void GetTimeValues(IssmDouble* values,IssmDouble time){_error 2_("not implemented yet");};84 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values){_error_("not supported yet");}; 85 void GetTimeValues(IssmDouble* values,IssmDouble time){_error_("not implemented yet");}; 86 86 Input* GetTimeInput(IssmDouble time); 87 87 /*}}}*/ -
issm/trunk-jpl/src/c/classes/objects/Inputs/TriaP1Input.cpp
r12832 r13036 323 323 324 324 default : 325 _error 2_("not implemented yet");325 _error_("not implemented yet"); 326 326 } 327 327 … … 368 368 369 369 /*Check that inputB is of the same type*/ 370 if (inputB->ObjectEnum()!=TriaP1InputEnum) _error 2_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum()));370 if (inputB->ObjectEnum()!=TriaP1InputEnum) _error_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum())); 371 371 xinputB=(TriaP1Input*)inputB; 372 372 … … 399 399 400 400 /*Check that inputB is of the same type*/ 401 if (inputB->ObjectEnum()!=TriaP1InputEnum) _error 2_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum()));401 if (inputB->ObjectEnum()!=TriaP1InputEnum) _error_("Operation not permitted because inputB is of type " << EnumToStringx(inputB->ObjectEnum())); 402 402 xinputB=(TriaP1Input*)inputB; 403 403 -
issm/trunk-jpl/src/c/classes/objects/Inputs/TriaP1Input.h
r12704 r13036 37 37 int InstanceEnum(); 38 38 Input* SpawnTriaInput(int* indices); 39 Input* PointwiseDivide(Input* inputB){_error 2_("not implemented yet");};39 Input* PointwiseDivide(Input* inputB){_error_("not implemented yet");}; 40 40 Input* PointwiseMin(Input* inputB); 41 41 Input* PointwiseMax(Input* inputB); 42 42 ElementResult* SpawnResult(int step, IssmDouble time); 43 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error 2_("not supported yet");};43 void AddTimeValues(IssmDouble* values,int step,IssmDouble time){_error_("not supported yet");}; 44 44 void Configure(Parameters* parameters); 45 45 /*}}}*/ 46 46 /*numerics: {{{*/ 47 void GetInputValue(bool* pvalue){_error 2_("not implemented yet");}48 void GetInputValue(int* pvalue){_error 2_("not implemented yet");}49 void GetInputValue(IssmDouble* pvalue){_error 2_("not implemented yet");}47 void GetInputValue(bool* pvalue){_error_("not implemented yet");} 48 void GetInputValue(int* pvalue){_error_("not implemented yet");} 49 void GetInputValue(IssmDouble* pvalue){_error_("not implemented yet");} 50 50 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss); 51 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){_error 2_("not implemented yet");};52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error 2_("not implemented yet");};53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error 2_("not implemented yet");};54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error 2_("not implemented yet");};55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,int index){_error 2_("not implemented yet");};51 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss){_error_("not implemented yet");}; 52 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss,IssmDouble time){_error_("not implemented yet");}; 53 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,IssmDouble time){_error_("not implemented yet");}; 54 void GetInputValue(IssmDouble* pvalue,GaussTria* gauss ,int index){_error_("not implemented yet");}; 55 void GetInputValue(IssmDouble* pvalue,GaussPenta* gauss,int index){_error_("not implemented yet");}; 56 56 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussTria* gauss); 57 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};57 void GetInputDerivativeValue(IssmDouble* derivativevalues, IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 58 58 void GetInputAverage(IssmDouble* pvalue); 59 59 void GetVxStrainRate2d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussTria* gauss); 60 60 void GetVyStrainRate2d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussTria* gauss); 61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};63 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};64 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};65 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error 2_("not implemented yet");};61 void GetVxStrainRate3d(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 62 void GetVyStrainRate3d(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 63 void GetVzStrainRate3d(IssmDouble* epsilonvz,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 64 void GetVxStrainRate3dPattyn(IssmDouble* epsilonvx,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 65 void GetVyStrainRate3dPattyn(IssmDouble* epsilonvy,IssmDouble* xyz_list, GaussPenta* gauss){_error_("not implemented yet");}; 66 66 void ChangeEnum(int newenumtype); 67 67 … … 77 77 IssmDouble Min(void); 78 78 IssmDouble MinAbs(void); 79 void Extrude(void){_error 2_("not supported yet");};80 void VerticallyIntegrate(Input* thickness_input){_error 2_("not supported yet");};79 void Extrude(void){_error_("not supported yet");}; 80 void VerticallyIntegrate(Input* thickness_input){_error_("not supported yet");}; 81 81 void GetVectorFromInputs(Vector* vector,int* doflist); 82 82 void GetValuesPtr(IssmDouble** pvalues,int* pnum_values); -
issm/trunk-jpl/src/c/classes/objects/KML/KMLFileReadUtils.cpp
r12916 r13036 259 259 260 260 if (strncmp(&ktag[0],"<" ,1) || strncmp(&ktag[strlen(ktag)-1],">",1)) 261 _error 2_("KMLFileTagName -- Missing tag delimiters in " << ktag << ".\n");261 _error_("KMLFileTagName -- Missing tag delimiters in " << ktag << ".\n"); 262 262 263 263 /* strtok modifies ktag, so work on copy */ … … 355 355 NULL,NULL)) || 356 356 (kstr[0] == '<')) 357 _error 2_("KMLFileTokenParse -- Missing integer field for " << ktag << ".\n");357 _error_("KMLFileTokenParse -- Missing integer field for " << ktag << ".\n"); 358 358 359 359 sscanf(kstr,"%d",pival); … … 368 368 (kstr[1] != '/') || 369 369 (strncmp(&(kstr[2]),&(ktag[1]),strlen(ktag)-1))) 370 {_error 2_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");}370 {_error_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");} 371 371 else 372 372 xDelete<char>(kstr); … … 388 388 NULL,NULL)) || 389 389 (kstr[0] == '<')) 390 {_error 2_("KMLFileTokenParse -- Missing bool field for " << ktag << ".\n");}390 {_error_("KMLFileTokenParse -- Missing bool field for " << ktag << ".\n");} 391 391 392 392 sscanf(kstr,"%d",&ival); … … 402 402 (kstr[1] != '/') || 403 403 (strncmp(&(kstr[2]),&(ktag[1]),strlen(ktag)-1))) 404 {_error 2_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");}404 {_error_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");} 405 405 else 406 406 xDelete<char>(kstr); … … 433 433 NULL,NULL)) || 434 434 (kstr[0] == '<')) 435 _error 2_("KMLFileTokenParse -- Missing string field for " << ktag << ".\n");435 _error_("KMLFileTokenParse -- Missing string field for " << ktag << ".\n"); 436 436 437 437 if (!pstr) { … … 463 463 (kstr[1] != '/') || 464 464 (strncmp(&(kstr[2]),&(ktag[1]),strlen(ktag)-1))) 465 {_error 2_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");}465 {_error_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");} 466 466 else 467 467 xDelete<char>(kstr); … … 484 484 NULL,NULL)) || 485 485 (kstr[0] == '<')) 486 {_error 2_("KMLFileTokenParse -- Missing integer field for " << ktag << ".\n");}486 {_error_("KMLFileTokenParse -- Missing integer field for " << ktag << ".\n");} 487 487 488 488 sscanf(kstr,"%g",pfval); … … 497 497 (kstr[1] != '/') || 498 498 (strncmp(&(kstr[2]),&(ktag[1]),strlen(ktag)-1))) 499 {_error 2_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");}499 {_error_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");} 500 500 else 501 501 xDelete<char>(kstr); … … 518 518 NULL,NULL)) || 519 519 (kstr[0] == '<')) 520 _error 2_("KMLFileTokenParse -- Missing integer field for " << ktag << ".\n");520 _error_("KMLFileTokenParse -- Missing integer field for " << ktag << ".\n"); 521 521 522 522 sscanf(kstr,"%lg",pdval); … … 531 531 (kstr[1] != '/') || 532 532 (strncmp(&(kstr[2]),&(ktag[1]),strlen(ktag)-1))) 533 {_error 2_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");}533 {_error_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");} 534 534 else 535 535 xDelete<char>(kstr); … … 556 556 NULL,NULL)) || 557 557 (kstr[0] == '<')) 558 _error 2_("KMLFileTokenParse -- Missing double [m] field for " << ktag << ".\n");558 _error_("KMLFileTokenParse -- Missing double [m] field for " << ktag << ".\n"); 559 559 560 560 if (!*pdval) … … 570 570 i++; 571 571 if (maxlen && (maxlen < i+1)) 572 _error 2_("KMLFileTokenParse -- Double [m] field too short for " << ktag << ".\n");572 _error_("KMLFileTokenParse -- Double [m] field too short for " << ktag << ".\n"); 573 573 sscanf(ktok,"%lg",&((*pdval)[i])); 574 574 ktok=strtok(NULL,delim); … … 595 595 (kstr[1] != '/') || 596 596 (strncmp(&(kstr[2]),&(ktag[1]),strlen(ktag)-1))) 597 {_error 2_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");}597 {_error_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");} 598 598 else 599 599 xDelete<char>(kstr); … … 622 622 NULL,NULL)) || 623 623 (kstr[0] == '<')) 624 _error 2_("KMLFileTokenParse -- Missing double [m x n] field for " << ktag << ".\n");624 _error_("KMLFileTokenParse -- Missing double [m x n] field for " << ktag << ".\n"); 625 625 626 626 if (!*pdval) … … 636 636 i++; 637 637 if (maxlen && (maxlen*n < i+1)) 638 _error 2_("KMLFileTokenParse -- Double [m x n] field too short for " << ktag << ".\n");638 _error_("KMLFileTokenParse -- Double [m x n] field too short for " << ktag << ".\n"); 639 639 j=(j+1) % n; 640 640 sscanf(ktok,"%lg",&((*pdval)[i])); … … 665 665 (kstr[1] != '/') || 666 666 (strncmp(&(kstr[2]),&(ktag[1]),strlen(ktag)-1))) 667 {_error 2_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");}667 {_error_("KMLFileTokenParse -- Missing closing tag for " << ktag << ".\n");} 668 668 else 669 669 xDelete<char>(kstr); … … 712 712 else if ((kstr[0] == '<') && 713 713 (kstr[1] == '/')) { 714 _error 2_("KMLFileTagSkip -- Unexpected closing tag " << kstr << ".\n");714 _error_("KMLFileTagSkip -- Unexpected closing tag " << kstr << ".\n"); 715 715 } 716 716 … … 718 718 } 719 719 720 _error 2_("KMLFileTokenParse -- Corresponding closing tag for " << ktag << " not found.\n");720 _error_("KMLFileTokenParse -- Corresponding closing tag for " << ktag << " not found.\n"); 721 721 722 722 return(0); -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Attribute.h
r12832 r13036 30 30 virtual void DeepEcho(); 31 31 virtual void DeepEcho(const char* indent); 32 int Id(){_error 2_("Not implemented yet.");};33 int MyRank(){_error 2_("Not implemented yet.");};34 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};35 int MarshallSize(){_error 2_("Not implemented yet.");};36 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};37 int ObjectEnum(){_error 2_("Not implemented yet.");};38 Object* copy(){_error 2_("Not implemented yet.");};32 int Id(){_error_("Not implemented yet.");}; 33 int MyRank(){_error_("Not implemented yet.");}; 34 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 35 int MarshallSize(){_error_("Not implemented yet.");}; 36 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 37 int ObjectEnum(){_error_("Not implemented yet.");}; 38 Object* copy(){_error_("Not implemented yet.");}; 39 39 /*}}}*/ 40 40 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_ColorStyle.cpp
r12835 r13036 93 93 return; 94 94 else if (!strncmp(kstr,"</",2)) 95 {_error 2_("KML_ColorStyle::Read -- Unexpected closing tag " << kstr);}95 {_error_("KML_ColorStyle::Read -- Unexpected closing tag " << kstr);} 96 96 else if (strncmp(kstr,"<",1)) 97 {_error 2_("KML_ColorStyle::Read -- Unexpected field \"" << kstr << "\"");}97 {_error_("KML_ColorStyle::Read -- Unexpected field \"" << kstr << "\"");} 98 98 99 99 else if (!strcmp(kstr,"<color>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_ColorStyle.h
r12832 r13036 35 35 void Write(FILE* fid,const char* indent); 36 36 void Read(FILE* fid,char* kstr); 37 int Id(){_error 2_("Not implemented yet.");};38 int MyRank(){_error 2_("Not implemented yet.");};39 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};40 int MarshallSize(){_error 2_("Not implemented yet.");};41 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};42 int ObjectEnum(){_error 2_("Not implemented yet.");};43 Object* copy(){_error 2_("Not implemented yet.");};37 int Id(){_error_("Not implemented yet.");}; 38 int MyRank(){_error_("Not implemented yet.");}; 39 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 40 int MarshallSize(){_error_("Not implemented yet.");}; 41 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 42 int ObjectEnum(){_error_("Not implemented yet.");}; 43 Object* copy(){_error_("Not implemented yet.");}; 44 44 /*}}}*/ 45 45 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Comment.h
r12832 r13036 30 30 virtual void DeepEcho(); 31 31 virtual void DeepEcho(const char* indent); 32 int Id(){_error 2_("Not implemented yet.");};33 int MyRank(){_error 2_("Not implemented yet.");};34 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};35 int MarshallSize(){_error 2_("Not implemented yet.");};36 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};37 int ObjectEnum(){_error 2_("Not implemented yet.");};38 Object* copy(){_error 2_("Not implemented yet.");};32 int Id(){_error_("Not implemented yet.");}; 33 int MyRank(){_error_("Not implemented yet.");}; 34 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 35 int MarshallSize(){_error_("Not implemented yet.");}; 36 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 37 int ObjectEnum(){_error_("Not implemented yet.");}; 38 Object* copy(){_error_("Not implemented yet.");}; 39 39 /*}}}*/ 40 40 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Container.cpp
r12915 r13036 120 120 } 121 121 else if (!strncmp(kstr,"</",2)) 122 {_error 2_("KML_Container::Read -- Unexpected closing tag " << kstr );}122 {_error_("KML_Container::Read -- Unexpected closing tag " << kstr );} 123 123 else if (strncmp(kstr,"<",1)) 124 {_error 2_("KML_Container::Read -- Unexpected field \"" << kstr << "\"");}124 {_error_("KML_Container::Read -- Unexpected field \"" << kstr << "\"");} 125 125 126 126 else if (!strncmp(kstr,"<Placemark",10)) { -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Container.h
r12832 r13036 33 33 void Read(FILE* fid,char* kstr); 34 34 void WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp); 35 int Id(){_error 2_("Not implemented yet.");};36 int MyRank(){_error 2_("Not implemented yet.");};37 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};38 int MarshallSize(){_error 2_("Not implemented yet.");};39 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};40 int ObjectEnum(){_error 2_("Not implemented yet.");};41 Object* copy(){_error 2_("Not implemented yet.");};35 int Id(){_error_("Not implemented yet.");}; 36 int MyRank(){_error_("Not implemented yet.");}; 37 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 38 int MarshallSize(){_error_("Not implemented yet.");}; 39 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 40 int ObjectEnum(){_error_("Not implemented yet.");}; 41 Object* copy(){_error_("Not implemented yet.");}; 42 42 /*}}}*/ 43 43 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Document.cpp
r12915 r13036 106 106 } 107 107 else if (!strncmp(kstri,"</",2)) 108 {_error 2_("KML_Document::Read -- Unexpected closing tag " << kstri << ".\n");}108 {_error_("KML_Document::Read -- Unexpected closing tag " << kstri << ".\n");} 109 109 else if (strncmp(kstri,"<",1)) 110 {_error 2_("KML_Document::Read -- Unexpected field \"" << kstri << "\".\n");}110 {_error_("KML_Document::Read -- Unexpected field \"" << kstri << "\".\n");} 111 111 112 112 else if (!strncmp(kstri,"<",1)) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Document.h
r12832 r13036 30 30 void Write(FILE* fid,const char* indent); 31 31 void Read(FILE* fid,char* kstr); 32 int Id(){_error 2_("Not implemented yet.");};33 int MyRank(){_error 2_("Not implemented yet.");};34 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};35 int MarshallSize(){_error 2_("Not implemented yet.");};36 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};37 int ObjectEnum(){_error 2_("Not implemented yet.");};38 Object* copy(){_error 2_("Not implemented yet.");};32 int Id(){_error_("Not implemented yet.");}; 33 int MyRank(){_error_("Not implemented yet.");}; 34 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 35 int MarshallSize(){_error_("Not implemented yet.");}; 36 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 37 int ObjectEnum(){_error_("Not implemented yet.");}; 38 Object* copy(){_error_("Not implemented yet.");}; 39 39 /*}}}*/ 40 40 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Feature.cpp
r12835 r13036 149 149 return; 150 150 else if (!strncmp(kstr,"</",2)) 151 {_error 2_("KML_Feature::Read -- Unexpected closing tag " << kstr);}151 {_error_("KML_Feature::Read -- Unexpected closing tag " << kstr);} 152 152 else if (strncmp(kstr,"<",1)) 153 {_error 2_("KML_Feature::Read -- Unexpected field \"" << kstr << "\"");}153 {_error_("KML_Feature::Read -- Unexpected field \"" << kstr << "\"");} 154 154 155 155 else if (!strncmp(kstr,"<Style", 6)) { -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Feature.h
r12832 r13036 44 44 void Write(FILE* fid,const char* indent); 45 45 void Read(FILE* fid,char* kstr); 46 int Id(){_error 2_("Not implemented yet.");};47 int MyRank(){_error 2_("Not implemented yet.");};48 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};49 int MarshallSize(){_error 2_("Not implemented yet.");};50 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};51 int ObjectEnum(){_error 2_("Not implemented yet.");};52 Object* copy(){_error 2_("Not implemented yet.");};46 int Id(){_error_("Not implemented yet.");}; 47 int MyRank(){_error_("Not implemented yet.");}; 48 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 49 int MarshallSize(){_error_("Not implemented yet.");}; 50 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 51 int ObjectEnum(){_error_("Not implemented yet.");}; 52 Object* copy(){_error_("Not implemented yet.");}; 53 53 /*}}}*/ 54 54 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_File.cpp
r12915 r13036 107 107 } 108 108 else if (!strncmp(kstri,"</",2)) 109 {_error 2_("KML_File::Read -- Unexpected closing tag " << kstri << ".");}109 {_error_("KML_File::Read -- Unexpected closing tag " << kstri << ".");} 110 110 else if (strncmp(kstri,"<",1)) 111 {_error 2_("KML_File::Read -- Unexpected field \"" << kstri << "\"");}111 {_error_("KML_File::Read -- Unexpected field \"" << kstri << "\"");} 112 112 113 113 else if (!strncmp(kstri,"<",1)) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_File.h
r12832 r13036 31 31 void Read(FILE* fid,char* kstr); 32 32 void WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp); 33 int Id(){_error 2_("Not implemented yet.");};34 int MyRank(){_error 2_("Not implemented yet.");};35 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};36 int MarshallSize(){_error 2_("Not implemented yet.");};37 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};38 int ObjectEnum(){_error 2_("Not implemented yet.");};39 Object* copy(){_error 2_("Not implemented yet.");};33 int Id(){_error_("Not implemented yet.");}; 34 int MyRank(){_error_("Not implemented yet.");}; 35 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 36 int MarshallSize(){_error_("Not implemented yet.");}; 37 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 38 int ObjectEnum(){_error_("Not implemented yet.");}; 39 Object* copy(){_error_("Not implemented yet.");}; 40 40 /*}}}*/ 41 41 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Folder.cpp
r12915 r13036 106 106 } 107 107 else if (!strncmp(kstri,"</",2)) 108 {_error 2_("KML_Folder::Read -- Unexpected closing tag " << kstri << ".\n");}108 {_error_("KML_Folder::Read -- Unexpected closing tag " << kstri << ".\n");} 109 109 else if (strncmp(kstri,"<",1)) 110 {_error 2_("KML_Folder::Read -- Unexpected field \"" << kstri << "\".\n");}110 {_error_("KML_Folder::Read -- Unexpected field \"" << kstri << "\".\n");} 111 111 112 112 else if (!strncmp(kstri,"<",1)) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Folder.h
r12832 r13036 30 30 void Write(FILE* fid,const char* indent); 31 31 void Read(FILE* fid,char* kstr); 32 int Id(){_error 2_("Not implemented yet.");};33 int MyRank(){_error 2_("Not implemented yet.");};34 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};35 int MarshallSize(){_error 2_("Not implemented yet.");};36 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};37 int ObjectEnum(){_error 2_("Not implemented yet.");};38 Object* copy(){_error 2_("Not implemented yet.");};32 int Id(){_error_("Not implemented yet.");}; 33 int MyRank(){_error_("Not implemented yet.");}; 34 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 35 int MarshallSize(){_error_("Not implemented yet.");}; 36 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 37 int ObjectEnum(){_error_("Not implemented yet.");}; 38 Object* copy(){_error_("Not implemented yet.");}; 39 39 /*}}}*/ 40 40 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Geometry.cpp
r12835 r13036 79 79 return; 80 80 else if (!strncmp(kstr,"</",2)) 81 {_error 2_("KML_Geometry::Read -- Unexpected closing tag " << kstr << ".\n");}81 {_error_("KML_Geometry::Read -- Unexpected closing tag " << kstr << ".\n");} 82 82 else if (strncmp(kstr,"<",1)) 83 {_error 2_("KML_Geometry::Read -- Unexpected field \"" << kstr << "\".\n");}83 {_error_("KML_Geometry::Read -- Unexpected field \"" << kstr << "\".\n");} 84 84 85 85 else if (!strncmp(kstr,"<",1)) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Geometry.h
r12832 r13036 29 29 void Write(FILE* fid,const char* indent); 30 30 void Read(FILE* fid,char* kstr); 31 int Id(){_error 2_("Not implemented yet.");};32 int MyRank(){_error 2_("Not implemented yet.");};33 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};34 int MarshallSize(){_error 2_("Not implemented yet.");};35 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};36 int ObjectEnum(){_error 2_("Not implemented yet.");};37 Object* copy(){_error 2_("Not implemented yet.");};31 int Id(){_error_("Not implemented yet.");}; 32 int MyRank(){_error_("Not implemented yet.");}; 33 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 34 int MarshallSize(){_error_("Not implemented yet.");}; 35 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 36 int ObjectEnum(){_error_("Not implemented yet.");}; 37 Object* copy(){_error_("Not implemented yet.");}; 38 38 /*}}}*/ 39 39 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_GroundOverlay.cpp
r12915 r13036 131 131 } 132 132 else if (!strncmp(kstri,"</",2)) 133 {_error 2_("KML_GroundOverlay::Read -- Unexpected closing tag " << kstri << ".\n");}133 {_error_("KML_GroundOverlay::Read -- Unexpected closing tag " << kstri << ".\n");} 134 134 else if (strncmp(kstri,"<",1)) 135 {_error 2_("KML_GroundOverlay::Read -- Unexpected field \"" << kstri << "\".\n");}135 {_error_("KML_GroundOverlay::Read -- Unexpected field \"" << kstri << "\".\n");} 136 136 137 137 else if (!strcmp(kstri,"<altitude>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_GroundOverlay.h
r12832 r13036 36 36 void Write(FILE* fid,const char* indent); 37 37 void Read(FILE* fid,char* kstr); 38 int Id(){_error 2_("Not implemented yet.");};39 int MyRank(){_error 2_("Not implemented yet.");};40 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};41 int MarshallSize(){_error 2_("Not implemented yet.");};42 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};43 int ObjectEnum(){_error 2_("Not implemented yet.");};44 Object* copy(){_error 2_("Not implemented yet.");};38 int Id(){_error_("Not implemented yet.");}; 39 int MyRank(){_error_("Not implemented yet.");}; 40 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 41 int MarshallSize(){_error_("Not implemented yet.");}; 42 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 43 int ObjectEnum(){_error_("Not implemented yet.");}; 44 Object* copy(){_error_("Not implemented yet.");}; 45 45 /*}}}*/ 46 46 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Icon.cpp
r12915 r13036 145 145 } 146 146 else if (!strncmp(kstri,"</",2)) 147 {_error 2_("KML_Icon::Read -- Unexpected closing tag " << kstri << ".\n");}147 {_error_("KML_Icon::Read -- Unexpected closing tag " << kstri << ".\n");} 148 148 else if (strncmp(kstri,"<",1)) 149 {_error 2_("KML_Icon::Read -- Unexpected field \"" << kstri << "\".\n");}149 {_error_("KML_Icon::Read -- Unexpected field \"" << kstri << "\".\n");} 150 150 151 151 else if (!strcmp(kstri,"<href>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Icon.h
r12832 r13036 44 44 void Write(FILE* fid,const char* indent); 45 45 void Read(FILE* fid,char* kstr); 46 int Id(){_error 2_("Not implemented yet.");};47 int MyRank(){_error 2_("Not implemented yet.");};48 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};49 int MarshallSize(){_error 2_("Not implemented yet.");};50 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};51 int ObjectEnum(){_error 2_("Not implemented yet.");};52 Object* copy(){_error 2_("Not implemented yet.");};46 int Id(){_error_("Not implemented yet.");}; 47 int MyRank(){_error_("Not implemented yet.");}; 48 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 49 int MarshallSize(){_error_("Not implemented yet.");}; 50 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 51 int ObjectEnum(){_error_("Not implemented yet.");}; 52 Object* copy(){_error_("Not implemented yet.");}; 53 53 /*}}}*/ 54 54 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_LatLonBox.cpp
r12915 r13036 121 121 } 122 122 else if (!strncmp(kstri,"</",2)) 123 {_error 2_("KML_LatLonBox::Read -- Unexpected closing tag " << kstri << ".\n");}123 {_error_("KML_LatLonBox::Read -- Unexpected closing tag " << kstri << ".\n");} 124 124 else if (strncmp(kstri,"<",1)) 125 {_error 2_("KML_LatLonBox::Read -- Unexpected field \"" << kstri << "\".\n");}125 {_error_("KML_LatLonBox::Read -- Unexpected field \"" << kstri << "\".\n");} 126 126 127 127 else if (!strcmp(kstri,"<north>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_LatLonBox.h
r12832 r13036 35 35 void Write(FILE* fid,const char* indent); 36 36 void Read(FILE* fid,char* kstr); 37 int Id(){_error 2_("Not implemented yet.");};38 int MyRank(){_error 2_("Not implemented yet.");};39 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};40 int MarshallSize(){_error 2_("Not implemented yet.");};41 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};42 int ObjectEnum(){_error 2_("Not implemented yet.");};43 Object* copy(){_error 2_("Not implemented yet.");};37 int Id(){_error_("Not implemented yet.");}; 38 int MyRank(){_error_("Not implemented yet.");}; 39 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 40 int MarshallSize(){_error_("Not implemented yet.");}; 41 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 42 int ObjectEnum(){_error_("Not implemented yet.");}; 43 Object* copy(){_error_("Not implemented yet.");}; 44 44 /*}}}*/ 45 45 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_LineString.cpp
r12915 r13036 141 141 } 142 142 else if (!strncmp(kstri,"</",2)) 143 {_error 2_("KML_LineString::Read -- Unexpected closing tag " << kstri << ".\n");}143 {_error_("KML_LineString::Read -- Unexpected closing tag " << kstri << ".\n");} 144 144 else if (strncmp(kstri,"<",1)) 145 {_error 2_("KML_LineString::Read -- Unexpected field \"" << kstri << "\".\n");}145 {_error_("KML_LineString::Read -- Unexpected field \"" << kstri << "\".\n");} 146 146 147 147 else if (!strcmp(kstri,"<extrude>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_LineString.h
r12832 r13036 38 38 void Read(FILE* fid,char* kstr); 39 39 void WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp); 40 int Id(){_error 2_("Not implemented yet.");};41 int MyRank(){_error 2_("Not implemented yet.");};42 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};43 int MarshallSize(){_error 2_("Not implemented yet.");};44 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};45 int ObjectEnum(){_error 2_("Not implemented yet.");};46 Object* copy(){_error 2_("Not implemented yet.");};40 int Id(){_error_("Not implemented yet.");}; 41 int MyRank(){_error_("Not implemented yet.");}; 42 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 43 int MarshallSize(){_error_("Not implemented yet.");}; 44 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 45 int ObjectEnum(){_error_("Not implemented yet.");}; 46 Object* copy(){_error_("Not implemented yet.");}; 47 47 /*}}}*/ 48 48 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_LineStyle.cpp
r12915 r13036 113 113 } 114 114 else if (!strncmp(kstri,"</",2)) 115 {_error 2_("KML_LineStyle::Read -- Unexpected closing tag " << kstri << ".\n");}115 {_error_("KML_LineStyle::Read -- Unexpected closing tag " << kstri << ".\n");} 116 116 else if (strncmp(kstri,"<",1)) 117 {_error 2_("KML_LineStyle::Read -- Unexpected field \"" << kstri << "\".\n");}117 {_error_("KML_LineStyle::Read -- Unexpected field \"" << kstri << "\".\n");} 118 118 119 119 else if (!strcmp(kstri,"<width>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_LineStyle.h
r12832 r13036 31 31 void Write(FILE* fid,const char* indent); 32 32 void Read(FILE* fid,char* kstr); 33 int Id(){_error 2_("Not implemented yet.");};34 int MyRank(){_error 2_("Not implemented yet.");};35 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};36 int MarshallSize(){_error 2_("Not implemented yet.");};37 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};38 int ObjectEnum(){_error 2_("Not implemented yet.");};39 Object* copy(){_error 2_("Not implemented yet.");};33 int Id(){_error_("Not implemented yet.");}; 34 int MyRank(){_error_("Not implemented yet.");}; 35 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 36 int MarshallSize(){_error_("Not implemented yet.");}; 37 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 38 int ObjectEnum(){_error_("Not implemented yet.");}; 39 Object* copy(){_error_("Not implemented yet.");}; 40 40 /*}}}*/ 41 41 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_LinearRing.cpp
r12915 r13036 139 139 } 140 140 else if (!strncmp(kstri,"</",2)) 141 {_error 2_("KML_LinearRing::Read -- Unexpected closing tag " << kstri << ".\n");}141 {_error_("KML_LinearRing::Read -- Unexpected closing tag " << kstri << ".\n");} 142 142 else if (strncmp(kstri,"<",1)) 143 {_error 2_("KML_LinearRing::Read -- Unexpected field \"" << kstri << "\".\n");}143 {_error_("KML_LinearRing::Read -- Unexpected field \"" << kstri << "\".\n");} 144 144 145 145 else if (!strcmp(kstri,"<extrude>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_LinearRing.h
r12832 r13036 38 38 void Read(FILE* fid,char* kstr); 39 39 void WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp); 40 int Id(){_error 2_("Not implemented yet.");};41 int MyRank(){_error 2_("Not implemented yet.");};42 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};43 int MarshallSize(){_error 2_("Not implemented yet.");};44 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};45 int ObjectEnum(){_error 2_("Not implemented yet.");};46 Object* copy(){_error 2_("Not implemented yet.");};40 int Id(){_error_("Not implemented yet.");}; 41 int MyRank(){_error_("Not implemented yet.");}; 42 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 43 int MarshallSize(){_error_("Not implemented yet.");}; 44 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 45 int ObjectEnum(){_error_("Not implemented yet.");}; 46 Object* copy(){_error_("Not implemented yet.");}; 47 47 /*}}}*/ 48 48 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_MultiGeometry.cpp
r12915 r13036 140 140 } 141 141 else if (!strncmp(kstri,"</",2)) 142 {_error 2_("KML_MultiGeometry::Read -- Unexpected closing tag " << kstri << ".\n");}142 {_error_("KML_MultiGeometry::Read -- Unexpected closing tag " << kstri << ".\n");} 143 143 else if (strncmp(kstri,"<",1)) 144 {_error 2_("KML_MultiGeometry::Read -- Unexpected field \"" << kstri << "\".\n");}144 {_error_("KML_MultiGeometry::Read -- Unexpected field \"" << kstri << "\".\n");} 145 145 146 146 else if (!strncmp(kstri,"<Point", 6)) { -
issm/trunk-jpl/src/c/classes/objects/KML/KML_MultiGeometry.h
r12832 r13036 34 34 void Read(FILE* fid,char* kstr); 35 35 void WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp); 36 int Id(){_error 2_("Not implemented yet.");};37 int MyRank(){_error 2_("Not implemented yet.");};38 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};39 int MarshallSize(){_error 2_("Not implemented yet.");};40 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};41 int ObjectEnum(){_error 2_("Not implemented yet.");};42 Object* copy(){_error 2_("Not implemented yet.");};36 int Id(){_error_("Not implemented yet.");}; 37 int MyRank(){_error_("Not implemented yet.");}; 38 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 39 int MarshallSize(){_error_("Not implemented yet.");}; 40 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 41 int ObjectEnum(){_error_("Not implemented yet.");}; 42 Object* copy(){_error_("Not implemented yet.");}; 43 43 /*}}}*/ 44 44 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Object.cpp
r12915 r13036 146 146 return; 147 147 else if (!strncmp(kstr,"</",2)) 148 {_error 2_("KML_Object::Read -- Unexpected closing tag " << kstr << ".\n");}148 {_error_("KML_Object::Read -- Unexpected closing tag " << kstr << ".\n");} 149 149 else if (strncmp(kstr,"<",1)) 150 {_error 2_("KML_Object::Read -- Unexpected field \"" << kstr << "\".\n");}150 {_error_("KML_Object::Read -- Unexpected field \"" << kstr << "\".\n");} 151 151 152 152 else if (!strncmp(kstr,"<Placemark",10)) { -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Object.h
r12832 r13036 31 31 virtual void DeepEcho(); 32 32 virtual void DeepEcho(const char* indent); 33 int Id(){_error 2_("Not implemented yet.");};34 int MyRank(){_error 2_("Not implemented yet.");};35 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};36 int MarshallSize(){_error 2_("Not implemented yet.");};37 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};38 int ObjectEnum(){_error 2_("Not implemented yet.");};39 Object* copy(){_error 2_("Not implemented yet.");};33 int Id(){_error_("Not implemented yet.");}; 34 int MyRank(){_error_("Not implemented yet.");}; 35 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 36 int MarshallSize(){_error_("Not implemented yet.");}; 37 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 38 int ObjectEnum(){_error_("Not implemented yet.");}; 39 Object* copy(){_error_("Not implemented yet.");}; 40 40 /*}}}*/ 41 41 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Overlay.cpp
r12915 r13036 110 110 } 111 111 else if (!strncmp(kstr,"</",2)) 112 {_error 2_("KML_Overlay::Read -- Unexpected closing tag " << kstr << ".\n");}112 {_error_("KML_Overlay::Read -- Unexpected closing tag " << kstr << ".\n");} 113 113 else if (strncmp(kstr,"<",1)) 114 {_error 2_("KML_Overlay::Read -- Unexpected field \"" << kstr << "\".\n");}114 {_error_("KML_Overlay::Read -- Unexpected field \"" << kstr << "\".\n");} 115 115 116 116 else if (!strcmp(kstr,"<color>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Overlay.h
r12832 r13036 36 36 void Write(FILE* fid,const char* indent); 37 37 void Read(FILE* fid,char* kstr); 38 int Id(){_error 2_("Not implemented yet.");};39 int MyRank(){_error 2_("Not implemented yet.");};40 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};41 int MarshallSize(){_error 2_("Not implemented yet.");};42 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};43 int ObjectEnum(){_error 2_("Not implemented yet.");};44 Object* copy(){_error 2_("Not implemented yet.");};38 int Id(){_error_("Not implemented yet.");}; 39 int MyRank(){_error_("Not implemented yet.");}; 40 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 41 int MarshallSize(){_error_("Not implemented yet.");}; 42 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 43 int ObjectEnum(){_error_("Not implemented yet.");}; 44 Object* copy(){_error_("Not implemented yet.");}; 45 45 /*}}}*/ 46 46 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Placemark.cpp
r12915 r13036 140 140 } 141 141 else if (!strncmp(kstri,"</",2)) 142 {_error 2_("KML_Placemark::Read -- Unexpected closing tag " << kstri << ".\n");}142 {_error_("KML_Placemark::Read -- Unexpected closing tag " << kstri << ".\n");} 143 143 else if (strncmp(kstri,"<",1)) 144 {_error 2_("KML_Placemark::Read -- Unexpected field \"" << kstri << "\".\n");}144 {_error_("KML_Placemark::Read -- Unexpected field \"" << kstri << "\".\n");} 145 145 146 146 else if (!strncmp(kstri,"<Point", 6)) { -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Placemark.h
r12832 r13036 34 34 void Read(FILE* fid,char* kstr); 35 35 void WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp); 36 int Id(){_error 2_("Not implemented yet.");};37 int MyRank(){_error 2_("Not implemented yet.");};38 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};39 int MarshallSize(){_error 2_("Not implemented yet.");};40 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};41 int ObjectEnum(){_error 2_("Not implemented yet.");};42 Object* copy(){_error 2_("Not implemented yet.");};36 int Id(){_error_("Not implemented yet.");}; 37 int MyRank(){_error_("Not implemented yet.");}; 38 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 39 int MarshallSize(){_error_("Not implemented yet.");}; 40 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 41 int ObjectEnum(){_error_("Not implemented yet.");}; 42 Object* copy(){_error_("Not implemented yet.");}; 43 43 /*}}}*/ 44 44 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Point.cpp
r12915 r13036 126 126 } 127 127 else if (!strncmp(kstri,"</",2)) 128 {_error 2_("KML_Point::Read -- Unexpected closing tag " << kstri << ".\n");}128 {_error_("KML_Point::Read -- Unexpected closing tag " << kstri << ".\n");} 129 129 else if (strncmp(kstri,"<",1)) 130 {_error 2_("KML_Point::Read -- Unexpected field \"" << kstri << "\".\n");}130 {_error_("KML_Point::Read -- Unexpected field \"" << kstri << "\".\n");} 131 131 132 132 else if (!strcmp(kstri,"<extrude>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Point.h
r12832 r13036 36 36 void Read(FILE* fid,char* kstr); 37 37 void WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp); 38 int Id(){_error 2_("Not implemented yet.");};39 int MyRank(){_error 2_("Not implemented yet.");};40 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};41 int MarshallSize(){_error 2_("Not implemented yet.");};42 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};43 int ObjectEnum(){_error 2_("Not implemented yet.");};44 Object* copy(){_error 2_("Not implemented yet.");};38 int Id(){_error_("Not implemented yet.");}; 39 int MyRank(){_error_("Not implemented yet.");}; 40 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 41 int MarshallSize(){_error_("Not implemented yet.");}; 42 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 43 int ObjectEnum(){_error_("Not implemented yet.");}; 44 Object* copy(){_error_("Not implemented yet.");}; 45 45 /*}}}*/ 46 46 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_PolyStyle.cpp
r12915 r13036 117 117 } 118 118 else if (!strncmp(kstri,"</",2)) 119 {_error 2_("KML_PolyStyle::Read -- Unexpected closing tag " << kstri << ".\n");}119 {_error_("KML_PolyStyle::Read -- Unexpected closing tag " << kstri << ".\n");} 120 120 else if (strncmp(kstri,"<",1)) 121 {_error 2_("KML_PolyStyle::Read -- Unexpected field \"" << kstri << "\".\n");}121 {_error_("KML_PolyStyle::Read -- Unexpected field \"" << kstri << "\".\n");} 122 122 123 123 else if (!strcmp(kstri,"<fill>")) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_PolyStyle.h
r12832 r13036 32 32 void Write(FILE* fid,const char* indent); 33 33 void Read(FILE* fid,char* kstr); 34 int Id(){_error 2_("Not implemented yet.");};35 int MyRank(){_error 2_("Not implemented yet.");};36 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};37 int MarshallSize(){_error 2_("Not implemented yet.");};38 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};39 int ObjectEnum(){_error 2_("Not implemented yet.");};40 Object* copy(){_error 2_("Not implemented yet.");};34 int Id(){_error_("Not implemented yet.");}; 35 int MyRank(){_error_("Not implemented yet.");}; 36 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 37 int MarshallSize(){_error_("Not implemented yet.");}; 38 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 39 int ObjectEnum(){_error_("Not implemented yet.");}; 40 Object* copy(){_error_("Not implemented yet.");}; 41 41 /*}}}*/ 42 42 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Polygon.cpp
r12915 r13036 179 179 } 180 180 else if (!strncmp(kstri,"</",2)) 181 {_error 2_("KML_Polygon::Read -- Unexpected closing tag " << kstri << ".\n");}181 {_error_("KML_Polygon::Read -- Unexpected closing tag " << kstri << ".\n");} 182 182 else if (strncmp(kstri,"<",1)) 183 {_error 2_("KML_Polygon::Read -- Unexpected field \"" << kstri << "\".\n");}183 {_error_("KML_Polygon::Read -- Unexpected field \"" << kstri << "\".\n");} 184 184 185 185 else if (!strcmp(kstri,"<extrude>")) … … 207 207 } 208 208 else if (!strncmp(kstrj,"</",2)) 209 {_error 2_("KML_Polygon::Read -- Unexpected closing tag " << kstrj << ".\n");}209 {_error_("KML_Polygon::Read -- Unexpected closing tag " << kstrj << ".\n");} 210 210 else if (strncmp(kstrj,"<",1)) 211 {_error 2_("KML_Polygon::Read -- Unexpected field \"" << kstrj << "\".\n");}211 {_error_("KML_Polygon::Read -- Unexpected field \"" << kstrj << "\".\n");} 212 212 213 213 else if (!strncmp(kstrj,"<LinearRing",11)) { … … 234 234 } 235 235 else if (!strncmp(kstrj,"</",2)) 236 {_error 2_("KML_Polygon::Read -- Unexpected closing tag " << kstrj << ".\n");}236 {_error_("KML_Polygon::Read -- Unexpected closing tag " << kstrj << ".\n");} 237 237 else if (strncmp(kstrj,"<",1)) 238 {_error 2_("KML_Polygon::Read -- Unexpected field \"" << kstrj << "\".\n");}238 {_error_("KML_Polygon::Read -- Unexpected field \"" << kstrj << "\".\n");} 239 239 240 240 else if (!strncmp(kstrj,"<LinearRing",11)) { -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Polygon.h
r12832 r13036 40 40 void Read(FILE* fid,char* kstr); 41 41 void WriteExp(FILE* fid,const char* nstr,int sgn,double cm,double sp); 42 int Id(){_error 2_("Not implemented yet.");};43 int MyRank(){_error 2_("Not implemented yet.");};44 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};45 int MarshallSize(){_error 2_("Not implemented yet.");};46 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};47 int ObjectEnum(){_error 2_("Not implemented yet.");};48 Object* copy(){_error 2_("Not implemented yet.");};42 int Id(){_error_("Not implemented yet.");}; 43 int MyRank(){_error_("Not implemented yet.");}; 44 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 45 int MarshallSize(){_error_("Not implemented yet.");}; 46 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 47 int ObjectEnum(){_error_("Not implemented yet.");}; 48 Object* copy(){_error_("Not implemented yet.");}; 49 49 /*}}}*/ 50 50 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Style.cpp
r12915 r13036 189 189 } 190 190 else if (!strncmp(kstri,"</",2)) 191 {_error 2_("KML_Style::Read -- Unexpected closing tag " << kstri << ".\n");}191 {_error_("KML_Style::Read -- Unexpected closing tag " << kstri << ".\n");} 192 192 else if (strncmp(kstri,"<",1)) 193 {_error 2_("KML_Style::Read -- Unexpected field \"" << kstri << "\".\n");}193 {_error_("KML_Style::Read -- Unexpected field \"" << kstri << "\".\n");} 194 194 195 195 // else if (!strncmp(kstri,"<IconStyle",10)) { -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Style.h
r12832 r13036 38 38 void Write(FILE* fid,const char* indent); 39 39 void Read(FILE* fid,char* kstr); 40 int Id(){_error 2_("Not implemented yet.");};41 int MyRank(){_error 2_("Not implemented yet.");};42 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};43 int MarshallSize(){_error 2_("Not implemented yet.");};44 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};45 int ObjectEnum(){_error 2_("Not implemented yet.");};46 Object* copy(){_error 2_("Not implemented yet.");};40 int Id(){_error_("Not implemented yet.");}; 41 int MyRank(){_error_("Not implemented yet.");}; 42 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 43 int MarshallSize(){_error_("Not implemented yet.");}; 44 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 45 int ObjectEnum(){_error_("Not implemented yet.");}; 46 Object* copy(){_error_("Not implemented yet.");}; 47 47 /*}}}*/ 48 48 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_StyleSelector.cpp
r12835 r13036 83 83 return; 84 84 else if (!strncmp(kstr,"</",2)) 85 {_error 2_("KML_StyleSelector::Read -- Unexpected closing tag " << kstr << ".\n");}85 {_error_("KML_StyleSelector::Read -- Unexpected closing tag " << kstr << ".\n");} 86 86 else if (strncmp(kstr,"<",1)) 87 {_error 2_("KML_StyleSelector::Read -- Unexpected field \"" << kstr << "\".\n");}87 {_error_("KML_StyleSelector::Read -- Unexpected field \"" << kstr << "\".\n");} 88 88 89 89 else if (!strncmp(kstr,"<",1)) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_StyleSelector.h
r12832 r13036 29 29 void Write(FILE* fid,const char* indent); 30 30 void Read(FILE* fid,char* kstr); 31 int Id(){_error 2_("Not implemented yet.");};32 int MyRank(){_error 2_("Not implemented yet.");};33 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};34 int MarshallSize(){_error 2_("Not implemented yet.");};35 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};36 int ObjectEnum(){_error 2_("Not implemented yet.");};37 Object* copy(){_error 2_("Not implemented yet.");};31 int Id(){_error_("Not implemented yet.");}; 32 int MyRank(){_error_("Not implemented yet.");}; 33 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 34 int MarshallSize(){_error_("Not implemented yet.");}; 35 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 36 int ObjectEnum(){_error_("Not implemented yet.");}; 37 Object* copy(){_error_("Not implemented yet.");}; 38 38 /*}}}*/ 39 39 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_SubStyle.cpp
r12835 r13036 83 83 return; 84 84 else if (!strncmp(kstr,"</",2)) 85 {_error 2_("KML_SubStyle::Read -- Unexpected closing tag " << kstr << ".\n");}85 {_error_("KML_SubStyle::Read -- Unexpected closing tag " << kstr << ".\n");} 86 86 else if (strncmp(kstr,"<",1)) 87 {_error 2_("KML_SubStyle::Read -- Unexpected field \"" << kstr << "\".\n");}87 {_error_("KML_SubStyle::Read -- Unexpected field \"" << kstr << "\".\n");} 88 88 89 89 else if (!strncmp(kstr,"<",1)) -
issm/trunk-jpl/src/c/classes/objects/KML/KML_SubStyle.h
r12832 r13036 29 29 void Write(FILE* fid,const char* indent); 30 30 void Read(FILE* fid,char* kstr); 31 int Id(){_error 2_("Not implemented yet.");};32 int MyRank(){_error 2_("Not implemented yet.");};33 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};34 int MarshallSize(){_error 2_("Not implemented yet.");};35 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};36 int ObjectEnum(){_error 2_("Not implemented yet.");};37 Object* copy(){_error 2_("Not implemented yet.");};31 int Id(){_error_("Not implemented yet.");}; 32 int MyRank(){_error_("Not implemented yet.");}; 33 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 34 int MarshallSize(){_error_("Not implemented yet.");}; 35 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 36 int ObjectEnum(){_error_("Not implemented yet.");}; 37 Object* copy(){_error_("Not implemented yet.");}; 38 38 /*}}}*/ 39 39 -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Unknown.cpp
r12915 r13036 160 160 } 161 161 else if (!strncmp(kstri,"</",2)) 162 {_error 2_("KML_Unknown::Read -- Unexpected closing tag " << kstri << ".\n");}162 {_error_("KML_Unknown::Read -- Unexpected closing tag " << kstri << ".\n");} 163 163 164 164 else if (strncmp(kstri,"<",1)) { -
issm/trunk-jpl/src/c/classes/objects/KML/KML_Unknown.h
r12832 r13036 32 32 void Write(FILE* fid,const char* indent); 33 33 void Read(FILE* fid,char* kstr); 34 int Id(){_error 2_("Not implemented yet.");};35 int MyRank(){_error 2_("Not implemented yet.");};36 void Marshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};37 int MarshallSize(){_error 2_("Not implemented yet.");};38 void Demarshall(char** pmarshalled_dataset){_error 2_("Not implemented yet.");};39 int ObjectEnum(){_error 2_("Not implemented yet.");};40 Object* copy(){_error 2_("Not implemented yet.");};34 int Id(){_error_("Not implemented yet.");}; 35 int MyRank(){_error_("Not implemented yet.");}; 36 void Marshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 37 int MarshallSize(){_error_("Not implemented yet.");}; 38 void Demarshall(char** pmarshalled_dataset){_error_("Not implemented yet.");}; 39 int ObjectEnum(){_error_("Not implemented yet.");}; 40 Object* copy(){_error_("Not implemented yet.");}; 41 41 /*}}}*/ 42 42 -
issm/trunk-jpl/src/c/classes/objects/Loads/Friction.cpp
r12832 r13036 107 107 vmag=sqrt(pow(vx,2)+pow(vy,2)+pow(vz,2)); 108 108 } 109 else _error 2_("element_type "<< element_type << " not supported yet");109 else _error_("element_type "<< element_type << " not supported yet"); 110 110 111 111 /*Checks that s-1>0 if v=0*/ 112 if(vmag==0 && (s-1)<0) _error 2_("velocity is 0 and (s-1)=" << (s-1) << "<0, alpha_complement is Inf");112 if(vmag==0 && (s-1)<0) _error_("velocity is 0 and (s-1)=" << (s-1) << "<0, alpha_complement is Inf"); 113 113 114 114 alpha2=pow(drag_coefficient,2)*pow(Neff,r)*pow(vmag,(s-1)); … … 171 171 vmag=sqrt(pow(vx,2)+pow(vy,2)+pow(vz,2)); 172 172 } 173 else _error 2_("element_type "<< element_type << " not supported yet");173 else _error_("element_type "<< element_type << " not supported yet"); 174 174 175 175 /*Checks that s-1>0 if v=0*/ 176 if(vmag==0 && (s-1)<0) _error 2_("velocity is 0 and (s-1)=" << (s-1) << "<0, alpha_complement is Inf");176 if(vmag==0 && (s-1)<0) _error_("velocity is 0 and (s-1)=" << (s-1) << "<0, alpha_complement is Inf"); 177 177 178 178 alpha2=pow(drag_coefficient,2)*pow(Neff,r)*pow(vmag,(s-1)); … … 238 238 vmag=sqrt(pow(vx,2)+pow(vy,2)+pow(vz,2)); 239 239 } 240 else _error 2_("element_type "<< element_type << " not supported yet");240 else _error_("element_type "<< element_type << " not supported yet"); 241 241 242 242 /*Checks that s-1>0 if v=0*/ 243 if(vmag==0 && (s-1)<0) _error 2_("velocity is 0 and (s-1)=" << (s-1) << "<0, alpha_complement is Inf");243 if(vmag==0 && (s-1)<0) _error_("velocity is 0 and (s-1)=" << (s-1) << "<0, alpha_complement is Inf"); 244 244 245 245 alpha_complement=pow(Neff,r)*pow(vmag,(s-1)); _assert_(!xIsNan<IssmDouble>(alpha_complement)); … … 304 304 vmag=sqrt(pow(vx,2)+pow(vy,2)+pow(vz,2)); 305 305 } 306 else _error 2_("element_type "<< element_type << " not supported yet");306 else _error_("element_type "<< element_type << " not supported yet"); 307 307 308 308 /*Checks that s-1>0 if v=0*/ 309 if(vmag==0 && (s-1)<0) _error 2_("velocity is 0 and (s-1)=" << (s-1) << "<0, alpha_complement is Inf");309 if(vmag==0 && (s-1)<0) _error_("velocity is 0 and (s-1)=" << (s-1) << "<0, alpha_complement is Inf"); 310 310 311 311 alpha_complement=pow(Neff,r)*pow(vmag,(s-1)); _assert_(!xIsNan<IssmDouble>(alpha_complement)); … … 319 319 320 320 Input* input=inputs->GetInput(enum_type); 321 if(!input) _error 2_("input " << EnumToStringx(enum_type) << " not found");321 if(!input) _error_("input " << EnumToStringx(enum_type) << " not found"); 322 322 input->GetInputValue(pvalue,gauss); 323 323 … … 328 328 329 329 Input* input=inputs->GetInput(enum_type); 330 if(!input) _error 2_("input " << EnumToStringx(enum_type) << " not found");330 if(!input) _error_("input " << EnumToStringx(enum_type) << " not found"); 331 331 input->GetInputValue(pvalue,gauss); 332 332 -
issm/trunk-jpl/src/c/classes/objects/Loads/Icefront.cpp
r12832 r13036 81 81 icefront_node_ids[3]=iomodel->nodecounter+reCast<int>(*(iomodel->Data(DiagnosticIcefrontEnum)+segment_width*i+3)); 82 82 } 83 else _error 2_("in_icefront_type " << EnumToStringx(in_icefront_type) << " not supported yet!");83 else _error_("in_icefront_type " << EnumToStringx(in_icefront_type) << " not supported yet!"); 84 84 85 85 if (in_icefront_type==PattynIceFrontEnum || in_icefront_type==StokesIceFrontEnum) … … 263 263 #endif 264 264 default: 265 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");265 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 266 266 } 267 267 … … 379 379 #endif 380 380 default: 381 _error 2_("Icefront type " << EnumToStringx(type) << " not supported yet");381 _error_("Icefront type " << EnumToStringx(type) << " not supported yet"); 382 382 } 383 383 } … … 441 441 break; 442 442 default: 443 _error 2_("fill type " << EnumToStringx(fill) << " not supported yet");443 _error_("fill type " << EnumToStringx(fill) << " not supported yet"); 444 444 } 445 445 ice_pressure=1.0/2.0*gravity*rho_ice*pow(thickness,2); … … 564 564 break; 565 565 default: 566 _error 2_("fill type " << EnumToStringx(fill) << " not supported yet");566 _error_("fill type " << EnumToStringx(fill) << " not supported yet"); 567 567 } 568 568 ice_pressure=rho_ice*gravity*(surface-z_g); … … 638 638 break; 639 639 default: 640 _error 2_("fill type " << EnumToStringx(fill) << " not supported yet");640 _error_("fill type " << EnumToStringx(fill) << " not supported yet"); 641 641 } 642 642 air_pressure=0; -
issm/trunk-jpl/src/c/classes/objects/Loads/Icefront.h
r12494 r13036 64 64 void InputUpdateFromConstant(bool constant, int name); 65 65 void InputUpdateFromSolution(IssmDouble* solution); 66 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error 2_("not implemented yet");};66 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error_("not implemented yet");}; 67 67 /*}}}*/ 68 68 /*Load virtual functions definitions: {{{*/ -
issm/trunk-jpl/src/c/classes/objects/Loads/Numericalflux.cpp
r12832 r13036 270 270 break; 271 271 default: 272 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");272 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 273 273 } 274 274 … … 300 300 break; 301 301 default: 302 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");302 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 303 303 } 304 304 … … 347 347 return CreateKMatrixPrognosticBoundary(); 348 348 default: 349 _error 2_("type not supported yet");349 _error_("type not supported yet"); 350 350 } 351 351 } … … 500 500 return CreateKMatrixBalancethicknessBoundary(); 501 501 default: 502 _error 2_("type not supported yet");502 _error_("type not supported yet"); 503 503 } 504 504 } … … 651 651 return CreateKMatrixAdjointBalancethicknessBoundary(); 652 652 default: 653 _error 2_("type not supported yet");653 _error_("type not supported yet"); 654 654 } 655 655 } … … 683 683 return CreatePVectorPrognosticBoundary(); 684 684 default: 685 _error 2_("type not supported yet");685 _error_("type not supported yet"); 686 686 } 687 687 } … … 751 751 vyaverage_input->GetInputValue(&vy,gauss); 752 752 spcthickness_input->GetInputValue(&thickness,gauss); 753 if(xIsNan<IssmDouble>(thickness)) _error 2_("Cannot weakly apply constraint because NaN was provided");753 if(xIsNan<IssmDouble>(thickness)) _error_("Cannot weakly apply constraint because NaN was provided"); 754 754 755 755 UdotN=vx*normal[0]+vy*normal[1]; … … 777 777 return CreatePVectorBalancethicknessBoundary(); 778 778 default: 779 _error 2_("type not supported yet");779 _error_("type not supported yet"); 780 780 } 781 781 } -
issm/trunk-jpl/src/c/classes/objects/Loads/Numericalflux.h
r12494 r13036 50 50 /*Update virtual functions resolution: {{{*/ 51 51 void InputUpdateFromVector(IssmDouble* vector, int name, int type){/*Do nothing*/} 52 void InputUpdateFromVector(int* vector, int name, int type){_error 2_("Not implemented yet!");}53 void InputUpdateFromVector(bool* vector, int name, int type){_error 2_("Not implemented yet!");}52 void InputUpdateFromVector(int* vector, int name, int type){_error_("Not implemented yet!");} 53 void InputUpdateFromVector(bool* vector, int name, int type){_error_("Not implemented yet!");} 54 54 void InputUpdateFromMatrixDakota(IssmDouble* matrix, int nrows, int ncols, int name, int type){/*Do nothing*/} 55 55 void InputUpdateFromVectorDakota(IssmDouble* vector, int name, int type){/*Do nothing*/} 56 void InputUpdateFromVectorDakota(int* vector, int name, int type){_error 2_("Not implemented yet!");}57 void InputUpdateFromVectorDakota(bool* vector, int name, int type){_error 2_("Not implemented yet!");}56 void InputUpdateFromVectorDakota(int* vector, int name, int type){_error_("Not implemented yet!");} 57 void InputUpdateFromVectorDakota(bool* vector, int name, int type){_error_("Not implemented yet!");} 58 58 void InputUpdateFromConstant(IssmDouble constant, int name){/*Do nothing*/}; 59 59 void InputUpdateFromConstant(int constant, int name){/*Do nothing*/}; 60 void InputUpdateFromConstant(bool constant, int name){_error 2_("Not implemented yet!");}61 void InputUpdateFromSolution(IssmDouble* solution){_error 2_("Not implemented yet!");}62 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error 2_("not implemented yet");};60 void InputUpdateFromConstant(bool constant, int name){_error_("Not implemented yet!");} 61 void InputUpdateFromSolution(IssmDouble* solution){_error_("Not implemented yet!");} 62 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error_("not implemented yet");}; 63 63 /*}}}*/ 64 64 /*Load virtual functions definitions: {{{*/ … … 67 67 void CreateKMatrix(Matrix* Kff, Matrix* Kfs); 68 68 void CreatePVector(Vector* pf); 69 void CreateJacobianMatrix(Matrix* Jff){_error 2_("Not implemented yet");};70 void PenaltyCreateJacobianMatrix(Matrix* Jff,IssmDouble kmax){_error 2_("Not implemented yet");};69 void CreateJacobianMatrix(Matrix* Jff){_error_("Not implemented yet");}; 70 void PenaltyCreateJacobianMatrix(Matrix* Jff,IssmDouble kmax){_error_("Not implemented yet");}; 71 71 void PenaltyCreateKMatrix(Matrix* Kff, Matrix* kfs, IssmDouble kmax); 72 72 void PenaltyCreatePVector(Vector* pf, IssmDouble kmax); -
issm/trunk-jpl/src/c/classes/objects/Loads/Pengrid.cpp
r12832 r13036 239 239 #endif 240 240 default: 241 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");241 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 242 242 } 243 243 … … 271 271 #endif 272 272 default: 273 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");273 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 274 274 } 275 275 … … 379 379 } 380 380 else{ 381 _error 2_("analysis: " << EnumToStringx(analysis_type) << " not supported yet");381 _error_("analysis: " << EnumToStringx(analysis_type) << " not supported yet"); 382 382 } 383 383 … … 616 616 /*FUNCTION Pengrid::UpdateInputs {{{*/ 617 617 void Pengrid::UpdateInputs(IssmDouble* solution){ 618 _error 2_("not supported yet!");619 } 620 /*}}}*/ 618 _error_("not supported yet!"); 619 } 620 /*}}}*/ -
issm/trunk-jpl/src/c/classes/objects/Loads/Pengrid.h
r12494 r13036 65 65 void InputUpdateFromConstant(bool constant, int name); 66 66 void InputUpdateFromSolution(IssmDouble* solution); 67 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error 2_("not implemented yet");};67 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error_("not implemented yet");}; 68 68 /*}}}*/ 69 69 /*Load virtual functions definitions: {{{*/ … … 72 72 void CreateKMatrix(Matrix* Kff, Matrix* Kfs); 73 73 void CreatePVector(Vector* pf); 74 void CreateJacobianMatrix(Matrix* Jff){_error 2_("Not implemented yet");};75 void PenaltyCreateJacobianMatrix(Matrix* Jff,IssmDouble kmax){_error 2_("Not implemented yet");};74 void CreateJacobianMatrix(Matrix* Jff){_error_("Not implemented yet");}; 75 void PenaltyCreateJacobianMatrix(Matrix* Jff,IssmDouble kmax){_error_("Not implemented yet");}; 76 76 void PenaltyCreateKMatrix(Matrix* Kff, Matrix* kfs, IssmDouble kmax); 77 77 void PenaltyCreatePVector(Vector* pf, IssmDouble kmax); -
issm/trunk-jpl/src/c/classes/objects/Loads/Penpair.cpp
r12832 r13036 172 172 break; 173 173 default: 174 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");174 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 175 175 } 176 176 … … 244 244 case MacAyealApproximationEnum: return PenaltyCreateKMatrixDiagnosticMacAyealPattyn(kmax); 245 245 case PattynApproximationEnum: return PenaltyCreateKMatrixDiagnosticMacAyealPattyn(kmax); 246 default: _error 2_("not supported yet");246 default: _error_("not supported yet"); 247 247 } 248 248 case PattynApproximationEnum: … … 250 250 case MacAyealApproximationEnum: return PenaltyCreateKMatrixDiagnosticMacAyealPattyn(kmax); 251 251 case PattynApproximationEnum: return PenaltyCreateKMatrixDiagnosticMacAyealPattyn(kmax); 252 default: _error 2_("not supported yet");252 default: _error_("not supported yet"); 253 253 } 254 254 case StokesApproximationEnum: … … 256 256 case StokesApproximationEnum: return PenaltyCreateKMatrixDiagnosticStokes(kmax); 257 257 case NoneApproximationEnum: return PenaltyCreateKMatrixDiagnosticStokes(kmax); 258 default: _error 2_("not supported yet");258 default: _error_("not supported yet"); 259 259 } 260 260 case NoneApproximationEnum: … … 262 262 case StokesApproximationEnum: return PenaltyCreateKMatrixDiagnosticStokes(kmax); 263 263 case NoneApproximationEnum: return PenaltyCreateKMatrixDiagnosticStokes(kmax); 264 default: _error 2_("not supported yet");264 default: _error_("not supported yet"); 265 265 } 266 default: _error 2_("not supported yet");266 default: _error_("not supported yet"); 267 267 } 268 268 } -
issm/trunk-jpl/src/c/classes/objects/Loads/Penpair.h
r12494 r13036 44 44 void InputUpdateFromVector(int* vector, int name, int type); 45 45 void InputUpdateFromVector(bool* vector, int name, int type); 46 void InputUpdateFromMatrixDakota(IssmDouble* matrix, int nrow, int ncols,int name, int type){_error 2_("Not implemented yet!");}47 void InputUpdateFromVectorDakota(IssmDouble* vector, int name, int type){_error 2_("Not implemented yet!");}48 void InputUpdateFromVectorDakota(int* vector, int name, int type){_error 2_("Not implemented yet!");}49 void InputUpdateFromVectorDakota(bool* vector, int name, int type){_error 2_("Not implemented yet!");}46 void InputUpdateFromMatrixDakota(IssmDouble* matrix, int nrow, int ncols,int name, int type){_error_("Not implemented yet!");} 47 void InputUpdateFromVectorDakota(IssmDouble* vector, int name, int type){_error_("Not implemented yet!");} 48 void InputUpdateFromVectorDakota(int* vector, int name, int type){_error_("Not implemented yet!");} 49 void InputUpdateFromVectorDakota(bool* vector, int name, int type){_error_("Not implemented yet!");} 50 50 void InputUpdateFromConstant(IssmDouble constant, int name); 51 51 void InputUpdateFromConstant(int constant, int name); 52 52 void InputUpdateFromConstant(bool constant, int name); 53 void InputUpdateFromSolution(IssmDouble* solution){_error 2_("Not implemented yet!");}54 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error 2_("not implemented yet");};53 void InputUpdateFromSolution(IssmDouble* solution){_error_("Not implemented yet!");} 54 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error_("not implemented yet");}; 55 55 /*}}}*/ 56 56 /*Load virtual functions definitions: {{{*/ -
issm/trunk-jpl/src/c/classes/objects/Loads/Riftfront.cpp
r12832 r13036 276 276 277 277 /*update input*/ 278 _error 2_("not implemented yet");278 _error_("not implemented yet"); 279 279 //this->inputs->AddInput(new DoubleInput(name,constant)); 280 280 … … 324 324 break; 325 325 default: 326 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");326 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 327 327 } 328 328 … … 350 350 break; 351 351 default: 352 _error 2_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet");352 _error_("analysis " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not supported yet"); 353 353 } 354 354 … … 397 397 398 398 /*enum of element? */ 399 if(elements[0]->ObjectEnum()!=TriaEnum)_error 2_("only Tria element allowed for Riftfront load!");399 if(elements[0]->ObjectEnum()!=TriaEnum)_error_("only Tria element allowed for Riftfront load!"); 400 400 tria1=(Tria*)elements[0]; 401 401 tria2=(Tria*)elements[1]; … … 410 410 tria1->GetInputValue(&h[0],nodes[0],ThicknessEnum); 411 411 tria2->GetInputValue(&h[1],nodes[1],ThicknessEnum); 412 if (h[0]!=h[1])_error 2_("different thicknesses not supported for rift fronts");412 if (h[0]!=h[1])_error_("different thicknesses not supported for rift fronts"); 413 413 thickness=h[0]; 414 414 … … 488 488 489 489 /*enum of element? */ 490 if(elements[0]->ObjectEnum()!=TriaEnum)_error 2_("only Tria element allowed for Riftfront load!");490 if(elements[0]->ObjectEnum()!=TriaEnum)_error_("only Tria element allowed for Riftfront load!"); 491 491 tria1=(Tria*)elements[0]; 492 492 tria2=(Tria*)elements[1]; … … 504 504 tria1->GetInputValue(&h[0],nodes[0],ThicknessEnum); 505 505 tria2->GetInputValue(&h[1],nodes[1],ThicknessEnum); 506 if (h[0]!=h[1])_error 2_("different thicknesses not supported for rift fronts");506 if (h[0]!=h[1])_error_("different thicknesses not supported for rift fronts"); 507 507 thickness=h[0]; 508 508 tria1->GetInputValue(&b[0],nodes[0],BedEnum); 509 509 tria2->GetInputValue(&b[1],nodes[1],BedEnum); 510 if (b[0]!=b[1])_error 2_("different beds not supported for rift fronts");510 if (b[0]!=b[1])_error_("different beds not supported for rift fronts"); 511 511 bed=b[0]; 512 512 … … 536 536 else if(fill==MelangeEnum){ //icefront finding itself against another icefront (pressure imbalance is fully compensated, ice vs ice) 537 537 538 if(!shelf) _error 2_("fill type " << fill << " not supported on ice sheets yet.");538 if(!shelf) _error_("fill type " << fill << " not supported on ice sheets yet."); 539 539 540 540 pressure_litho=rho_ice*gravity*pow(thickness,(IssmDouble)2)/(IssmDouble)2; … … 546 546 } 547 547 else{ 548 _error 2_("fill type " << fill << " not supported yet.");548 _error_("fill type " << fill << " not supported yet."); 549 549 } 550 550 … … 585 585 586 586 /*enum of element? */ 587 if(elements[0]->ObjectEnum()!=TriaEnum)_error 2_("only Tria element allowed for Riftfront load!");587 if(elements[0]->ObjectEnum()!=TriaEnum)_error_("only Tria element allowed for Riftfront load!"); 588 588 589 589 /*recover elements on both side of rift: */ … … 706 706 707 707 /*enum of element? */ 708 if(elements[0]->ObjectEnum()!=TriaEnum)_error 2_("only Tria element allowed for Riftfront load!");708 if(elements[0]->ObjectEnum()!=TriaEnum)_error_("only Tria element allowed for Riftfront load!"); 709 709 710 710 /*recover elements on both side of rift: */ … … 751 751 752 752 /*enum of element? */ 753 if(elements[0]->ObjectEnum()!=TriaEnum)_error 2_("only Tria element allowed for Riftfront load!");753 if(elements[0]->ObjectEnum()!=TriaEnum)_error_("only Tria element allowed for Riftfront load!"); 754 754 755 755 /*recover elements on both side of rift: */ … … 794 794 795 795 /*enum of element? */ 796 if(elements[0]->ObjectEnum()!=TriaEnum)_error 2_("only Tria element allowed for Riftfront load!");796 if(elements[0]->ObjectEnum()!=TriaEnum)_error_("only Tria element allowed for Riftfront load!"); 797 797 798 798 /*recover elements on both side of rift: */ … … 844 844 845 845 /*enum of element? */ 846 if(elements[0]->ObjectEnum()!=TriaEnum)_error 2_("only Tria element allowed for Riftfront load!");846 if(elements[0]->ObjectEnum()!=TriaEnum)_error_("only Tria element allowed for Riftfront load!"); 847 847 848 848 /*recover elements on both side of rift: */ -
issm/trunk-jpl/src/c/classes/objects/Loads/Riftfront.h
r12494 r13036 62 62 /*Update virtual functions resolution: {{{*/ 63 63 void InputUpdateFromVector(IssmDouble* vector, int name, int type); 64 void InputUpdateFromVector(int* vector, int name, int type){_error 2_("Not implemented yet!");}65 void InputUpdateFromVector(bool* vector, int name, int type){_error 2_("Not implemented yet!");}66 void InputUpdateFromMatrixDakota(IssmDouble* matrix, int nrows,int ncols, int name, int type){_error 2_("Not implemented yet!");}67 void InputUpdateFromVectorDakota(IssmDouble* vector, int name, int type){_error 2_("Not implemented yet!");}68 void InputUpdateFromVectorDakota(int* vector, int name, int type){_error 2_("Not implemented yet!");}69 void InputUpdateFromVectorDakota(bool* vector, int name, int type){_error 2_("Not implemented yet!");}64 void InputUpdateFromVector(int* vector, int name, int type){_error_("Not implemented yet!");} 65 void InputUpdateFromVector(bool* vector, int name, int type){_error_("Not implemented yet!");} 66 void InputUpdateFromMatrixDakota(IssmDouble* matrix, int nrows,int ncols, int name, int type){_error_("Not implemented yet!");} 67 void InputUpdateFromVectorDakota(IssmDouble* vector, int name, int type){_error_("Not implemented yet!");} 68 void InputUpdateFromVectorDakota(int* vector, int name, int type){_error_("Not implemented yet!");} 69 void InputUpdateFromVectorDakota(bool* vector, int name, int type){_error_("Not implemented yet!");} 70 70 void InputUpdateFromConstant(IssmDouble constant, int name); 71 void InputUpdateFromConstant(int constant, int name){_error 2_("Not implemented yet!");}71 void InputUpdateFromConstant(int constant, int name){_error_("Not implemented yet!");} 72 72 void InputUpdateFromConstant(bool constant, int name); 73 void InputUpdateFromSolution(IssmDouble* solution){_error 2_("Not implemented yet!");}74 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error 2_("not implemented yet");};73 void InputUpdateFromSolution(IssmDouble* solution){_error_("Not implemented yet!");} 74 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error_("not implemented yet");}; 75 75 /*}}}*/ 76 76 /*Load virtual functions definitions: {{{*/ … … 79 79 void CreateKMatrix(Matrix* Kff, Matrix* Kfs); 80 80 void CreatePVector(Vector* pf); 81 void CreateJacobianMatrix(Matrix* Jff){_error 2_("Not implemented yet");};82 void PenaltyCreateJacobianMatrix(Matrix* Jff,IssmDouble kmax){_error 2_("Not implemented yet");};81 void CreateJacobianMatrix(Matrix* Jff){_error_("Not implemented yet");}; 82 void PenaltyCreateJacobianMatrix(Matrix* Jff,IssmDouble kmax){_error_("Not implemented yet");}; 83 83 void PenaltyCreateKMatrix(Matrix* Kff, Matrix* kfs, IssmDouble kmax); 84 84 void PenaltyCreatePVector(Vector* pf, IssmDouble kmax); -
issm/trunk-jpl/src/c/classes/objects/Materials/Matice.cpp
r12832 r13036 180 180 /*Get input (either in element or material)*/ 181 181 Input* input=inputs->GetInput(input_enum); 182 if(!input) _error 2_("Input " << EnumToStringx(input_enum) << " not found in material");182 if(!input) _error_("Input " << EnumToStringx(input_enum) << " not found in material"); 183 183 184 184 /*We found the enum. Use its values to fill into the vector, using the vertices ids: */ … … 186 186 break; 187 187 188 default: _error 2_("element " << EnumToStringx(element->ObjectEnum()) << " not implemented yet");188 default: _error_("element " << EnumToStringx(element->ObjectEnum()) << " not implemented yet"); 189 189 } 190 190 } … … 246 246 247 247 /*Checks in debugging mode*/ 248 if(viscosity<=0) _error 2_("Negative viscosity");248 if(viscosity<=0) _error_("Negative viscosity"); 249 249 _assert_(B>0); 250 250 _assert_(n>0); … … 317 317 318 318 /*Checks in debugging mode*/ 319 if(viscosity3d<=0) _error 2_("Negative viscosity");319 if(viscosity3d<=0) _error_("Negative viscosity"); 320 320 _assert_(B>0); 321 321 _assert_(n>0); … … 389 389 390 390 /*Checks in debugging mode*/ 391 if(viscosity3d<=0) _error 2_("Negative viscosity");391 if(viscosity3d<=0) _error_("Negative viscosity"); 392 392 _assert_(B>0); 393 393 _assert_(n>0); … … 550 550 return; 551 551 } 552 default: _error 2_("element " << EnumToStringx(element->ObjectEnum()) << " not implemented yet");553 } 554 default: _error 2_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet");552 default: _error_("element " << EnumToStringx(element->ObjectEnum()) << " not implemented yet"); 553 } 554 default: _error_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet"); 555 555 } 556 556 } … … 608 608 return; 609 609 } 610 default: _error 2_("element " << EnumToStringx(element->ObjectEnum()) << " not implemented yet");611 } 612 default: _error 2_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet");610 default: _error_("element " << EnumToStringx(element->ObjectEnum()) << " not implemented yet"); 611 } 612 default: _error_("type " << type << " (" << EnumToStringx(type) << ") not implemented yet"); 613 613 } 614 614 … … 750 750 #endif 751 751 else{ 752 _error 2_("Mesh type not supported yet!");752 _error_("Mesh type not supported yet!"); 753 753 } 754 754 -
issm/trunk-jpl/src/c/classes/objects/Materials/Matpar.h
r12494 r13036 62 62 void InputUpdateFromConstant(bool constant, int name); 63 63 void InputUpdateFromSolution(IssmDouble* solution); 64 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error 2_("not implemented yet");};64 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error_("not implemented yet");}; 65 65 /*}}}*/ 66 66 /*Material virtual functions resolution: {{{*/ 67 void InputDuplicate(int original_enum,int new_enum){_error 2_("not implemented yet");};67 void InputDuplicate(int original_enum,int new_enum){_error_("not implemented yet");}; 68 68 void Configure(Elements* elements); 69 69 void GetVectorFromInputs(Vector* vector,int input_enum){return;} -
issm/trunk-jpl/src/c/classes/objects/Node.cpp
r12832 r13036 70 70 71 71 /*spc all nodes on water*/ 72 if (!iomodel->Data(MaskVertexonwaterEnum)) _error 2_("iomodel->nodeonwater is NULL");72 if (!iomodel->Data(MaskVertexonwaterEnum)) _error_("iomodel->nodeonwater is NULL"); 73 73 if (reCast<IssmBool>(iomodel->Data(MaskVertexonwaterEnum)[io_index])){ 74 74 for(k=1;k<=gsize;k++){ … … 114 114 /*Diagnostic Hutter*/ 115 115 if (analysis_type==DiagnosticHutterAnalysisEnum){ 116 if (!iomodel->Data(FlowequationVertexEquationEnum)) _error 2_("iomodel->vertices_type is NULL");116 if (!iomodel->Data(FlowequationVertexEquationEnum)) _error_("iomodel->vertices_type is NULL"); 117 117 /*Constrain all nodes that are not Hutter*/ 118 118 if (reCast<int>(iomodel->Data(FlowequationVertexEquationEnum)[io_index])!=HutterApproximationEnum){ … … 230 230 return indexing.sdoflist[dofindex]; 231 231 } 232 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");232 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 233 233 234 234 } … … 302 302 else for(i=0;i<this->indexing.ssize;i++) outdoflist[i]=indexing.sdoflist[i]; 303 303 } 304 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");304 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 305 305 } 306 306 } … … 342 342 } 343 343 } 344 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");344 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 345 345 } 346 346 else{ … … 411 411 } 412 412 } 413 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");413 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 414 414 } 415 415 } … … 597 597 else if (setenum==FsetEnum) numdofs=this->indexing.fsize; 598 598 else if (setenum==SsetEnum) numdofs=this->indexing.ssize; 599 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");599 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 600 600 } 601 601 else{ … … 627 627 else numdofs=this->indexing.ssize; 628 628 } 629 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");629 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 630 630 } 631 631 return numdofs; … … 834 834 } 835 835 } 836 else _error 2_("VecMerge can only merge from the s or f-set onto the g-set!");836 else _error_("VecMerge can only merge from the s or f-set onto the g-set!"); 837 837 838 838 /*Free ressources:*/ … … 880 880 } 881 881 } 882 else _error 2_("VecReduce can only merge from the s or f-set onto the g-set!");882 else _error_("VecReduce can only merge from the s or f-set onto the g-set!"); 883 883 884 884 /*Free ressources:*/ … … 927 927 dofcount+=this->indexing.ssize; 928 928 } 929 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");929 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 930 930 931 931 … … 956 956 for(i=0;i<this->indexing.ssize;i++) indexing.sdoflist[i]+=dofcount; 957 957 } 958 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");958 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 959 959 } 960 960 /*}}}*/ … … 972 972 else if(setenum==FsetEnum)for(j=0;j<this->indexing.fsize;j++) *(truedofs+ncols*sid+j)=indexing.fdoflist[j]; 973 973 else if(setenum==SsetEnum)for(j=0;j<this->indexing.ssize;j++) *(truedofs+ncols*sid+j)=indexing.sdoflist[j]; 974 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");974 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 975 975 976 976 } … … 991 991 else if(setenum==FsetEnum)for(j=0;j<this->indexing.fsize;j++) indexing.fdoflist[j]=*(alltruedofs+ncols*sid+j); 992 992 else if(setenum==SsetEnum)for(j=0;j<this->indexing.ssize;j++) indexing.sdoflist[j]=*(alltruedofs+ncols*sid+j); 993 else _error 2_("set of enum type " << EnumToStringx(setenum) << " not supported yet!");993 else _error_("set of enum type " << EnumToStringx(setenum) << " not supported yet!"); 994 994 995 995 } -
issm/trunk-jpl/src/c/classes/objects/Node.h
r12832 r13036 45 45 int MyRank(); 46 46 int ObjectEnum(); 47 Object* copy(){_error 2_("Not implemented yet (similar to Elements)");};47 Object* copy(){_error_("Not implemented yet (similar to Elements)");}; 48 48 /*}}}*/ 49 49 /*Update virtual functions definitions: {{{*/ … … 59 59 void InputUpdateFromConstant(int constant, int name); 60 60 void InputUpdateFromConstant(bool constant, int name); 61 void InputUpdateFromSolution(IssmDouble* solution){_error 2_("Not implemented yet!");}62 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error 2_("Not implemented yet!");}61 void InputUpdateFromSolution(IssmDouble* solution){_error_("Not implemented yet!");} 62 void InputUpdateFromIoModel(int index, IoModel* iomodel){_error_("Not implemented yet!");} 63 63 /*}}}*/ 64 64 /*Node numerical routines {{{*/ -
issm/trunk-jpl/src/c/classes/objects/Options/Option.h
r12832 r13036 31 31 virtual void DeepEcho(); 32 32 virtual void DeepEcho(char* indent); 33 int Id(){_error 2_("Not implemented yet");};34 int MyRank(){_error 2_("Not implemented yet");};33 int Id(){_error_("Not implemented yet");}; 34 int MyRank(){_error_("Not implemented yet");}; 35 35 int ObjectEnum(){return OptionEnum;}; 36 Object* copy(){_error 2_("Not implemented yet");};36 Object* copy(){_error_("Not implemented yet");}; 37 37 /*}}}*/ 38 38 -
issm/trunk-jpl/src/c/classes/objects/Options/OptionCell.h
r12832 r13036 28 28 void DeepEcho(); 29 29 void DeepEcho(char* indent); 30 int Id(){_error 2_("Not implemented yet");};31 int MyRank(){_error 2_("Not implemented yet");};30 int Id(){_error_("Not implemented yet");}; 31 int MyRank(){_error_("Not implemented yet");}; 32 32 int ObjectEnum(){return OptionCellEnum;}; 33 Object* copy(){_error 2_("Not implemented yet");};33 Object* copy(){_error_("Not implemented yet");}; 34 34 /*}}}*/ 35 35 … … 39 39 int NDims(); 40 40 int* Size(); 41 void Get(int* pvalue){_error 2_("An OptionCell object cannot return a int");};42 void Get(IssmDouble* pvalue){_error 2_("An OptionCell object cannot return a IssmDouble");};43 void Get(bool* pvalue){ _error 2_("An OptionCell object cannot return a bool");};44 void Get(char** pvalue){ _error 2_("An OptionCell object cannot return a string");};45 void Get(char*** ppvalue,int *pnumel){ _error 2_("An OptionCell object cannot return a string vec");};46 void Get(IssmDouble** pvalue,int *pnumel){ _error 2_("An OptionCell object cannot return a IssmDouble vec");};41 void Get(int* pvalue){_error_("An OptionCell object cannot return a int");}; 42 void Get(IssmDouble* pvalue){_error_("An OptionCell object cannot return a IssmDouble");}; 43 void Get(bool* pvalue){ _error_("An OptionCell object cannot return a bool");}; 44 void Get(char** pvalue){ _error_("An OptionCell object cannot return a string");}; 45 void Get(char*** ppvalue,int *pnumel){ _error_("An OptionCell object cannot return a string vec");}; 46 void Get(IssmDouble** pvalue,int *pnumel){ _error_("An OptionCell object cannot return a IssmDouble vec");}; 47 47 void Get(Options** pvalue); 48 void Get(Options*** ppvalue,int *pnumel){ _error 2_("An OptionCell object cannot return an Options DataSet vec");};48 void Get(Options*** ppvalue,int *pnumel){ _error_("An OptionCell object cannot return an Options DataSet vec");}; 49 49 50 50 }; -
issm/trunk-jpl/src/c/classes/objects/Options/OptionChar.cpp
r12832 r13036 153 153 /*We should first check that the size is at least one*/ 154 154 if(this->NumEl()<=0){ 155 _error 2_("option \"" << this->name << "\" is empty and cannot return a string vector");155 _error_("option \"" << this->name << "\" is empty and cannot return a string vector"); 156 156 } 157 157 -
issm/trunk-jpl/src/c/classes/objects/Options/OptionChar.h
r12832 r13036 28 28 void DeepEcho(); 29 29 void DeepEcho(char* indent); 30 int Id(){_error 2_("Not implemented yet");};31 int MyRank(){_error 2_("Not implemented yet");};30 int Id(){_error_("Not implemented yet");}; 31 int MyRank(){_error_("Not implemented yet");}; 32 32 int ObjectEnum(){return OptionCharEnum;}; 33 Object* copy(){_error 2_("Not implemented yet");};33 Object* copy(){_error_("Not implemented yet");}; 34 34 /*}}}*/ 35 35 … … 39 39 int NDims(); 40 40 int* Size(); 41 void Get(int* pvalue){_error 2_("An OptionChar object cannot return a int");};42 void Get(IssmDouble* pvalue){_error 2_("An OptionChar object cannot return a IssmDouble");};43 void Get(bool* pvalue){ _error 2_("An OptionChar object cannot return a bool");};41 void Get(int* pvalue){_error_("An OptionChar object cannot return a int");}; 42 void Get(IssmDouble* pvalue){_error_("An OptionChar object cannot return a IssmDouble");}; 43 void Get(bool* pvalue){ _error_("An OptionChar object cannot return a bool");}; 44 44 void Get(char** pvalue); 45 45 void Get(char*** ppvalue,int *pnumel); 46 void Get(IssmDouble** pvalue,int *pnumel){ _error 2_("An OptionChar object cannot return a IssmDouble vec");};47 void Get(Options** pvalue){ _error 2_("An OptionChar object cannot return an Options DataSet");};48 void Get(Options*** ppvalue,int *pnumel){ _error 2_("An OptionChar object cannot return an Options DataSet vec");};46 void Get(IssmDouble** pvalue,int *pnumel){ _error_("An OptionChar object cannot return a IssmDouble vec");}; 47 void Get(Options** pvalue){ _error_("An OptionChar object cannot return an Options DataSet");}; 48 void Get(Options*** ppvalue,int *pnumel){ _error_("An OptionChar object cannot return an Options DataSet vec");}; 49 49 50 50 }; -
issm/trunk-jpl/src/c/classes/objects/Options/OptionDouble.cpp
r12832 r13036 125 125 /*We should first check that the size is one*/ 126 126 if(this->NumEl()!=1){ 127 _error 2_("option \"" << this->name << "\" has " << this->NumEl() << " elements and cannot return a single int");127 _error_("option \"" << this->name << "\" has " << this->NumEl() << " elements and cannot return a single int"); 128 128 } 129 129 … … 137 137 /*We should first check that the size is one*/ 138 138 if(this->NumEl()!=1){ 139 _error 2_("option \"" << this->name << "\" has " << this->NumEl() << " elements and cannot return a single IssmDouble");139 _error_("option \"" << this->name << "\" has " << this->NumEl() << " elements and cannot return a single IssmDouble"); 140 140 } 141 141 … … 149 149 /*We should first check that the size is at least one*/ 150 150 if(this->NumEl()<=0){ 151 _error 2_("option \"" << this->name << "\" is empty and cannot return a IssmDouble vector");151 _error_("option \"" << this->name << "\" is empty and cannot return a IssmDouble vector"); 152 152 } 153 153 -
issm/trunk-jpl/src/c/classes/objects/Options/OptionDouble.h
r12832 r13036 28 28 void DeepEcho(); 29 29 void DeepEcho(char* indent); 30 int Id(){_error 2_("Not implemented yet");};31 int MyRank(){_error 2_("Not implemented yet");};30 int Id(){_error_("Not implemented yet");}; 31 int MyRank(){_error_("Not implemented yet");}; 32 32 int ObjectEnum(){return OptionDoubleEnum;}; 33 Object* copy(){_error 2_("Not implemented yet");};33 Object* copy(){_error_("Not implemented yet");}; 34 34 /*}}}*/ 35 35 … … 41 41 void Get(int* pvalue); 42 42 void Get(IssmDouble* pvalue); 43 void Get(bool* pvalue){ _error 2_("An OptionDouble object cannot return a bool");};44 void Get(char** pvalue){ _error 2_("An OptionDouble object cannot return a string");};45 void Get(char*** ppvalue,int *pnumel){ _error 2_("An OptionDouble object cannot return a string vec");};43 void Get(bool* pvalue){ _error_("An OptionDouble object cannot return a bool");}; 44 void Get(char** pvalue){ _error_("An OptionDouble object cannot return a string");}; 45 void Get(char*** ppvalue,int *pnumel){ _error_("An OptionDouble object cannot return a string vec");}; 46 46 void Get(IssmDouble** pvalue,int* pnumel); 47 void Get(Options** pvalue){ _error 2_("An OptionDouble object cannot return an Options DataSet");};48 void Get(Options*** ppvalue,int *pnumel){ _error 2_("An OptionDouble object cannot return an Options DataSet vec");};47 void Get(Options** pvalue){ _error_("An OptionDouble object cannot return an Options DataSet");}; 48 void Get(Options*** ppvalue,int *pnumel){ _error_("An OptionDouble object cannot return an Options DataSet vec");}; 49 49 50 50 }; -
issm/trunk-jpl/src/c/classes/objects/Options/OptionLogical.cpp
r12832 r13036 125 125 /*We should first check that the size is one*/ 126 126 if(this->NumEl()!=1){ 127 _error 2_("option \"" << this->name << "\" has " << this->NumEl() << " elements and cannot return a single bool");127 _error_("option \"" << this->name << "\" has " << this->NumEl() << " elements and cannot return a single bool"); 128 128 } 129 129 -
issm/trunk-jpl/src/c/classes/objects/Options/OptionLogical.h
r12832 r13036 28 28 void DeepEcho(); 29 29 void DeepEcho(char* indent); 30 int Id(){_error 2_("Not implemented yet");};31 int MyRank(){_error 2_("Not implemented yet");};30 int Id(){_error_("Not implemented yet");}; 31 int MyRank(){_error_("Not implemented yet");}; 32 32 int ObjectEnum(){return OptionLogicalEnum;}; 33 Object* copy(){_error 2_("Not implemented yet");};33 Object* copy(){_error_("Not implemented yet");}; 34 34 /*}}}*/ 35 35 … … 39 39 int NDims(); 40 40 int* Size(); 41 void Get(int* pvalue){_error 2_("An OptionLogical object cannot return a int");};42 void Get(IssmDouble* pvalue){_error 2_("An OptionLogical object cannot return a IssmDouble");};41 void Get(int* pvalue){_error_("An OptionLogical object cannot return a int");}; 42 void Get(IssmDouble* pvalue){_error_("An OptionLogical object cannot return a IssmDouble");}; 43 43 void Get(bool* pvalue); 44 void Get(char** pvalue){ _error 2_("An OptionLogical object cannot return a string");};45 void Get(char*** ppvalue,int *pnumel){ _error 2_("An OptionLogical object cannot return a string vec");};46 void Get(IssmDouble** pvalue,int *pnumel){ _error 2_("An OptionLogical object cannot return a IssmDouble vec");};47 void Get(Options** pvalue){ _error 2_("An OptionLogical object cannot return an Options DataSet");};48 void Get(Options*** ppvalue,int *pnumel){ _error 2_("An OptionLogical object cannot return an Options DataSet vec");};44 void Get(char** pvalue){ _error_("An OptionLogical object cannot return a string");}; 45 void Get(char*** ppvalue,int *pnumel){ _error_("An OptionLogical object cannot return a string vec");}; 46 void Get(IssmDouble** pvalue,int *pnumel){ _error_("An OptionLogical object cannot return a IssmDouble vec");}; 47 void Get(Options** pvalue){ _error_("An OptionLogical object cannot return an Options DataSet");}; 48 void Get(Options*** ppvalue,int *pnumel){ _error_("An OptionLogical object cannot return an Options DataSet vec");}; 49 49 50 50 }; -
issm/trunk-jpl/src/c/classes/objects/Options/OptionStruct.cpp
r12832 r13036 132 132 /*We should first check that the size is one*/ 133 133 if(this->NumEl()!=1){ 134 _error 2_("option \"" << this->name << "\" has " << this->NumEl() << " elements and cannot return a single options dataset");134 _error_("option \"" << this->name << "\" has " << this->NumEl() << " elements and cannot return a single options dataset"); 135 135 } 136 136 … … 144 144 /*We should first check that the size is at least one*/ 145 145 if(this->NumEl()<=0){ 146 _error 2_("option \"" << this->name << "\" is empty and cannot return an options dataset vector");146 _error_("option \"" << this->name << "\" is empty and cannot return an options dataset vector"); 147 147 } 148 148 -
issm/trunk-jpl/src/c/classes/objects/Options/OptionStruct.h
r12832 r13036 28 28 void DeepEcho(); 29 29 void DeepEcho(char* indent); 30 int Id(){_error 2_("Not implemented yet");};31 int MyRank(){_error 2_("Not implemented yet");};30 int Id(){_error_("Not implemented yet");}; 31 int MyRank(){_error_("Not implemented yet");}; 32 32 int ObjectEnum(){return OptionStructEnum;}; 33 Object* copy(){_error 2_("Not implemented yet");};33 Object* copy(){_error_("Not implemented yet");}; 34 34 /*}}}*/ 35 35 … … 39 39 int NDims(); 40 40 int* Size(); 41 void Get(int* pvalue){_error 2_("An OptionStruct object cannot return a int");};42 void Get(IssmDouble* pvalue){_error 2_("An OptionStruct object cannot return a IssmDouble");};43 void Get(bool* pvalue){ _error 2_("An OptionStruct object cannot return a bool");};44 void Get(char** pvalue){ _error 2_("An OptionStruct object cannot return a string");};45 void Get(char*** ppvalue,int *pnumel){ _error 2_("An OptionStruct object cannot return a string vec");};46 void Get(IssmDouble** pvalue,int *pnumel){ _error 2_("An OptionStruct object cannot return a IssmDouble vec");};41 void Get(int* pvalue){_error_("An OptionStruct object cannot return a int");}; 42 void Get(IssmDouble* pvalue){_error_("An OptionStruct object cannot return a IssmDouble");}; 43 void Get(bool* pvalue){ _error_("An OptionStruct object cannot return a bool");}; 44 void Get(char** pvalue){ _error_("An OptionStruct object cannot return a string");}; 45 void Get(char*** ppvalue,int *pnumel){ _error_("An OptionStruct object cannot return a string vec");}; 46 void Get(IssmDouble** pvalue,int *pnumel){ _error_("An OptionStruct object cannot return a IssmDouble vec");}; 47 47 void Get(Options** pvalue); 48 48 void Get(Options*** ppvalue,int *pnumel); -
issm/trunk-jpl/src/c/classes/objects/Options/OptionUtilities.cpp
r12832 r13036 27 27 /*check for index too large */ 28 28 for (i=0;i<ndims;i++) aprod*=size[i]; 29 if (index >= aprod) _error 2_("Index " << index << " exceeds number of elements " << aprod << ".");29 if (index >= aprod) _error_("Index " << index << " exceeds number of elements " << aprod << "."); 30 30 31 31 /*calculate the dimensions (being careful of integer division) */ … … 46 46 /*check for any dimension too large */ 47 47 for (i=0;i<ndims;i++){ 48 if (dims[i] >= size[i]) _error 2_("Dimension " << i << " of " << dims[i] << " exceeds size of " << size[i] << ".");48 if (dims[i] >= size[i]) _error_("Dimension " << i << " of " << dims[i] << " exceeds size of " << size[i] << "."); 49 49 } 50 50 … … 65 65 /*check for index too large */ 66 66 for (i=0; i<ndims; i++) aprod*=size[i]; 67 if (index >= aprod) _error 2_("Index " << index << " exceeds number of elements " << aprod << ".");67 if (index >= aprod) _error_("Index " << index << " exceeds number of elements " << aprod << "."); 68 68 69 69 /*calculate the dimensions (being careful of integer division) */ … … 84 84 /*check for any dimension too large */ 85 85 for (i=0; i<ndims; i++){ 86 if (dims[i] >= size[i]) _error 2_("Dimension " << i << " of " << dims[i] << " exceeds size of " << size[i] << ".");86 if (dims[i] >= size[i]) _error_("Dimension " << i << " of " << dims[i] << " exceeds size of " << size[i] << "."); 87 87 } 88 88 -
issm/trunk-jpl/src/c/classes/objects/Params/BoolParam.h
r12832 r13036 43 43 int InstanceEnum(){return enum_type;} 44 44 void GetParameterValue(bool* pbool){*pbool=value;} 45 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return an integer");}46 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return an array of integers");}47 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return an array of integers");}48 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a IssmDouble");}49 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}50 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a string");}51 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a string array");}52 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a IssmDouble array");}53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a IssmDouble array");}54 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a matrix array");}55 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a Vec");}56 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a Mat");}57 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot return a FILE");}45 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return an integer");} 46 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return an array of integers");} 47 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return an array of integers");} 48 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a IssmDouble");} 49 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 50 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a string");} 51 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a string array");} 52 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a IssmDouble array");} 53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a IssmDouble array");} 54 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a matrix array");} 55 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a Vec");} 56 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a Mat");} 57 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << ") cannot return a FILE");} 58 58 59 59 void SetValue(bool boolean){this->value=boolean;} 60 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold an int");}61 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold an IssmPDouble");}62 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a string");}63 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a string array");}64 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a IssmDouble array");}65 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a IssmDouble array");}66 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a int array");}67 void SetValue(int* pintarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a int array");}68 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a Vec");}69 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a Mat");}70 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold a FILE");}71 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << ") cannot hold an array of matrices");}60 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold an int");} 61 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold an IssmPDouble");} 62 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a string");} 63 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a string array");} 64 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a IssmDouble array");} 65 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a IssmDouble array");} 66 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a int array");} 67 void SetValue(int* pintarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a int array");} 68 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a Vec");} 69 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a Mat");} 70 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold a FILE");} 71 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << ") cannot hold an array of matrices");} 72 72 void UnitConversion(int direction_enum); 73 73 -
issm/trunk-jpl/src/c/classes/objects/Params/DoubleMatArrayParam.h
r12832 r13036 45 45 /*Param vritual function definitions: {{{*/ 46 46 int InstanceEnum(){return enum_type;} 47 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a bool");}48 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return an integer");}49 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return an array of integers");}50 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return an array of integers");}51 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a IssmDouble");}52 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}53 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a string");}54 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a string array");}55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a IssmDouble array");}56 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a IssmDouble array");}47 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a bool");} 48 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << "cannot return an integer");} 49 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << "cannot return an array of integers");} 50 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << "cannot return an array of integers");} 51 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a IssmDouble");} 52 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 53 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a string");} 54 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a string array");} 55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a IssmDouble array");} 56 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a IssmDouble array");} 57 57 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims); 58 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a Vec");}59 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a Mat");}60 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot return a FILE");}58 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a Vec");} 59 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a Mat");} 60 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << "cannot return a FILE");} 61 61 62 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a boolean");}63 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold an integer");}64 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a scalar");}65 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a string");}66 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a string array");}67 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a IssmDouble vec array");}68 void SetValue(IssmDouble* IssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a IssmDouble mat array");}69 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a int vec array");}70 void SetValue(int* intarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a int mat array");}71 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a Vec");}72 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << "cannot hold a Mat");}73 void SetValue(FILE* fid){_error 2_("Bool param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a FILE");}62 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a boolean");} 63 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold an integer");} 64 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a scalar");} 65 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a string");} 66 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a string array");} 67 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a IssmDouble vec array");} 68 void SetValue(IssmDouble* IssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a IssmDouble mat array");} 69 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a int vec array");} 70 void SetValue(int* intarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a int mat array");} 71 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a Vec");} 72 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << "cannot hold a Mat");} 73 void SetValue(FILE* fid){_error_("Bool param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a FILE");} 74 74 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array); 75 75 void UnitConversion(int direction_enum); -
issm/trunk-jpl/src/c/classes/objects/Params/DoubleMatParam.cpp
r12832 r13036 109 109 /*FUNCTION DoubleMatParam::GetParameterValue(int** pintarray,int* pM,int* pN){{{*/ 110 110 void DoubleMatParam::GetParameterValue(int** pintarray,int* pM,int* pN){ 111 _error 2_("DoubleMat of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of int");111 _error_("DoubleMat of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of int"); 112 112 } 113 113 /*}}}*/ -
issm/trunk-jpl/src/c/classes/objects/Params/DoubleMatParam.h
r12832 r13036 44 44 /*Param vritual function definitions: {{{*/ 45 45 int InstanceEnum(){return enum_type;} 46 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}47 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");}48 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}46 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 47 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");} 48 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 49 49 void GetParameterValue(int** pintarray,int* pM,int* pN); 50 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}52 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}53 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}50 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 52 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 53 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 55 55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM,int* pN); 56 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}57 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}58 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}59 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");}56 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 57 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 58 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 59 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");} 60 60 61 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");}62 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");}63 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");}64 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}65 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}66 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble vec array");}61 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");} 62 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");} 63 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");} 64 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 65 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 66 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble vec array");} 67 67 void SetValue(IssmDouble* IssmDoublearray,int M,int N); 68 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int vec array");}69 void SetValue(int* intarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int mat array");};70 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}71 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}72 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}73 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}68 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int vec array");} 69 void SetValue(int* intarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int mat array");}; 70 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 71 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 72 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 73 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 74 74 void UnitConversion(int direction_enum); 75 75 -
issm/trunk-jpl/src/c/classes/objects/Params/DoubleParam.cpp
r12832 r13036 82 82 /*FUNCTION DoubleParam::GetParameterValue(int* pinteger){{{*/ 83 83 void DoubleParam::GetParameterValue(int* pinteger){ 84 _error 2_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an integer");84 _error_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an integer"); 85 85 } 86 86 /*}}}*/ 87 87 /*FUNCTION DoubleParam::GetParameterValue(bool* pbool){{{*/ 88 88 void DoubleParam::GetParameterValue(bool* pbool){ 89 _error 2_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an bool");89 _error_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an bool"); 90 90 } 91 91 /*}}}*/ 92 92 /*FUNCTION DoubleParam::GetParameterValue(int** pintarray,int* pM){{{*/ 93 93 void DoubleParam::GetParameterValue(int** pintarray,int* pM){ 94 _error 2_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of integers");94 _error_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of integers"); 95 95 } 96 96 /*}}}*/ 97 97 /*FUNCTION DoubleParam::GetParameterValue(int** pintarray,int* pM,int* pN){{{*/ 98 98 void DoubleParam::GetParameterValue(int** pintarray,int* pM,int* pN){ 99 _error 2_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of integers");99 _error_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of integers"); 100 100 } 101 101 /*}}}*/ 102 102 /*FUNCTION DoubleParam::GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){{{*/ 103 103 void DoubleParam::GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){ 104 _error 2_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of IssmDouble");104 _error_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of IssmDouble"); 105 105 } 106 106 /*}}}*/ 107 107 /*FUNCTION DoubleParam::GetParameterValue(IssmDouble** pIssmDoublearray,int* pM,int* pN){{{*/ 108 108 void DoubleParam::GetParameterValue(IssmDouble** pIssmDoublearray,int* pM,int* pN){ 109 _error 2_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of IssmDouble");109 _error_("Double param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of IssmDouble"); 110 110 } 111 111 /*}}}*/ -
issm/trunk-jpl/src/c/classes/objects/Params/DoubleParam.h
r12832 r13036 48 48 void GetParameterValue(int** pintarray,int* pM,int* pN); 49 49 void GetParameterValue(IssmDouble* pIssmDouble){*pIssmDouble=value;} 50 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}52 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}50 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 52 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 53 53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM); 54 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN); 55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}56 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}57 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}58 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");}55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 56 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 57 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 58 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");} 59 59 60 60 void SetValue(bool boolean){this->value=(IssmDouble)boolean;} 61 61 void SetValue(int integer){this->value=(IssmDouble)integer;} 62 62 void SetValue(IssmDouble scalar){this->value=(IssmDouble)scalar;} 63 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}64 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}65 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}67 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}68 void SetValue(int* pintarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}69 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}70 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}71 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}63 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 64 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 65 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 67 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 68 void SetValue(int* pintarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 69 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 70 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 71 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 73 73 void UnitConversion(int direction_enum); 74 74 -
issm/trunk-jpl/src/c/classes/objects/Params/DoubleVecParam.cpp
r12832 r13036 124 124 /*FUNCTION DoubleVecParam::GetParameterValue(int** pintarray,int* pM){{{*/ 125 125 void DoubleVecParam::GetParameterValue(int** pintarray,int* pM){ 126 _error 2_("DoubleVec param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of int");126 _error_("DoubleVec param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return an array of int"); 127 127 } 128 128 /*}}}*/ -
issm/trunk-jpl/src/c/classes/objects/Params/DoubleVecParam.h
r12832 r13036 43 43 /*Param virtual functions definitions: {{{*/ 44 44 int InstanceEnum(){return enum_type;} 45 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}46 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");}45 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 46 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");} 47 47 void GetParameterValue(int** pintarray,int* pM); 48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");};49 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}51 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}52 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}; 49 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 51 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 52 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 53 53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM); 54 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN); 55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}56 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}57 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}58 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");}55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 56 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 57 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 58 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");} 59 59 60 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");}61 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");}62 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");}63 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}64 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}60 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");} 61 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");} 62 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");} 63 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 64 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 65 65 void SetValue(IssmDouble* IssmDoublearray,int M); 66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble mat array");}67 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int mat array");};68 void SetValue(int* pintarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int mat array");}69 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}70 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}71 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble mat array");} 67 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int mat array");}; 68 void SetValue(int* pintarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int mat array");} 69 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 70 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 71 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 73 73 void UnitConversion(int direction_enum); 74 74 -
issm/trunk-jpl/src/c/classes/objects/Params/FileParam.h
r12832 r13036 42 42 /*Param vritual function definitions: {{{*/ 43 43 int InstanceEnum(){return enum_type;} 44 void GetParameterValue(bool* pbool){ _error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}45 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}46 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}47 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}48 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}49 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}50 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}51 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}52 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}54 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("File param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return a matrix array");}55 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}56 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}44 void GetParameterValue(bool* pbool){ _error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 45 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 46 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 47 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 48 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 49 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 50 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 51 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 52 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 54 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("File param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return a matrix array");} 55 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 56 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 57 57 void GetParameterValue(FILE** pfid){*pfid=value;}; 58 58 59 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}60 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}61 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}62 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}63 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}64 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}65 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}66 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}67 void SetValue(int* pintarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}68 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}69 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}70 void SetValue(FILE* fid){_error 2_("File param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a FILE");}71 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("File param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold an array of matrices");}59 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 60 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 61 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 62 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 63 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 64 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 65 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 66 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 67 void SetValue(int* pintarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 68 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 69 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 70 void SetValue(FILE* fid){_error_("File param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a FILE");} 71 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("File param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold an array of matrices");} 72 72 void UnitConversion(int direction_enum); 73 73 -
issm/trunk-jpl/src/c/classes/objects/Params/IntMatParam.h
r12832 r13036 44 44 /*Param vritual function definitions: {{{*/ 45 45 int InstanceEnum(){return enum_type;} 46 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}47 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");}48 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}46 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 47 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");} 48 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 49 49 void GetParameterValue(int** pintarray,int* pM,int* pN); 50 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}52 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}53 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");};56 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}57 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}58 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}59 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");}50 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 52 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 53 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}; 56 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 57 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 58 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 59 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");} 60 60 61 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");}62 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");}63 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");}64 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}65 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}66 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble vec array");}67 void SetValue(IssmDouble* IssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble vec array");};68 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int vec array");};61 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");} 62 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");} 63 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");} 64 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 65 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 66 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble vec array");} 67 void SetValue(IssmDouble* IssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble vec array");}; 68 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int vec array");}; 69 69 void SetValue(int* intarray,int M,int N); 70 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}71 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}72 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}73 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}70 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 71 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 72 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 73 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 74 74 void UnitConversion(int direction_enum); 75 75 -
issm/trunk-jpl/src/c/classes/objects/Params/IntParam.h
r12832 r13036 43 43 /*Param vritual function definitions: {{{*/ 44 44 int InstanceEnum(){return enum_type;} 45 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}45 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 46 46 void GetParameterValue(int* pinteger){*pinteger=value;} 47 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}49 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}51 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}52 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}56 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}57 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}58 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");}47 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 49 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 51 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 52 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 56 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 57 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 58 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");} 59 59 60 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a bool");}60 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a bool");} 61 61 void SetValue(int integer){this->value=integer;} 62 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an int array");}63 void SetValue(int* intarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an int array");}64 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an IssmDouble");}65 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}66 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}67 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}68 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}69 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}70 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}71 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}62 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an int array");} 63 void SetValue(int* intarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an int array");} 64 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an IssmDouble");} 65 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 66 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 67 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 68 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 69 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 70 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 71 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 73 73 void UnitConversion(int direction_enum); 74 74 -
issm/trunk-jpl/src/c/classes/objects/Params/IntVecParam.h
r12832 r13036 44 44 /*Param virtual functions definitions: {{{*/ 45 45 int InstanceEnum(){return enum_type;} 46 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}47 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");}46 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 47 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");} 48 48 void GetParameterValue(int** pintarray,int* pM); 49 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix");}50 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}52 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}53 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array (maybe in serial?)");}55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}56 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}57 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}58 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}59 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");}49 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix");} 50 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 52 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 53 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array (maybe in serial?)");} 55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 56 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 57 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 58 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 59 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");} 60 60 61 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");}62 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");}63 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");}64 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}65 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}66 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble mat array");}67 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble mat array");}61 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");} 62 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");} 63 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");} 64 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 65 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 66 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble mat array");} 67 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble mat array");} 68 68 void SetValue(int* intarray,int M); 69 void SetValue(int* pintarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int mat array");}70 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}71 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}72 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}73 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}69 void SetValue(int* pintarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int mat array");} 70 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 71 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 72 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 73 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 74 74 void UnitConversion(int direction_enum); 75 75 -
issm/trunk-jpl/src/c/classes/objects/Params/MatrixParam.h
r12832 r13036 43 43 /*Param vritual function definitions: {{{*/ 44 44 int InstanceEnum(){return enum_type;} 45 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}46 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");}47 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}49 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}51 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}52 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}56 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a vec");}45 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 46 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");} 47 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 49 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 51 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 52 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 56 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a vec");} 57 57 void GetParameterValue(Matrix** poutput); 58 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");}58 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");} 59 59 60 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");}61 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");}62 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");}63 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}64 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}65 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}67 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}68 void SetValue(int* pintarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}69 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}60 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");} 61 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");} 62 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");} 63 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 64 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 65 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 67 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 68 void SetValue(int* pintarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 69 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 70 70 void SetValue(Matrix* mat); 71 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}71 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 73 73 void UnitConversion(int direction_enum); 74 74 -
issm/trunk-jpl/src/c/classes/objects/Params/StringArrayParam.h
r12832 r13036 45 45 /*Param vritual function definitions: {{{*/ 46 46 int InstanceEnum(){return enum_type;} 47 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}48 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");}49 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}50 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}51 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}52 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}53 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}47 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 48 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");} 49 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 50 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 51 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 52 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 53 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 54 54 void GetParameterValue(char*** pstringarray,int* pM); 55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}56 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}57 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Vec param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return a matrix array");}58 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}59 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}60 void GetParameterValue(FILE** pfid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");}55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 56 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 57 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Vec param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return a matrix array");} 58 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 59 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 60 void GetParameterValue(FILE** pfid){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a FILE");} 61 61 62 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");}63 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");}64 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");}65 void SetValue(char* string){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");}62 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");} 63 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");} 64 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");} 65 void SetValue(char* string){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string");} 66 66 void SetValue(char** stringarray,int M); 67 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}68 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}69 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}70 void SetValue(int* pintarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}71 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}72 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}73 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}74 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}67 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 68 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 69 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 70 void SetValue(int* pintarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 71 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 72 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 73 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 74 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 75 75 void UnitConversion(int direction_enum); 76 76 -
issm/trunk-jpl/src/c/classes/objects/Params/StringParam.h
r12832 r13036 43 43 /*Param vritual function definitions: {{{*/ 44 44 int InstanceEnum(){return enum_type;} 45 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}46 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");}47 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}49 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}45 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 46 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");} 47 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 49 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 51 51 void GetParameterValue(char** pstring); 52 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}56 void GetParameterValue(Vector** pvec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");}57 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}58 void GetParameterValue(FILE** pfid){_error 2_("Bool param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return a FILE");}52 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 56 void GetParameterValue(Vector** pvec){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Vec");} 57 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 58 void GetParameterValue(FILE** pfid){_error_("Bool param of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return a FILE");} 59 59 60 void SetValue(bool boolean){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");}61 void SetValue(int integer){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");}62 void SetValue(IssmDouble scalar){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");}60 void SetValue(bool boolean){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a boolean");} 61 void SetValue(int integer){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an integer");} 62 void SetValue(IssmDouble scalar){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a scalar");} 63 63 void SetValue(char* string); 64 void SetValue(char** stringarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");}65 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}67 void SetValue(int* intarray,int M){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}68 void SetValue(int* pintarray,int M,int N){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");}69 void SetValue(Vector* vec){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");}70 void SetValue(Matrix* mat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");}71 void SetValue(FILE* fid){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");}72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}64 void SetValue(char** stringarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a string array");} 65 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 67 void SetValue(int* intarray,int M){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 68 void SetValue(int* pintarray,int M,int N){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a int array");} 69 void SetValue(Vector* vec){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Vec");} 70 void SetValue(Matrix* mat){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a Mat");} 71 void SetValue(FILE* fid){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold a FILE");} 72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 73 73 void UnitConversion(int direction_enum); 74 74 -
issm/trunk-jpl/src/c/classes/objects/Params/TransientParam.cpp
r12988 r13036 136 136 } 137 137 } 138 if(!found)_error 2_("did not find time interval on which to interpolate values");138 if(!found)_error_("did not find time interval on which to interpolate values"); 139 139 *pdouble=output; 140 140 } -
issm/trunk-jpl/src/c/classes/objects/Params/TransientParam.h
r12832 r13036 44 44 /*Param vritual function definitions: {{{*/ 45 45 int InstanceEnum(){return enum_type;} 46 void GetParameterValue(bool* pbool){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a bool");}47 void GetParameterValue(int* pinteger){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return an integer");}48 void GetParameterValue(int** pintarray,int* pM){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return an array of integers");}49 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a array of integers");}50 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a IssmDouble");}46 void GetParameterValue(bool* pbool){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a bool");} 47 void GetParameterValue(int* pinteger){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return an integer");} 48 void GetParameterValue(int** pintarray,int* pM){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return an array of integers");} 49 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a array of integers");} 50 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a IssmDouble");} 51 51 void GetParameterValue(IssmDouble* pdouble,IssmDouble time); 52 void GetParameterValue(char** pstring){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a string");}53 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a string array");}54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a IssmDouble array");}55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM,int* pN){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a IssmDouble array");}56 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a matrix array");}57 void GetParameterValue(Vector** pvec){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a Vec");}58 void GetParameterValue(Matrix** pmat){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a Mat");}59 void GetParameterValue(FILE** pfid){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot return a FILE");}52 void GetParameterValue(char** pstring){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a string");} 53 void GetParameterValue(char*** pstringarray,int* pM){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a string array");} 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 55 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM,int* pN){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 56 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a matrix array");} 57 void GetParameterValue(Vector** pvec){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a Vec");} 58 void GetParameterValue(Matrix** pmat){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a Mat");} 59 void GetParameterValue(FILE** pfid){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot return a FILE");} 60 60 61 void SetValue(bool boolean){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a boolean");}62 void SetValue(int integer){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold an integer");}63 void SetValue(IssmDouble scalar){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a scalar");}64 void SetValue(char* string){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a string");}65 void SetValue(char** stringarray,int M){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a string array");}66 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a IssmDouble vec array");}67 void SetValue(IssmDouble* IssmDoublearray,int M,int N){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a IssmDouble array");}68 void SetValue(int* intarray,int M){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a int vec array");}69 void SetValue(int* intarray,int M,int N){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a int mat array");};70 void SetValue(Vector* vec){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a Vec");}71 void SetValue(Matrix* mat){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a Mat");}72 void SetValue(FILE* fid){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a FILE");}73 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Parameter " <<EnumToStringx(enum_type) << " cannot hold an array of matrices");}61 void SetValue(bool boolean){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a boolean");} 62 void SetValue(int integer){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold an integer");} 63 void SetValue(IssmDouble scalar){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a scalar");} 64 void SetValue(char* string){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a string");} 65 void SetValue(char** stringarray,int M){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a string array");} 66 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a IssmDouble vec array");} 67 void SetValue(IssmDouble* IssmDoublearray,int M,int N){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a IssmDouble array");} 68 void SetValue(int* intarray,int M){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a int vec array");} 69 void SetValue(int* intarray,int M,int N){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a int mat array");}; 70 void SetValue(Vector* vec){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a Vec");} 71 void SetValue(Matrix* mat){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a Mat");} 72 void SetValue(FILE* fid){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold a FILE");} 73 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Parameter " <<EnumToStringx(enum_type) << " cannot hold an array of matrices");} 74 74 void UnitConversion(int direction_enum); 75 75 -
issm/trunk-jpl/src/c/classes/objects/Params/VectorParam.h
r12832 r13036 43 43 /*Param vritual function definitions: {{{*/ 44 44 int InstanceEnum(){return enum_type;} 45 void GetParameterValue(bool* pbool){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");}46 void GetParameterValue(int* pinteger){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");}47 void GetParameterValue(int** pintarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");}49 void GetParameterValue(IssmDouble* pIssmDouble){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");}50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");}51 void GetParameterValue(char** pstring){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string");}52 void GetParameterValue(char*** pstringarray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");}53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");}55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");}56 void GetParameterValue(Matrix** pmat){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");}45 void GetParameterValue(bool* pbool){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a bool");} 46 void GetParameterValue(int* pinteger){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an integer");} 47 void GetParameterValue(int** pintarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 48 void GetParameterValue(int** pintarray,int* pM,int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return an array of integers");} 49 void GetParameterValue(IssmDouble* pIssmDouble){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble");} 50 void GetParameterValue(IssmDouble* pdouble,IssmDouble time){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble for a given time");} 51 void GetParameterValue(char** pstring){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string");} 52 void GetParameterValue(char*** pstringarray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a string array");} 53 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 54 void GetParameterValue(IssmDouble** pIssmDoublearray,int* pM, int* pN){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a IssmDouble array");} 55 void GetParameterValue(IssmDouble*** parray, int* pM,int** pmdims, int** pndims){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a matrix array");} 56 void GetParameterValue(Matrix** pmat){_error_("Param "<< EnumToStringx(enum_type) << " cannot return a Mat");} 57 57 void GetParameterValue(Vector** poutput); 58 void GetParameterValue(FILE** pfid){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return a FILE");}58 void GetParameterValue(FILE** pfid){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot return a FILE");} 59 59 60 void SetValue(bool boolean){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a boolean");}61 void SetValue(int integer){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold an integer");}62 void SetValue(IssmDouble scalar){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a scalar");}63 void SetValue(char* string){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a string");}64 void SetValue(char** stringarray,int M){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a string array");}65 void SetValue(IssmDouble* IssmDoublearray,int M){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a IssmDouble array");}66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a IssmDouble array");}67 void SetValue(int* intarray,int M){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a int array");}68 void SetValue(int* pintarray,int M,int N){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a int array");}60 void SetValue(bool boolean){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a boolean");} 61 void SetValue(int integer){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold an integer");} 62 void SetValue(IssmDouble scalar){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a scalar");} 63 void SetValue(char* string){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a string");} 64 void SetValue(char** stringarray,int M){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a string array");} 65 void SetValue(IssmDouble* IssmDoublearray,int M){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a IssmDouble array");} 66 void SetValue(IssmDouble* pIssmDoublearray,int M,int N){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a IssmDouble array");} 67 void SetValue(int* intarray,int M){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a int array");} 68 void SetValue(int* pintarray,int M,int N){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a int array");} 69 69 void SetValue(Vector* vec); 70 void SetValue(Matrix* mat){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a Mat");}71 void SetValue(FILE* fid){_error 2_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a FILE");}72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error 2_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");}70 void SetValue(Matrix* mat){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a Mat");} 71 void SetValue(FILE* fid){_error_("Vector of enum " << enum_type << " (" << EnumToStringx(enum_type) << ") cannot hold a FILE");} 72 void SetValue(IssmDouble** array, int M, int* mdim_array, int* ndim_array){_error_("Param "<< EnumToStringx(enum_type) << " cannot hold an array of matrices");} 73 73 void UnitConversion(int direction_enum); 74 74 -
issm/trunk-jpl/src/c/include/macros.h
r13035 r13036 26 26 /*new Error exception macro*/ 27 27 #ifdef _INTEL_WIN_ 28 #define _error 2_(StreamArgs)\28 #define _error_(StreamArgs)\ 29 29 do{std::ostringstream aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy; \ 30 30 aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy << StreamArgs << std::ends; \ 31 31 throw ErrorException(aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy.str());}while(0) 32 32 #else 33 #define _error 2_(StreamArgs)\33 #define _error_(StreamArgs)\ 34 34 do{std::ostringstream aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy; \ 35 35 aLoNgAnDwEiRdLoCaLnAmeFoRtHiSmAcRoOnLy << StreamArgs << std::ends; \ … … 65 65 #ifdef _ISSM_DEBUG_ 66 66 #define _assert_(statement)\ 67 if (!(statement)) _error 2_("Assertion \""<<#statement<<"\" failed, please report bug to "<<PACKAGE_BUGREPORT)67 if (!(statement)) _error_("Assertion \""<<#statement<<"\" failed, please report bug to "<<PACKAGE_BUGREPORT) 68 68 #else 69 69 #define _assert_(ignore)\ -
issm/trunk-jpl/src/c/io/Disk/pfclose.cpp
r12494 r13036 18 18 extern int my_rank; 19 19 _assert_(fid); 20 if(fclose(fid)!=0)_error 2_("could not close file " << filename);20 if(fclose(fid)!=0)_error_("could not close file " << filename); 21 21 } -
issm/trunk-jpl/src/c/io/Disk/pfopen.cpp
r12494 r13036 20 20 /*Open handle to data on disk: */ 21 21 fid=fopen(filename,format); 22 if(fid==NULL) _error 2_("could not open file " << filename << " for binary reading or writing");22 if(fid==NULL) _error_("could not open file " << filename << " for binary reading or writing"); 23 23 24 24 return fid; -
issm/trunk-jpl/src/c/matlab/io/CheckNumMatlabArguments.cpp
r12493 r13036 22 22 /* special case: */ 23 23 function(); 24 _error 2_("usage: see above");24 _error_("usage: see above"); 25 25 } 26 26 else if (nlhs!=NLHS || nrhs!=NRHS ) { 27 27 function(); 28 _error 2_("usage error.");28 _error_("usage error."); 29 29 } 30 30 return 1; -
issm/trunk-jpl/src/c/matlab/io/FetchMatlabData.cpp
r12594 r13036 48 48 else{ 49 49 /*This is an error: we don't have the correct input!: */ 50 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");50 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 51 51 } 52 52 … … 89 89 else{ 90 90 /*This is an error: we don't have the correct input!: */ 91 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");91 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 92 92 } 93 93 … … 134 134 else{ 135 135 /*This is an error: we don't have the correct input!: */ 136 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");136 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 137 137 } 138 138 … … 176 176 else{ 177 177 /*This is an error: we don't have the correct input!: */ 178 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");178 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 179 179 } 180 180 … … 238 238 else{ 239 239 /*This is an error: we don't have the correct input!: */ 240 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");240 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 241 241 } 242 242 … … 269 269 else{ 270 270 /*This is an error: we don't have the correct input!: */ 271 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");271 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 272 272 } 273 273 … … 301 301 else{ 302 302 /*This is an error: we don't have the correct input!: */ 303 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");303 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 304 304 } 305 305 … … 333 333 else{ 334 334 /*This is an error: we don't have the correct input!: */ 335 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");335 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 336 336 } 337 337 … … 365 365 else{ 366 366 /*This is an error: we don't have the correct input!: */ 367 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");367 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 368 368 } 369 369 … … 381 381 /*Ok, the string should be coming directly from the matlab workspace: */ 382 382 if (!mxIsClass(dataref,"char")){ 383 _error 2_("input data_type is not a string!");383 _error_("input data_type is not a string!"); 384 384 } 385 385 else{ … … 416 416 else{ 417 417 /*This is an error: we don't have the correct input!: */ 418 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");418 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 419 419 } 420 420 … … 434 434 435 435 if (!mxIsClass(dataref,"double")){ 436 _error 2_("input data_type is not a double!");436 _error_("input data_type is not a double!"); 437 437 } 438 438 else{ … … 451 451 452 452 if (!mxIsClass(dataref,"double")){ 453 _error 2_("input data_type is not a scalar!");453 _error_("input data_type is not a scalar!"); 454 454 } 455 455 else{ … … 468 468 469 469 if (mxIsClass(dataref,"logical")){ 470 if(mxGetM(dataref)!=1) _error 2_("input data is not of size 1x1");471 if(mxGetN(dataref)!=1) _error 2_("input data is not of size 1x1");470 if(mxGetM(dataref)!=1) _error_("input data is not of size 1x1"); 471 if(mxGetN(dataref)!=1) _error_("input data is not of size 1x1"); 472 472 mxbool_ptr=mxGetLogicals(dataref); 473 473 } 474 474 else{ 475 _error 2_("input data_type is not a bool!");475 _error_("input data_type is not a bool!"); 476 476 } 477 477 … … 495 495 else{ 496 496 /*This is an error: we don't have the correct input!: */ 497 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");497 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 498 498 } 499 499 … … 519 519 else{ 520 520 /*This is an error: we don't have the correct input!: */ 521 _error 2_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet");521 _error_("Input parameter of class " << mxGetClassName(dataref) << " not supported yet"); 522 522 } 523 523 … … 620 620 /*Fetch all options*/ 621 621 for (int i=istart; i<nrhs; i=i+2){ 622 if (!mxIsClass(pdataref[i],"char")) _error 2_("Argument " << i+1 << " must be name of option");622 if (!mxIsClass(pdataref[i],"char")) _error_("Argument " << i+1 << " must be name of option"); 623 623 624 624 FetchData(&name,pdataref[i]); 625 if(i+1 == nrhs) _error 2_("Argument " << i+2 << " must exist and be value of option \"" << name << "\".");625 if(i+1 == nrhs) _error_("Argument " << i+2 << " must exist and be value of option \"" << name << "\"."); 626 626 627 627 option=(Option*)OptionParse(name,&pdataref[i+1]); -
issm/trunk-jpl/src/c/matlab/io/MatlabMatrixToDoubleMatrix.cpp
r12594 r13036 119 119 } 120 120 else{ 121 _error 2_("Matlab matrix type Not implemented yet");121 _error_("Matlab matrix type Not implemented yet"); 122 122 } 123 123 -
issm/trunk-jpl/src/c/matlab/io/MatlabVectorToDoubleVector.cpp
r12493 r13036 46 46 47 47 /*Check that input is actualy a vector*/ 48 if (cols!=1) _error 2_("input vector of size " << rows << "x" << cols << " should have only one column");48 if (cols!=1) _error_("input vector of size " << rows << "x" << cols << " should have only one column"); 49 49 50 50 nz=(int)((double)nnz/(double)rows); … … 77 77 78 78 /*Check that input is actualy a vector*/ 79 if (cols!=1) _error 2_("input vector of size " << rows << "x" << cols << " should have only one column");79 if (cols!=1) _error_("input vector of size " << rows << "x" << cols << " should have only one column"); 80 80 81 81 /*allocate and memcpy*/ -
issm/trunk-jpl/src/c/matlab/io/OptionParse.cpp
r12704 r13036 27 27 /*check and parse the value */ 28 28 if (!mxIsClass(prhs[0],"double")){ 29 _error 2_("Value of option \"" << odouble->name << "\" must be class \"double\", not class \"" << mxGetClassName(prhs[0]) <<"\".");29 _error_("Value of option \"" << odouble->name << "\" must be class \"double\", not class \"" << mxGetClassName(prhs[0]) <<"\"."); 30 30 } 31 31 FetchData(&odouble->values,&odouble->numel,&odouble->ndims,&odouble->size,prhs[0]); … … 45 45 /*check and parse the value */ 46 46 if (!mxIsClass(prhs[0],"logical")){ 47 _error 2_("Value of option \"" << ological->name << "\" must be class \"logical\", not class \"" << mxGetClassName(prhs[0]) <<"\".");47 _error_("Value of option \"" << ological->name << "\" must be class \"logical\", not class \"" << mxGetClassName(prhs[0]) <<"\"."); 48 48 } 49 49 FetchData(&ological->values,&ological->numel,&ological->ndims,&ological->size,prhs[0]); … … 63 63 /*check and parse the value */ 64 64 if (!mxIsClass(prhs[0],"char")){ 65 _error 2_("Value of option \"" << ochar->name << "\" must be class \"char\", not class \"" << mxGetClassName(prhs[0]) <<"\".");65 _error_("Value of option \"" << ochar->name << "\" must be class \"char\", not class \"" << mxGetClassName(prhs[0]) <<"\"."); 66 66 } 67 67 FetchData(&ochar->values,&ochar->numel,&ochar->ndims,&ochar->size,prhs[0]); … … 87 87 /*check and parse the value */ 88 88 if (!mxIsClass(prhs[0],"struct")){ 89 _error 2_("Value of option \"" << ostruct->name << "\" must be class \"struct\", not class \"" << mxGetClassName(prhs[0]) <<"\".");89 _error_("Value of option \"" << ostruct->name << "\" must be class \"struct\", not class \"" << mxGetClassName(prhs[0]) <<"\"."); 90 90 } 91 91 ostruct->numel=mxGetNumberOfElements(prhs[0]); … … 133 133 /*check and parse the value */ 134 134 if (!mxIsClass(prhs[0],"cell")){ 135 _error 2_("Value of option \"" << ocell->name << "\" must be class \"cell\", not class \"" << mxGetClassName(prhs[0]) <<"\".");135 _error_("Value of option \"" << ocell->name << "\" must be class \"cell\", not class \"" << mxGetClassName(prhs[0]) <<"\"."); 136 136 } 137 137 … … 181 181 mxDestroyArray(lhs[0]); 182 182 } 183 else _error 2_("Second argument value of option \""<< name <<"\" is of unrecognized class \""<< mxGetClassName(prhs[0]) <<"\".");183 else _error_("Second argument value of option \""<< name <<"\" is of unrecognized class \""<< mxGetClassName(prhs[0]) <<"\"."); 184 184 } 185 185 -
issm/trunk-jpl/src/c/modules/DakotaResponsesx/DakotaResponsesx.cpp
r12520 r13036 86 86 } 87 87 else if (flag==NodalEnum){ 88 _error 2_("nodal response functions not supported yet!");88 _error_("nodal response functions not supported yet!"); 89 89 90 90 /*increment response_pointer :*/ … … 104 104 } 105 105 } 106 else _error 2_("flag type " << flag << " not supported yet for response analysis");106 else _error_("flag type " << flag << " not supported yet for response analysis"); 107 107 } 108 108 -
issm/trunk-jpl/src/c/modules/Dakotax/DescriptorIndex.cpp
r12495 r13036 23 23 /*retrieve first token, separated by underscore: */ 24 24 pch = strtok (descriptor,"_"); 25 if(!pch)_error 2_("descriptor " << descriptor << " is not correctly formatted!");25 if(!pch)_error_("descriptor " << descriptor << " is not correctly formatted!"); 26 26 27 27 if (strncmp(pch,"scaled",6)==0){ 28 28 /*we have a scaled variable. recover the root: */ 29 29 pch = strtok (NULL, "_"); 30 if(!pch)_error 2_("scaled descriptor " << descriptor << " is not correctly formatted!");30 if(!pch)_error_("scaled descriptor " << descriptor << " is not correctly formatted!"); 31 31 memcpy(root,pch,(strlen(pch)+1)*sizeof(char)); 32 32 … … 44 44 /*we have an indexed variable. recover the root: */ 45 45 pch = strtok (NULL, "_"); 46 if(!pch)_error 2_("indexed descriptor " << descriptor << " is not correctly formatted!");46 if(!pch)_error_("indexed descriptor " << descriptor << " is not correctly formatted!"); 47 47 memcpy(root,pch,(strlen(pch)+1)*sizeof(char)); 48 48 /*now recover the index: */ 49 49 pch = strtok (NULL, "_"); 50 if(!pch)_error 2_("indexed descriptor " << descriptor << " is not correctly formatted!");50 if(!pch)_error_("indexed descriptor " << descriptor << " is not correctly formatted!"); 51 51 sscanf(pch,"%i",pindex); 52 52 return IndexedEnum; … … 55 55 /*we have an indexed variable. recover the root: */ 56 56 pch = strtok (NULL, "_"); 57 if(!pch)_error 2_("nodal descriptor " << descriptor << " is not correctly formatted!");57 if(!pch)_error_("nodal descriptor " << descriptor << " is not correctly formatted!"); 58 58 memcpy(root,pch,(strlen(pch)+1)*sizeof(char)); 59 59 /*now recover the index: */ 60 60 pch = strtok (NULL, "_"); 61 if(!pch)_error 2_("nodal descriptor " << descriptor << " is not correctly formatted!");61 if(!pch)_error_("nodal descriptor " << descriptor << " is not correctly formatted!"); 62 62 sscanf(pch,"%i",pindex); 63 63 return NodalEnum; -
issm/trunk-jpl/src/c/modules/Dakotax/SpawnCoreParallel.cpp
r12832 r13036 72 72 if(control_analysis)solutioncore=&control_core; 73 73 #else 74 _error 2_("ISSM was not compiled with control capabilities, exiting!");74 _error_("ISSM was not compiled with control capabilities, exiting!"); 75 75 #endif 76 76 -
issm/trunk-jpl/src/c/modules/ElementResponsex/ElementResponsex.cpp
r12494 r13036 39 39 #ifdef _HAVE_MPI_ 40 40 MPI_Allreduce ( &found,&sumfound,1,MPI_INT,MPI_SUM,MPI_COMM_WORLD); 41 if(!sumfound)_error 2_("could not find material with id" << index << " to compute ElementResponse");41 if(!sumfound)_error_("could not find material with id" << index << " to compute ElementResponse"); 42 42 #endif 43 43 -
issm/trunk-jpl/src/c/modules/Exp2Kmlx/Exp2Kmlx.cpp
r12519 r13036 55 55 56 56 if (!DomainOutlineRead(&nprof,&pnvert,&pprofx,&pprofy,&closed,filexp)) 57 _error 2_("Error reading exp file.");57 _error_("Error reading exp file."); 58 58 _pprintLine_("Exp2Kmlx -- Reading " << nprof << " exp profiles from file \"" << filexp << "\"."); 59 59 // for (i=0; i<nprof; i++) -
issm/trunk-jpl/src/c/modules/GetSolutionFromInputsx/GetSolutionFromInputsx.cpp
r12493 r13036 26 26 /*Get size of vector: */ 27 27 gsize=nodes->NumberOfDofs(configuration_type,GsetEnum); 28 if (gsize==0) _error 2_("Allocating a Vec of size 0 as gsize=0 for configuration: " << EnumToStringx(configuration_type));28 if (gsize==0) _error_("Allocating a Vec of size 0 as gsize=0 for configuration: " << EnumToStringx(configuration_type)); 29 29 30 30 /*Initialize solution: */ -
issm/trunk-jpl/src/c/modules/GetVectorFromInputsx/GetVectorFromInputsx.cpp
r12495 r13036 32 32 } 33 33 else{ 34 _error 2_("vector type: " << EnumToStringx(type) << " not supported yet!");34 _error_("vector type: " << EnumToStringx(type) << " not supported yet!"); 35 35 } 36 36 -
issm/trunk-jpl/src/c/modules/Gradjx/Gradjx.cpp
r12529 r13036 54 54 /*Check that gradient is clean*/ 55 55 norm_inf=gradient->Norm(NORM_INF); 56 if(norm_inf<=0) _error 2_("||∂J/∂α||∞ = 0 gradient norm is zero");57 if(xIsNan<IssmDouble>(norm_inf))_error 2_("||∂J/∂α||∞ = NaN gradient norm is NaN");56 if(norm_inf<=0) _error_("||∂J/∂α||∞ = 0 gradient norm is zero"); 57 if(xIsNan<IssmDouble>(norm_inf))_error_("||∂J/∂α||∞ = NaN gradient norm is NaN"); 58 58 59 59 /*Clean-up and assign output pointer*/ -
issm/trunk-jpl/src/c/modules/GroundinglineMigrationx/GroundinglineMigrationx.cpp
r12515 r13036 27 27 28 28 if(migration_style==NoneEnum) return; 29 if(migration_style!=AgressiveMigrationEnum && migration_style!=SoftMigrationEnum) _error 2_(EnumToStringx(migration_style) << " not supported yet!");29 if(migration_style!=AgressiveMigrationEnum && migration_style!=SoftMigrationEnum) _error_(EnumToStringx(migration_style) << " not supported yet!"); 30 30 31 31 if(migration_style==SoftMigrationEnum){ -
issm/trunk-jpl/src/c/modules/InputUpdateFromDakotax/InputUpdateFromDakotax.cpp
r12495 r13036 95 95 } 96 96 else if (strncmp(descriptor,"indexed_",8)==0){ 97 _error 2_("indexed variables not supported yet!");97 _error_("indexed variables not supported yet!"); 98 98 } 99 99 else if (strncmp(descriptor,"nodal_",8)==0){ 100 _error 2_("nodal variables not supported yet!");100 _error_("nodal variables not supported yet!"); 101 101 } 102 102 else{ -
issm/trunk-jpl/src/c/modules/InterpFromGridToMeshx/InterpFromGridToMeshx.cpp
r12636 r13036 37 37 /*Some checks on arguments: */ 38 38 if ((M<2) || (N<2) || (nods<=0)){ 39 _error 2_("nothing to be done according to the dimensions of input matrices and vectors.");39 _error_("nothing to be done according to the dimensions of input matrices and vectors."); 40 40 } 41 41 if (x_in[1]-x_in[0]<0){ 42 _error 2_("x coordinate vector should be increasing.\n use Matlab's command x=flipud(x), also flip the data matrix data=fliplr(data)");42 _error_("x coordinate vector should be increasing.\n use Matlab's command x=flipud(x), also flip the data matrix data=fliplr(data)"); 43 43 } 44 44 if (y_in[1]-y_in[0]<0){ 45 _error 2_("y coordinate vector should be increasing.\n use Matlab's command y=flipud(y), also flip the data matrix data=flipud(data)");45 _error_("y coordinate vector should be increasing.\n use Matlab's command y=flipud(y), also flip the data matrix data=flipud(data)"); 46 46 } 47 47 … … 69 69 } 70 70 else{ 71 _error 2_("x and y vectors length should be 1 or 0 more than data number of rows.");71 _error_("x and y vectors length should be 1 or 0 more than data number of rows."); 72 72 } 73 73 -
issm/trunk-jpl/src/c/modules/InterpFromMesh2dx/InterpFromMesh2dx.cpp
r12864 r13036 40 40 /*some checks*/ 41 41 if (nels_data<1 || nods_data<3 || nods_prime==0){ 42 _error 2_("nothing to be done according to the mesh given in input");42 _error_("nothing to be done according to the mesh given in input"); 43 43 } 44 44 … … 54 54 } 55 55 else{ 56 _error 2_("length of vector data not supported yet. It should be of length (number of nodes) or (number of elements)!");56 _error_("length of vector data not supported yet. It should be of length (number of nodes) or (number of elements)!"); 57 57 } 58 58 59 59 if((numcontours) && (interpolation_type==2)){ 60 _error 2_("element interpolation_type with contours not supported yet!");60 _error_("element interpolation_type with contours not supported yet!"); 61 61 } 62 62 -
issm/trunk-jpl/src/c/modules/InterpFromMeshToGridx/InterpFromMeshToGridx.cpp
r12529 r13036 30 30 /*some checks*/ 31 31 if (nels<1 || nods<3 || nlines<1 || ncols<1 || xposting==0 || yposting==0){ 32 _error 2_("nothing to be done according to the mesh given in input");32 _error_("nothing to be done according to the mesh given in input"); 33 33 } 34 34 … … 41 41 } 42 42 else{ 43 _error 2_("length of vector data not supported yet. It should be of length (number of nodes) or (number of elements)!");43 _error_("length of vector data not supported yet. It should be of length (number of nodes) or (number of elements)!"); 44 44 } 45 45 -
issm/trunk-jpl/src/c/modules/InterpFromMeshToMesh2dx/InterpFromMeshToMesh2dx.cpp
r12832 r13036 35 35 /*Checks*/ 36 36 if (M_data!=nods_data && M_data!=nels_data){ 37 _error 2_("data provided should have either " << nods_data << " or " << nels_data << " lines (not " << M_data << ")");37 _error_("data provided should have either " << nods_data << " or " << nels_data << " lines (not " << M_data << ")"); 38 38 } 39 39 … … 138 138 for (j=0;j<N_data;j++){ 139 139 if (it<0 || it>=nels_data){ 140 _error 2_("Triangle number " << it << " not in [0 " << nels_data << "], report bug to developers");140 _error_("Triangle number " << it << " not in [0 " << nels_data << "], report bug to developers"); 141 141 } 142 142 data_interp[i*N_data+j]=data[N_data*it+j]; -
issm/trunk-jpl/src/c/modules/InterpFromMeshToMesh3dx/InterpFromMeshToMesh3dx.cpp
r12529 r13036 27 27 /*some checks*/ 28 28 if (nels_data<1 || nods_data<6 || nods_prime==0){ 29 _error 2_("nothing to be done according to the mesh given in input");29 _error_("nothing to be done according to the mesh given in input"); 30 30 } 31 31 … … 41 41 } 42 42 else{ 43 _error 2_("length of vector data not supported yet. It should be of length (number of nodes) or (number of elements)!");43 _error_("length of vector data not supported yet. It should be of length (number of nodes) or (number of elements)!"); 44 44 } 45 45 -
issm/trunk-jpl/src/c/modules/IoModelToConstraintsx/IoModelToConstraintsx.cpp
r12529 r13036 38 38 fid=iomodel->SetFilePointerToData(&code, &vector_layout,vector_enum); 39 39 40 if(code!=7)_error 2_("expecting a IssmDouble vector for constraints with enum " << EnumToStringx(vector_enum));41 if(vector_layout!=1)_error 2_("expecting a nodal vector for constraints with enum " << EnumToStringx(vector_enum));40 if(code!=7)_error_("expecting a IssmDouble vector for constraints with enum " << EnumToStringx(vector_enum)); 41 if(vector_layout!=1)_error_("expecting a nodal vector for constraints with enum " << EnumToStringx(vector_enum)); 42 42 43 43 /*Fetch vector:*/ … … 99 99 } 100 100 else{ 101 _error 2_("Size of field " << EnumToStringx(vector_enum) << " not supported");101 _error_("Size of field " << EnumToStringx(vector_enum) << " not supported"); 102 102 } 103 103 -
issm/trunk-jpl/src/c/modules/KMLMeshWritex/KMLMeshWritex.cpp
r12519 r13036 133 133 } 134 134 else 135 _error 2_("Nodal connectivity table needs more than specified " << mxepg << " columns.\n");135 _error_("Nodal connectivity table needs more than specified " << mxepg << " columns.\n"); 136 136 } 137 137 jpt++; … … 173 173 174 174 else 175 _error 2_("Data matrix has incorrect number of " << mdata << " rows.\n");175 _error_("Data matrix has incorrect number of " << mdata << " rows.\n"); 176 176 } 177 177 -
issm/trunk-jpl/src/c/modules/Kml2Expx/Kml2Expx.cpp
r12519 r13036 44 44 fidi=fopen(filkml,"r"); 45 45 if (!(kobj=KMLFileReadx(fidi))) 46 _error 2_("Error reading kml file.");46 _error_("Error reading kml file."); 47 47 fclose(fidi); 48 48 -
issm/trunk-jpl/src/c/modules/Krigingx/Krigingx.cpp
r12832 r13036 138 138 } 139 139 else{ 140 _error 2_("output '" << output << "' not supported yet");140 _error_("output '" << output << "' not supported yet"); 141 141 } 142 142 … … 305 305 else if(strcmp(model,"spherical")==0) variogram = new SphericalVariogram(options); 306 306 else if(strcmp(model,"power")==0) variogram = new PowerVariogram(options); 307 else _error 2_("variogram " << model << " not supported yet (list of supported variogram: gaussian, exponential, spherical and power)");307 else _error_("variogram " << model << " not supported yet (list of supported variogram: gaussian, exponential, spherical and power)"); 308 308 } 309 309 else variogram = new GaussianVariogram(options); -
issm/trunk-jpl/src/c/modules/Krigingx/pKrigingx.cpp
r12832 r13036 103 103 } 104 104 else{ 105 _error 2_("output '" << output << "' not supported yet");105 _error_("output '" << output << "' not supported yet"); 106 106 } 107 107 … … 126 126 else if(strcmp(model,"spherical")==0) variogram = new SphericalVariogram(options); 127 127 else if(strcmp(model,"power")==0) variogram = new PowerVariogram(options); 128 else _error 2_("variogram " << model << " not supported yet (list of supported variogram: gaussian, exponential, spherical and power)");128 else _error_("variogram " << model << " not supported yet (list of supported variogram: gaussian, exponential, spherical and power)"); 129 129 } 130 130 else variogram = new GaussianVariogram(options); -
issm/trunk-jpl/src/c/modules/Ll2xyx/Ll2xyx.cpp
r12515 r13036 52 52 double T,rho,sl,tc,mc; 53 53 54 if((sgn!=1) && (sgn!=-1)) _error 2_("Sign should be either +1 or -1.\n");54 if((sgn!=1) && (sgn!=-1)) _error_("Sign should be either +1 or -1.\n"); 55 55 56 56 delta = central_meridian; … … 123 123 if(flag) _pprintLine_("Info: creating coordinates in polar stereographic (Std Latitude: 71S Meridian: 0)."); 124 124 } 125 else _error 2_("Sign should be either +1 or -1.\n");125 else _error_("Sign should be either +1 or -1.\n"); 126 126 127 127 return; -
issm/trunk-jpl/src/c/modules/MeshPartitionx/MeshPartitionx.cpp
r12572 r13036 51 51 for (i=0;i<numberofnodes;i++) npart[i]=0; 52 52 } 53 else _error 2_("At least one processor is required");53 else _error_("At least one processor is required"); 54 54 } 55 55 else{ … … 78 78 for (i=0;i<numberofnodes2d;i++) npart2d[i]=0; 79 79 } 80 else _error 2_("At least one processor is required");80 else _error_("At least one processor is required"); 81 81 82 82 /*Extrude epart2d to epart, using numlayers: */ -
issm/trunk-jpl/src/c/modules/MeshProfileIntersectionx/ElementSegment.cpp
r12495 r13036 38 38 if( (edge1==IntersectEnum) && (edge2==IntersectEnum) && (edge3==IntersectEnum) ){ 39 39 /*This case is impossible: */ 40 _error 2_("error: a line cannot go through 3 different vertices!");40 _error_("error: a line cannot go through 3 different vertices!"); 41 41 } 42 42 else if( ((edge1==IntersectEnum) && (edge2==IntersectEnum)) || ((edge2==IntersectEnum) && (edge3==IntersectEnum)) || ((edge3==IntersectEnum) && (edge1==IntersectEnum)) ){ -
issm/trunk-jpl/src/c/modules/ModelProcessorx/Balancethickness/CreateNodesBalancethickness.cpp
r12832 r13036 46 46 47 47 /*Check in 3d*/ 48 if(stabilization==3 && dim==3) _error 2_("DG 3d not implemented yet");48 if(stabilization==3 && dim==3) _error_("DG 3d not implemented yet"); 49 49 50 50 /*First fetch data: */ -
issm/trunk-jpl/src/c/modules/ModelProcessorx/Control/UpdateElementsAndMaterialsControl.cpp
r12832 r13036 48 48 case FrictionCoefficientEnum: iomodel->FetchData(1,FrictionCoefficientEnum); break; 49 49 case MaterialsRheologyBbarEnum: iomodel->FetchData(1,MaterialsRheologyBEnum); break; 50 default: _error 2_("Control " << EnumToStringx((int)iomodel->Data(InversionControlParametersEnum)[i]) << " not implemented yet");50 default: _error_("Control " << EnumToStringx((int)iomodel->Data(InversionControlParametersEnum)[i]) << " not implemented yet"); 51 51 } 52 52 } -
issm/trunk-jpl/src/c/modules/ModelProcessorx/CreateDataSets.cpp
r12832 r13036 124 124 125 125 default: 126 _error 2_("analysis_type: " << EnumToStringx(analysis_type) << " not supported yet!");126 _error_("analysis_type: " << EnumToStringx(analysis_type) << " not supported yet!"); 127 127 } 128 128 -
issm/trunk-jpl/src/c/modules/ModelProcessorx/Dakota/CreateParametersDakota.cpp
r12832 r13036 153 153 /*Fetch the mass flux segments necessary to compute the mass fluxes. Build a DoubleMatArrayParam object out of them: */ 154 154 iomodel->FetchData(&array,&mdims_array,&ndims_array,&qmu_mass_flux_num_profiles,QmuMassFluxSegmentsEnum); 155 if(qmu_mass_flux_num_profiles==0)_error 2_("qmu_mass_flux_num_profiles is 0, when MassFlux computations were requested!");155 if(qmu_mass_flux_num_profiles==0)_error_("qmu_mass_flux_num_profiles is 0, when MassFlux computations were requested!"); 156 156 157 157 /*Go through segments, and extract those that belong to this cpu: */ -
issm/trunk-jpl/src/c/modules/ModelProcessorx/DiagnosticHoriz/CreateConstraintsDiagnosticHoriz.cpp
r12832 r13036 145 145 146 146 } 147 else _error 2_("if vertices_type is MacAyealPattyn, you shoud have nodeonpattyn or nodeonmacayeal");147 else _error_("if vertices_type is MacAyealPattyn, you shoud have nodeonpattyn or nodeonmacayeal"); 148 148 } 149 149 /*Also add spcs of coupling: zero at the border pattyn/stokes for the appropriate dofs*/ … … 185 185 } 186 186 } 187 else _error 2_("if vertices_type is PattynStokes, you shoud have nodeonpattyn or nodeonstokes");187 else _error_("if vertices_type is PattynStokes, you shoud have nodeonpattyn or nodeonstokes"); 188 188 } 189 189 /*Also add spcs of coupling: zero at the border pattyn/stokes for the appropriate dofs*/ … … 225 225 } 226 226 } 227 else _error 2_("if vertices_type is MacAyealStokes, you shoud have nodeonmacayeal or nodeonstokes");227 else _error_("if vertices_type is MacAyealStokes, you shoud have nodeonmacayeal or nodeonstokes"); 228 228 } 229 229 /*Now add the regular spcs*/ … … 318 318 count++; 319 319 break; 320 default: _error 2_("Vertex approximation " << EnumToStringx((int)vertices_type[i]) << " not supported");320 default: _error_("Vertex approximation " << EnumToStringx((int)vertices_type[i]) << " not supported"); 321 321 } 322 322 } -
issm/trunk-jpl/src/c/modules/ModelProcessorx/DistributeNumDofs.cpp
r12564 r13036 61 61 doftype[5]=StokesApproximationEnum; 62 62 } 63 else _error 2_("Approximationtype " << reCast<int>(*vertices_type) << " (" << EnumToStringx(reCast<int>(*vertices_type)) << ") not implemented yet for DiagnosticHoriz");63 else _error_("Approximationtype " << reCast<int>(*vertices_type) << " (" << EnumToStringx(reCast<int>(*vertices_type)) << ") not implemented yet for DiagnosticHoriz"); 64 64 } 65 65 else if (analysis_type==DiagnosticVertAnalysisEnum){ … … 90 90 numdofs=1; 91 91 } 92 else _error 2_("analysis type: " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not implemented yet");92 else _error_("analysis type: " << analysis_type << " (" << EnumToStringx(analysis_type) << ") not implemented yet"); 93 93 94 94 /*Now initialize the index*/ -
issm/trunk-jpl/src/c/modules/ModelProcessorx/Enthalpy/CreateConstraintsEnthalpy.cpp
r12832 r13036 106 106 } 107 107 else{ 108 _error 2_("Size of field " << EnumToStringx(ThermalSpctemperatureEnum) << " not supported");108 _error_("Size of field " << EnumToStringx(ThermalSpctemperatureEnum) << " not supported"); 109 109 } 110 110 -
issm/trunk-jpl/src/c/modules/ModelProcessorx/Melting/CreateLoadsMelting.cpp
r12832 r13036 26 26 27 27 /*if 2d: Error*/ 28 if (dim==2) _error 2_("2d meshes not supported yet");28 if (dim==2) _error_("2d meshes not supported yet"); 29 29 30 30 /*Recover pointer: */ -
issm/trunk-jpl/src/c/modules/ModelProcessorx/NodesPartitioning.cpp
r12832 r13036 103 103 } 104 104 else{ 105 _error 2_("not implemented yet");105 _error_("not implemented yet"); 106 106 } 107 107 … … 111 111 iomodel->FetchData(&edges,&numberofedges,&cols,MeshEdgesEnum); 112 112 iomodel->FetchData(&elements,NULL,NULL,MeshElementsEnum); 113 if (cols!=4) _error 2_("field edges should have 4 columns");113 if (cols!=4) _error_("field edges should have 4 columns"); 114 114 115 115 /*!All elements have been partitioned above, only create elements for this CPU: */ … … 152 152 } 153 153 else{ 154 _error 2_("Problem in edges creation");154 _error_("Problem in edges creation"); 155 155 } 156 156 } -
issm/trunk-jpl/src/c/modules/ModelProcessorx/Prognostic/CreateNodesPrognostic.cpp
r12832 r13036 46 46 47 47 /*Check in 3d*/ 48 if(stabilization==3 && dim==3) _error 2_("DG 3d not implemented yet");48 if(stabilization==3 && dim==3) _error_("DG 3d not implemented yet"); 49 49 50 50 /*First fetch data: */ -
issm/trunk-jpl/src/c/modules/ModelProcessorx/Thermal/CreateLoadsThermal.cpp
r12832 r13036 33 33 34 34 /*return if 2d mesh*/ 35 if (dim==2) _error 2_("2d meshes not supported yet");35 if (dim==2) _error_("2d meshes not supported yet"); 36 36 37 37 //create penalties for nodes: no node can have a temperature over the melting point -
issm/trunk-jpl/src/c/modules/NodalValuex/NodalValuex.cpp
r12494 r13036 38 38 #ifdef _HAVE_MPI_ 39 39 MPI_Allreduce ( &found,&sumfound,1,MPI_INT,MPI_SUM,MPI_COMM_WORLD); 40 if(!sumfound)_error 2_("could not find element with vertex with id" << index << " to compute nodal value " << EnumToStringx(natureofdataenum));40 if(!sumfound)_error_("could not find element with vertex with id" << index << " to compute nodal value " << EnumToStringx(natureofdataenum)); 41 41 #endif 42 42 -
issm/trunk-jpl/src/c/modules/NodeConnectivityx/NodeConnectivityx.cpp
r12495 r13036 71 71 * warn the user to increase the connectivity width: */ 72 72 for(i=0;i<nods;i++){ 73 if (*(connectivity+width*i+maxels)>maxels)_error 2_("max connectivity width reached (" << *(connectivity+width*i+maxels) << ")! increase width of connectivity table");73 if (*(connectivity+width*i+maxels)>maxels)_error_("max connectivity width reached (" << *(connectivity+width*i+maxels) << ")! increase width of connectivity table"); 74 74 } 75 75 -
issm/trunk-jpl/src/c/modules/ParsePetscOptionsx/ParsePetscOptionsx.cpp
r12572 r13036 106 106 char* string=strings[i]; 107 107 if(my_rank==0){ 108 if(string==NULL) _error 2_("PETSc options for analysis " << EnumToStringx(reCast<int>(analyses[i])) << " have been declared but were not found");108 if(string==NULL) _error_("PETSc options for analysis " << EnumToStringx(reCast<int>(analyses[i])) << " have been declared but were not found"); 109 109 } 110 110 if(my_rank==0)stringlength=(strlen(string)+1)*sizeof(char); -
issm/trunk-jpl/src/c/modules/ResetConstraintsx/ResetConstraintsx.cpp
r12515 r13036 30 30 * management routine, otherwise, skip : */ 31 31 if (RiftIsPresent(loads,analysis_type)){ 32 _error 2_("rift constraints reset not supported yet!");32 _error_("rift constraints reset not supported yet!"); 33 33 } 34 34 else if(ThermalIsPresent(loads,analysis_type)){ -
issm/trunk-jpl/src/c/modules/Responsex/Responsex.cpp
r12931 r13036 49 49 case VelEnum:ElementResponsex(responses, elements,nodes, vertices, loads, materials, parameters,VelEnum,process_units); break; 50 50 case FrictionCoefficientEnum:NodalValuex(responses, FrictionCoefficientEnum,elements,nodes, vertices, loads, materials, parameters,process_units); break; 51 default: _error 2_("response descriptor \"" << response_descriptor << "\" not supported yet!"); break;51 default: _error_("response descriptor \"" << response_descriptor << "\" not supported yet!"); break; 52 52 #else 53 default: _error 2_("ISSM was not compiled with responses capabilities, exiting!");53 default: _error_("ISSM was not compiled with responses capabilities, exiting!"); 54 54 #endif 55 55 } -
issm/trunk-jpl/src/c/modules/Shp2Kmlx/Shp2Kmlx.cpp
r12519 r13036 75 75 76 76 hSHP = SHPOpen( filshp, "rb" ); 77 if (!hSHP) _error 2_("Error opening shp/shx files.");77 if (!hSHP) _error_("Error opening shp/shx files."); 78 78 79 79 /* read header and print out file bounds */ -
issm/trunk-jpl/src/c/modules/Solverx/Solverx.cpp
r12905 r13036 44 44 break;} 45 45 default: 46 _error 2_("Matrix type: " << Kff->type << " not supported yet!");46 _error_("Matrix type: " << Kff->type << " not supported yet!"); 47 47 } 48 48 -
issm/trunk-jpl/src/c/modules/Solverx/SolverxPetsc.cpp
r12865 r13036 96 96 #if _PETSC_MAJOR_ >=3 97 97 #ifndef _HAVE_MUMPS_ 98 _error 2_("requested MUMPS solver, which was not compiled into ISSM!\n");98 _error_("requested MUMPS solver, which was not compiled into ISSM!\n"); 99 99 #endif 100 100 #endif … … 120 120 if (solver_type==StokesSolverEnum){ 121 121 /*Make indices out of doftypes: */ 122 if(!df)_error 2_("need doftypes for Stokes solver!\n");122 if(!df)_error_("need doftypes for Stokes solver!\n"); 123 123 DofTypesToIndexSet(&isv,&isp,df,StokesSolverEnum); 124 124 … … 151 151 /*Check convergence*/ 152 152 KSPGetIterationNumber(ksp,&iteration_number); 153 if (iteration_number<0) _error 2_("Solver diverged at iteration number: " << -iteration_number);153 if (iteration_number<0) _error_("Solver diverged at iteration number: " << -iteration_number); 154 154 155 155 /*Free resources:*/ -
issm/trunk-jpl/src/c/modules/Solverx/SolverxSeq.cpp
r12988 r13036 30 30 pf->GetSize(&N2); 31 31 32 if(N!=N2)_error 2_("Right hand side vector of size " << N2 << ", when matrix is of size " << M << "-" << N << " !");33 if(M!=N)_error 2_("Stiffness matrix should be square!");32 if(N!=N2)_error_("Right hand side vector of size " << N2 << ", when matrix is of size " << M << "-" << N << " !"); 33 if(M!=N)_error_("Stiffness matrix should be square!"); 34 34 35 35 SolverxSeq(&x,Kff->matrix,pf->vector,N); … … 40 40 41 41 #else 42 _error 2_("GSL support not compiled in!");42 _error_("GSL support not compiled in!"); 43 43 #endif 44 44 -
issm/trunk-jpl/src/c/modules/StringToEnumx/StringToEnumx.cpp
r12927 r13036 488 488 } 489 489 /*If we reach this point, the string provided has not been found*/ 490 _error 2_("Enum " << name << " not found");490 _error_("Enum " << name << " not found"); 491 491 } -
issm/trunk-jpl/src/c/modules/Xy2llx/Xy2llx.cpp
r12515 r13036 53 53 double sl,rho,cm,T,chi; 54 54 55 if((sgn!=1) && (sgn!=-1)) _error 2_("Sign should be either +1 or -1.\n");55 if((sgn!=1) && (sgn!=-1)) _error_("Sign should be either +1 or -1.\n"); 56 56 57 57 delta = central_meridian; … … 131 131 if(flag) _pprintLine_("Warning: expecting coordinates in polar stereographic (Std Latitude: 71S Meridian: 0)."); 132 132 } 133 else _error 2_("Sign should be either +1 or -1.\n");133 else _error_("Sign should be either +1 or -1.\n"); 134 134 135 135 return; -
issm/trunk-jpl/src/c/python/io/CheckNumPythonArguments.cpp
r12493 r13036 27 27 if (size==0){ 28 28 function(); 29 _error 2_("usage: see above");29 _error_("usage: see above"); 30 30 } 31 31 else if (size!=NRHS ) { 32 32 function(); 33 _error 2_("usage error.");33 _error_("usage error."); 34 34 } 35 35 return 1; -
issm/trunk-jpl/src/c/python/io/FetchPythonData.cpp
r12776 r13036 48 48 49 49 /*check this is indeed a subtype of long type: */ 50 if(!PyBool_Check(py_boolean))_error 2_("expecting a boolean in input!");50 if(!PyBool_Check(py_boolean))_error_("expecting a boolean in input!"); 51 51 52 52 /*extract boolean: */ … … 69 69 /*retrive dimensions: */ 70 70 ndim=PyArray_NDIM((const PyArrayObject*)py_matrix); 71 if(ndim!=2)_error 2_("expecting an MxN matrix in input!");71 if(ndim!=2)_error_("expecting an MxN matrix in input!"); 72 72 dims=PyArray_DIMS((PyArrayObject*)py_matrix); 73 73 M=dims[0]; N=dims[1]; … … 97 97 /*retrive dimensions: */ 98 98 ndim=PyArray_NDIM((const PyArrayObject*)py_matrix); 99 if(ndim!=2)_error 2_("expecting an MxN matrix in input!");99 if(ndim!=2)_error_("expecting an MxN matrix in input!"); 100 100 dims=PyArray_DIMS((PyArrayObject*)py_matrix); 101 101 M=dims[0]; N=dims[1]; … … 125 125 /*retrive dimensions: */ 126 126 ndim=PyArray_NDIM((const PyArrayObject*)py_vector); 127 if(ndim!=1)_error 2_("expecting an Mx1 vector in input!");127 if(ndim!=1)_error_("expecting an Mx1 vector in input!"); 128 128 dims=PyArray_DIMS((PyArrayObject*)py_vector); 129 129 M=dims[0]; -
issm/trunk-jpl/src/c/shared/Alloc/alloc.cpp
r12832 r13036 31 31 void* memptr=NULL; 32 32 33 if(!size)_error 2_("attempting to 0 size allocation!");33 if(!size)_error_("attempting to 0 size allocation!"); 34 34 35 35 /* Use the c library to do the allocation: */ 36 36 memptr=malloc(size); 37 if(!memptr) _error 2_("memory allocation failed!");37 if(!memptr) _error_("memory allocation failed!"); 38 38 39 39 return memptr; … … 44 44 void* memptr=NULL; 45 45 46 if(!size)_error 2_("attempting to 0 size allocation!");46 if(!size)_error_("attempting to 0 size allocation!"); 47 47 48 48 /* Use the c library to do the allocation: */ 49 49 memptr=calloc(n,size); 50 if(!memptr) _error 2_("memory allocation failed!");50 if(!memptr) _error_("memory allocation failed!"); 51 51 52 52 return memptr; … … 88 88 register void* value=NULL; 89 89 90 if(!size)_error 2_("attempting to realloc to zero");90 if(!size)_error_("attempting to realloc to zero"); 91 91 value = (void*)realloc(pv,size); 92 92 93 93 if (value == NULL) { 94 _error 2_("virtual memory exhausted");94 _error_("virtual memory exhausted"); 95 95 } 96 96 return value; -
issm/trunk-jpl/src/c/shared/Elements/CoordinateSystemTransform.cpp
r12493 r13036 22 22 case XYEnum: numdofs+=2; break; 23 23 case XYZPEnum: numdofs+=4; break; 24 default: _error 2_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet");24 default: _error_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet"); 25 25 } 26 26 } … … 67 67 break; 68 68 default: 69 _error 2_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet");69 _error_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet"); 70 70 } 71 71 } -
issm/trunk-jpl/src/c/shared/Elements/TransformInvStiffnessMatrixCoord.cpp
r12493 r13036 31 31 case XYEnum: numdofs+=2; break; 32 32 case XYZPEnum: numdofs+=4; break; 33 default: _error 2_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet");33 default: _error_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet"); 34 34 } 35 35 } -
issm/trunk-jpl/src/c/shared/Elements/TransformLoadVectorCoord.cpp
r12493 r13036 30 30 case XYEnum: numdofs+=2; break; 31 31 case XYZPEnum: numdofs+=4; break; 32 default: _error 2_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet");32 default: _error_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet"); 33 33 } 34 34 } -
issm/trunk-jpl/src/c/shared/Elements/TransformSolutionCoord.cpp
r12493 r13036 31 31 case XYEnum: numdofs+=2; break; 32 32 case XYZPEnum: numdofs+=4; break; 33 default: _error 2_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet");33 default: _error_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet"); 34 34 } 35 35 } -
issm/trunk-jpl/src/c/shared/Elements/TransformStiffnessMatrixCoord.cpp
r12493 r13036 31 31 case XYEnum: numdofs+=2; break; 32 32 case XYZPEnum: numdofs+=4; break; 33 default: _error 2_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet");33 default: _error_("Coordinate system " << EnumToStringx(cs_array[i]) << " not supported yet"); 34 34 } 35 35 } -
issm/trunk-jpl/src/c/shared/Exp/DomainOutlineRead.cpp
r12835 r13036 39 39 /*open domain outline file for reading: */ 40 40 if ((fid=fopen(domainname,"r"))==NULL){ 41 _error 2_("could not find domain file " << domainname);41 _error_("could not find domain file " << domainname); 42 42 } 43 43 -
issm/trunk-jpl/src/c/shared/Exp/DomainOutlineWrite.cpp
r12494 r13036 23 23 /*open domain outline file for writing: */ 24 24 if ((fid=fopen(domainname,"w"))==NULL){ 25 _error 2_("could not open domain file " << domainname);25 _error_("could not open domain file " << domainname); 26 26 noerr=0; goto cleanupandreturn; 27 27 } -
issm/trunk-jpl/src/c/shared/Matrix/MatrixUtils.cpp
r12493 r13036 36 36 if (!itrnb) { 37 37 if (nrowb != idimb) { 38 _error 2_("Matrix A and B inner vectors not equal size.");38 _error_("Matrix A and B inner vectors not equal size."); 39 39 } 40 40 idimc=ncolb; … … 42 42 else { 43 43 if (ncolb != idimb) { 44 _error 2_("Matrix A and B inner vectors not equal size.");44 _error_("Matrix A and B inner vectors not equal size."); 45 45 } 46 46 idimc=nrowb; … … 49 49 if (!itrnc) { 50 50 if (nrowc != idimc) { 51 _error 2_("Matrix B and C inner vectors not equal size.");51 _error_("Matrix B and C inner vectors not equal size."); 52 52 } 53 53 idimd=ncolc; … … 55 55 else { 56 56 if (ncolc != idimc) { 57 _error 2_("Matrix B and C inner vectors not equal size.");57 _error_("Matrix B and C inner vectors not equal size."); 58 58 } 59 59 idimd=nrowc; … … 124 124 125 125 if (ntrma != ntrmb) { 126 _error 2_("Matrix A and B inner vectors not equal size");126 _error_("Matrix A and B inner vectors not equal size"); 127 127 noerr=0; 128 128 return noerr; … … 175 175 176 176 if (!b && nvec) { 177 _error 2_("No right-hand side for nvec=" << nvec << ".");177 _error_("No right-hand side for nvec=" << nvec << "."); 178 178 noerr=0; 179 179 return noerr; … … 214 214 xDelete<int>(pivrc2); 215 215 xDelete<int>(pindx); 216 _error 2_("Pivot " << pivot << " less than machine epsilon");216 _error_("Pivot " << pivot << " less than machine epsilon"); 217 217 noerr=0; 218 218 return noerr; … … 349 349 /*Compute determinant*/ 350 350 Matrix2x2Determinant(&det,A); 351 if (fabs(det) < DBL_EPSILON) _error 2_("Determinant smaller that machine epsilon");351 if (fabs(det) < DBL_EPSILON) _error_("Determinant smaller that machine epsilon"); 352 352 353 353 /*Compute invert*/ … … 374 374 /*Compute determinant*/ 375 375 Matrix3x3Determinant(&det,A); 376 if (fabs(det) < DBL_EPSILON) _error 2_("Determinant smaller that machine epsilon");376 if (fabs(det) < DBL_EPSILON) _error_("Determinant smaller that machine epsilon"); 377 377 378 378 /*Compute invert*/ -
issm/trunk-jpl/src/c/shared/Numerics/BrentSearch.cpp
r12832 r13036 44 44 iter=0; 45 45 fxmin = (*f)(xmin,optargs); 46 if (xIsNan<IssmDouble>(fxmin)) _error 2_("Function evaluation returned NaN");46 if (xIsNan<IssmDouble>(fxmin)) _error_("Function evaluation returned NaN"); 47 47 cout<<setprecision(5); 48 48 if(VerboseControl()) _pprintLine_(""); … … 51 51 if(VerboseControl()) _pprintLine_(" N/A "<<setw(12)<<xmin<<" "<<setw(12)<<fxmin<<" N/A boundary"); 52 52 fxmax = (*f)(xmax,optargs); 53 if (xIsNan<IssmDouble>(fxmax)) _error 2_("Function evaluation returned NaN");53 if (xIsNan<IssmDouble>(fxmax)) _error_("Function evaluation returned NaN"); 54 54 if(VerboseControl()) _pprintLine_(" N/A "<<setw(12)<<xmax<<" "<<setw(12)<<fxmax<<" N/A boundary"); 55 55 … … 75 75 /*2: call the function to be evaluated*/ 76 76 fxbest = (*f)(x,optargs); 77 if(xIsNan<IssmDouble>(fxbest)) _error 2_("Function evaluation returned NaN");77 if(xIsNan<IssmDouble>(fxbest)) _error_("Function evaluation returned NaN"); 78 78 iter=iter+1; 79 79 … … 159 159 //evaluate function on x 160 160 fx = (*f)(x,optargs); 161 if(xIsNan<IssmDouble>(fx)) _error 2_("Function evaluation returned NaN");161 if(xIsNan<IssmDouble>(fx)) _error_("Function evaluation returned NaN"); 162 162 iter=iter+1; 163 163 -
issm/trunk-jpl/src/c/shared/Numerics/GaussPoints.cpp
r12519 r13036 1670 1670 if (iter >= MAX_GAUS_ITER) { 1671 1671 xDelete<IssmPDouble>(work); 1672 _error 2_("Max iterations exceeded for l=" << MAX_GAUS_ITER);1672 _error_("Max iterations exceeded for l=" << MAX_GAUS_ITER); 1673 1673 } 1674 1674 } -
issm/trunk-jpl/src/c/shared/Numerics/IsInputConverged.cpp
r12832 r13036 53 53 else eps=0; 54 54 } 55 else _error 2_("convergence criterion " << EnumToStringx(criterion_enum) << " not supported yet!");55 else _error_("convergence criterion " << EnumToStringx(criterion_enum) << " not supported yet!"); 56 56 57 57 /*Assign output pointers:*/ -
issm/trunk-jpl/src/c/shared/Numerics/OptimalSearch.cpp
r12832 r13036 41 41 //get the value of the function at the first boundary 42 42 fx1= (*f)(x1,optargs); 43 if (xIsNan<IssmDouble>(fx1)) _error 2_("Function evaluation returned NaN");43 if (xIsNan<IssmDouble>(fx1)) _error_("Function evaluation returned NaN"); 44 44 cout<<setprecision(5); 45 45 if(VerboseControl()) _pprintLine_(""); … … 57 57 iter++; 58 58 fx2 = (*f)(x2,optargs); 59 if (xIsNan<IssmDouble>(fx2)) _error 2_("Function evaluation returned NaN");59 if (xIsNan<IssmDouble>(fx2)) _error_("Function evaluation returned NaN"); 60 60 if(VerboseControl()) 61 61 _pprintLine_(" "<<setw(5)<<iter<<" "<<setw(12)<<x2<<" "<<setw(12)<<fx2<<" "<<(fabs(x2-x1)>fabs(fx2-fx1)?fabs(fx2-fx1):fabs(x2-x1))); -
issm/trunk-jpl/src/c/shared/Numerics/OptionsFromAnalysis.cpp
r12832 r13036 57 57 if (found==-1){ 58 58 /*ok, we did not find anything, this is not good! error out: */ 59 _error 2_("could find neither a default analysis nor analysis " << EnumToStringx(analysis_type));59 _error_("could find neither a default analysis nor analysis " << EnumToStringx(analysis_type)); 60 60 } 61 61 -
issm/trunk-jpl/src/c/shared/Numerics/UnitConversion.cpp
r12909 r13036 29 29 if(direction_enum==IuToExtEnum) for(i=0;i<numvalues;i++)values[i]=values[i]*scale; 30 30 else if(direction_enum==ExtToIuEnum) for(i=0;i<numvalues;i++)values[i]=values[i]/scale; 31 else _error 2_("wrong direction for unit conversion, either IuToExtEnum or ExtToIuEnum. ");31 else _error_("wrong direction for unit conversion, either IuToExtEnum or ExtToIuEnum. "); 32 32 33 33 } -
issm/trunk-jpl/src/c/shared/Numerics/Verbosity.cpp
r12493 r13036 34 34 void SetVerbosityLevel(int level){ 35 35 36 if(level<0) _error 2_("vebosity level should be a positive integer (user provided " << level << ")");36 if(level<0) _error_("vebosity level should be a positive integer (user provided " << level << ")"); 37 37 38 38 verbositylevel = level; -
issm/trunk-jpl/src/c/shared/String/DescriptorIndex.cpp
r12495 r13036 23 23 /*retrieve first token, separated by underscore: */ 24 24 pch = strtok (descriptor,"_"); 25 if(!pch)_error 2_("descriptor " << descriptor << " is not correctly formatted!");25 if(!pch)_error_("descriptor " << descriptor << " is not correctly formatted!"); 26 26 27 27 if (strncmp(pch,"scaled",6)==0){ 28 28 /*we have a scaled variable. recover the root: */ 29 29 pch = strtok (NULL, "_"); 30 if(!pch)_error 2_("scaled descriptor " << descriptor << " is not correctly formatted!");30 if(!pch)_error_("scaled descriptor " << descriptor << " is not correctly formatted!"); 31 31 memcpy(root,pch,(strlen(pch)+1)*sizeof(char)); 32 32 … … 44 44 /*we have an indexed variable. recover the root: */ 45 45 pch = strtok (NULL, "_"); 46 if(!pch)_error 2_("indexed descriptor " << descriptor << " is not correctly formatted!");46 if(!pch)_error_("indexed descriptor " << descriptor << " is not correctly formatted!"); 47 47 memcpy(root,pch,(strlen(pch)+1)*sizeof(char)); 48 48 /*now recover the index: */ 49 49 pch = strtok (NULL, "_"); 50 if(!pch)_error 2_("indexed descriptor " << descriptor << " is not correctly formatted!");50 if(!pch)_error_("indexed descriptor " << descriptor << " is not correctly formatted!"); 51 51 sscanf(pch,"%i",pindex); 52 52 return IndexedEnum; … … 55 55 /*we have an indexed variable. recover the root: */ 56 56 pch = strtok (NULL, "_"); 57 if(!pch)_error 2_("nodal descriptor " << descriptor << " is not correctly formatted!");57 if(!pch)_error_("nodal descriptor " << descriptor << " is not correctly formatted!"); 58 58 memcpy(root,pch,(strlen(pch)+1)*sizeof(char)); 59 59 /*now recover the index: */ 60 60 pch = strtok (NULL, "_"); 61 if(!pch)_error 2_("nodal descriptor " << descriptor << " is not correctly formatted!");61 if(!pch)_error_("nodal descriptor " << descriptor << " is not correctly formatted!"); 62 62 sscanf(pch,"%i",pindex); 63 63 return NodalEnum; -
issm/trunk-jpl/src/c/shared/Sys/ProfilingEnd.cpp
r13035 r13036 30 30 _pprintLine_("PETSc memory used : " << memUse << " Bytes"); 31 31 #else 32 _error 2_("Profiling not supported under this numerical toolkit");32 _error_("Profiling not supported under this numerical toolkit"); 33 33 #endif 34 34 -
issm/trunk-jpl/src/c/shared/Sys/ProfilingStart.cpp
r13035 r13036 23 23 PetscGetFlops(&Flops_start ); 24 24 #else 25 _error 2_("Profiling not supported under this numerical toolkit");25 _error_("Profiling not supported under this numerical toolkit"); 26 26 #endif 27 27 -
issm/trunk-jpl/src/c/shared/Threads/LaunchThread.cpp
r12495 r13036 44 44 45 45 if(pthread_create(threads+i,NULL,function,(void*)(handles+i))){ 46 _error 2_("pthread_create error");46 _error_("pthread_create error"); 47 47 } 48 48 } 49 49 for(i=0;i<num_threads;i++){ 50 50 if(pthread_join(threads[i],(void**)&status)){ 51 _error 2_("pthread_join error");51 _error_("pthread_join error"); 52 52 } 53 53 } -
issm/trunk-jpl/src/c/solutions/AdjointCorePointerFromSolutionEnum.cpp
r12832 r13036 35 35 break; 36 36 default: 37 _error 2_("No adjoint has been implemented for solution " << EnumToStringx(solutiontype) << " yet");37 _error_("No adjoint has been implemented for solution " << EnumToStringx(solutiontype) << " yet"); 38 38 break; 39 39 } -
issm/trunk-jpl/src/c/solutions/AnalysisConfiguration.cpp
r12832 r13036 110 110 111 111 default: 112 _error 2_("solution type: " << EnumToStringx(solutiontype) << " not supported yet!");112 _error_("solution type: " << EnumToStringx(solutiontype) << " not supported yet!"); 113 113 break; 114 114 } -
issm/trunk-jpl/src/c/solutions/CorePointerFromSolutionEnum.cpp
r12832 r13036 29 29 solutioncore=&diagnostic_core; 30 30 #else 31 _error 2_("ISSM was not compiled with diagnostic capabilities. Exiting");31 _error_("ISSM was not compiled with diagnostic capabilities. Exiting"); 32 32 #endif 33 33 break; … … 36 36 solutioncore=&steadystate_core; 37 37 #else 38 _error 2_("ISSM was not compiled with steady state capabilities. Exiting");38 _error_("ISSM was not compiled with steady state capabilities. Exiting"); 39 39 #endif 40 40 break; … … 43 43 solutioncore=&thermal_core; 44 44 #else 45 _error 2_("ISSM was not compiled with thermal capabilities. Exiting");45 _error_("ISSM was not compiled with thermal capabilities. Exiting"); 46 46 #endif 47 47 break; … … 50 50 solutioncore=&enthalpy_core; 51 51 #else 52 _error 2_("ISSM was not compiled with thermal capabilities. Exiting");52 _error_("ISSM was not compiled with thermal capabilities. Exiting"); 53 53 #endif 54 54 break; … … 57 57 solutioncore=&balancethickness_core; 58 58 #else 59 _error 2_("ISSM was not compiled with balanced capabilities. Exiting");59 _error_("ISSM was not compiled with balanced capabilities. Exiting"); 60 60 #endif 61 61 break; … … 64 64 solutioncore=&hydrology_core; 65 65 #else 66 _error 2_("ISSM was not compiled with hydrology capabilities. Exiting");66 _error_("ISSM was not compiled with hydrology capabilities. Exiting"); 67 67 #endif 68 68 break; … … 71 71 solutioncore=&surfaceslope_core; 72 72 #else 73 _error 2_("ISSM was not compiled with slope capabilities. Exiting");73 _error_("ISSM was not compiled with slope capabilities. Exiting"); 74 74 #endif 75 75 break; … … 78 78 solutioncore=&bedslope_core; 79 79 #else 80 _error 2_("ISSM was not compiled with slope capabilities. Exiting");80 _error_("ISSM was not compiled with slope capabilities. Exiting"); 81 81 #endif 82 82 break; … … 85 85 solutioncore=&transient_core; 86 86 #else 87 _error 2_("ISSM was not compiled with transient capabilities. Exiting");87 _error_("ISSM was not compiled with transient capabilities. Exiting"); 88 88 #endif 89 89 break; … … 92 92 solutioncore=&prognostic_core; 93 93 #else 94 _error 2_("ISSM was not compiled with prognostic capabilities. Exiting");94 _error_("ISSM was not compiled with prognostic capabilities. Exiting"); 95 95 #endif 96 96 break; 97 97 default: 98 _error 2_("solution type: " << EnumToStringx(solutiontype) << " not supported yet!");98 _error_("solution type: " << EnumToStringx(solutiontype) << " not supported yet!"); 99 99 break; 100 100 } -
issm/trunk-jpl/src/c/solutions/ProcessArguments.cpp
r12493 r13036 17 17 char *lockfilename = NULL; 18 18 19 if(argc<2)_error 2_("Usage error: no solution requested");19 if(argc<2)_error_("Usage error: no solution requested"); 20 20 *solution_type=StringToEnumx(argv[1]); 21 if(argc<3)_error 2_("Usage error: missing model name");21 if(argc<3)_error_("Usage error: missing model name"); 22 22 modelname=argv[3]; 23 23 binfilename = xNew<char>(strlen(modelname)+strlen(".bin") +1); sprintf(binfilename, "%s%s",modelname,".bin"); -
issm/trunk-jpl/src/c/solutions/WriteLockFile.cpp
r12494 r13036 17 17 if(my_rank==0){ 18 18 fid=fopen(filename,"w"); 19 if(fid==NULL) _error 2_("error message: could not open lock file " << filename);19 if(fid==NULL) _error_("error message: could not open lock file " << filename); 20 20 21 21 /*Close file: */ 22 if(fclose(fid)!=0) _error 2_("could not close lock file " << filename);22 if(fclose(fid)!=0) _error_("could not close lock file " << filename); 23 23 } 24 24 -
issm/trunk-jpl/src/c/solutions/controltao_core.cpp
r12955 r13036 42 42 PetscGetArgs(&argc,&args); 43 43 ierr = TaoInitialize(&argc,&args,(char*)0,""); 44 if(ierr) _error 2_("Could not initialize Tao");44 if(ierr) _error_("Could not initialize Tao"); 45 45 46 46 /*Recover some parameters*/ … … 185 185 #else 186 186 void controltao_core(FemModel* femmodel){ 187 _error 2_("TAO not installed or PETSc version not supported");187 _error_("TAO not installed or PETSc version not supported"); 188 188 } 189 189 #endif //_HAVE_TAO_ -
issm/trunk-jpl/src/c/solutions/convergence.cpp
r12832 r13036 72 72 if (xIsNan<IssmDouble>(res)){ 73 73 _pprintLine_("norm nf = " << nF << "f and norm kuold = " << nKUoldF << "f"); 74 _error 2_("mechanical equilibrium convergence criterion is NaN!");74 _error_("mechanical equilibrium convergence criterion is NaN!"); 75 75 } 76 76 … … 96 96 ndu=duf->Norm(NORM_TWO); nu=old_uf->Norm(NORM_TWO); 97 97 98 if (xIsNan<IssmDouble>(ndu) || xIsNan<IssmDouble>(nu)) _error 2_("convergence criterion is NaN!");98 if (xIsNan<IssmDouble>(ndu) || xIsNan<IssmDouble>(nu)) _error_("convergence criterion is NaN!"); 99 99 100 100 //clean up … … 121 121 duf=old_uf->Duplicate(); old_uf->Copy(duf); duf->AYPX(uf,-1.0); 122 122 ndu=duf->Norm(NORM_TWO); nduinf=duf->Norm(NORM_INF); 123 if (xIsNan<IssmDouble>(ndu) || xIsNan<IssmDouble>(nu)) _error 2_("convergence criterion is NaN!");123 if (xIsNan<IssmDouble>(ndu) || xIsNan<IssmDouble>(nu)) _error_("convergence criterion is NaN!"); 124 124 125 125 //clean up -
issm/trunk-jpl/src/c/solutions/gradient_core.cpp
r12832 r13036 37 37 /*Check that gradient is clean*/ 38 38 norm_inf=new_gradient->Norm(NORM_INF); 39 if(norm_inf<=0) _error 2_("||∂J/∂α||∞ = 0 gradient norm is zero");40 if(xIsNan<IssmDouble>(norm_inf))_error 2_("||∂J/∂α||∞ = NaN gradient norm is NaN");39 if(norm_inf<=0) _error_("||∂J/∂α||∞ = 0 gradient norm is zero"); 40 if(xIsNan<IssmDouble>(norm_inf))_error_("||∂J/∂α||∞ = NaN gradient norm is NaN"); 41 41 42 42 /*plug back into inputs: */ -
issm/trunk-jpl/src/c/solutions/issm.cpp
r12988 r13036 53 53 #ifdef _HAVE_PETSC_ 54 54 ierr=PetscInitialize(&argc,&argv,(char*)0,""); 55 if(ierr) _error 2_("Could not initialize Petsc");55 if(ierr) _error_("Could not initialize Petsc"); 56 56 #else 57 57 #ifdef _HAVE_MPI_ … … 128 128 Dakotax(femmodel); 129 129 #else 130 _error 2_("ISSM was not compiled with dakota support, cannot carry out dakota analysis!");130 _error_("ISSM was not compiled with dakota support, cannot carry out dakota analysis!"); 131 131 #endif 132 132 } … … 138 138 control_core(femmodel); 139 139 #else 140 _error 2_("ISSM was not compiled with control support, cannot carry out dakota analysis!");140 _error_("ISSM was not compiled with control support, cannot carry out dakota analysis!"); 141 141 #endif 142 142 } -
issm/trunk-jpl/src/c/solutions/kriging.cpp
r12519 r13036 40 40 #ifdef _HAVE_PETSC_ 41 41 int ierr=PetscInitialize(&argc,&argv,(char*)0,""); 42 if(ierr) _error 2_("Could not initialize Petsc");42 if(ierr) _error_("Could not initialize Petsc"); 43 43 #else 44 44 #ifdef _HAVE_MPI_ … … 122 122 char *lockfilename = NULL; 123 123 124 if(argc<2)_error 2_("Usage error: missing model name");124 if(argc<2)_error_("Usage error: missing model name"); 125 125 modelname=argv[2]; 126 126 binfilename = xNew<char>((strlen(modelname)+strlen(".bin") +1)); sprintf(binfilename, "%s%s",modelname,".bin"); -
issm/trunk-jpl/src/c/solutions/objectivefunction.cpp
r12832 r13036 49 49 } 50 50 else{ 51 _error 2_("Solution " << EnumToStringx(solution_type) << " not implemented yet");51 _error_("Solution " << EnumToStringx(solution_type) << " not implemented yet"); 52 52 } 53 53 … … 66 66 } 67 67 else{ 68 _error 2_("Solution " << EnumToStringx(solution_type) << " not implemented yet");68 _error_("Solution " << EnumToStringx(solution_type) << " not implemented yet"); 69 69 } 70 70 -
issm/trunk-jpl/src/c/solutions/steadystate_core.cpp
r12832 r13036 52 52 } 53 53 #else 54 _error 2_("ISSM was not compiled with thermal capabilities. Exiting");54 _error_("ISSM was not compiled with thermal capabilities. Exiting"); 55 55 #endif 56 56 -
issm/trunk-jpl/src/c/solutions/transient_core.cpp
r12884 r13036 104 104 } 105 105 #else 106 _error 2_("ISSM was not compiled with thermal capabilities. Exiting");106 _error_("ISSM was not compiled with thermal capabilities. Exiting"); 107 107 #endif 108 108 } … … 113 113 diagnostic_core(femmodel); 114 114 #else 115 _error 2_("ISSM was not compiled with diagnostic capabilities. Exiting");115 _error_("ISSM was not compiled with diagnostic capabilities. Exiting"); 116 116 #endif 117 117 } … … 129 129 GroundinglineMigrationx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters); 130 130 #else 131 _error 2_("ISSM was not compiled with grounding line migration capabilities. Exiting");131 _error_("ISSM was not compiled with grounding line migration capabilities. Exiting"); 132 132 #endif 133 133 } -
issm/trunk-jpl/src/c/toolkits/issm/SeqMat.cpp
r12860 r13036 119 119 break; 120 120 default: 121 _error 2_("unknown norm !");121 _error_("unknown norm !"); 122 122 break; 123 123 } … … 150 150 AX->GetSize(&AXM); 151 151 152 if(M!=AXM)_error 2_("A and AX should have the same number of rows!");153 if(N!=XM)_error 2_("A and X should have the same number of columns!");152 if(M!=AXM)_error_("A and AX should have the same number of rows!"); 153 if(N!=XM)_error_("A and X should have the same number of columns!"); 154 154 155 155 for(i=0;i<M;i++){ … … 197 197 break; 198 198 default: 199 _error 2_("unknown insert mode!");199 _error_("unknown insert mode!"); 200 200 break; 201 201 } -
issm/trunk-jpl/src/c/toolkits/issm/SeqVec.cpp
r12863 r13036 85 85 break; 86 86 default: 87 _error 2_("unknown insert mode!");87 _error_("unknown insert mode!"); 88 88 break; 89 89 } … … 102 102 break; 103 103 default: 104 _error 2_("unknown insert mode!");104 _error_("unknown insert mode!"); 105 105 break; 106 106 } … … 204 204 break; 205 205 default: 206 _error 2_("unknown norm !");206 _error_("unknown norm !"); 207 207 break; 208 208 } -
issm/trunk-jpl/src/c/toolkits/metis/patches/METIS_PartMeshNodalPatch.cpp
r12731 r13036 60 60 61 61 #else 62 _error 2_("METIS version not supported yet");62 _error_("METIS version not supported yet"); 63 63 #endif 64 64 } -
issm/trunk-jpl/src/c/toolkits/petsc/patches/ISSMToPetscInsertMode.cpp
r12493 r13036 30 30 break; 31 31 default: 32 _error 2_("unknown insert mode!");32 _error_("unknown insert mode!"); 33 33 break; 34 34 } -
issm/trunk-jpl/src/c/toolkits/petsc/patches/ISSMToPetscMatrixType.cpp
r12493 r13036 30 30 break; 31 31 default: 32 _error 2_("unknown matrix type !");32 _error_("unknown matrix type !"); 33 33 break; 34 34 } -
issm/trunk-jpl/src/c/toolkits/petsc/patches/ISSMToPetscNormMode.cpp
r12493 r13036 30 30 break; 31 31 default: 32 _error 2_("unknown norm !");32 _error_("unknown norm !"); 33 33 break; 34 34 } -
issm/trunk-jpl/src/c/toolkits/petsc/patches/MatInvert.cpp
r12493 r13036 29 29 /*Some checks: */ 30 30 MatGetSize(matrix,&M,&N); 31 if(M!=N) _error 2_("trying to invert a non square matrix!");31 if(M!=N) _error_("trying to invert a non square matrix!"); 32 32 33 33 /*Create identitiy matrix: */ -
issm/trunk-jpl/src/c/toolkits/petsc/patches/MatPartition.cpp
r12729 r13036 62 62 } 63 63 else{ 64 _error 2_("MatType " << type << " not supported yet");64 _error_("MatType " << type << " not supported yet"); 65 65 } 66 66 /*Assemble*/ -
issm/trunk-jpl/src/c/toolkits/petsc/patches/PetscOptionsInsertMultipleString.cpp
r12729 r13036 55 55 if(first[0]!='-'){ 56 56 /*This is not good, the option does not have '-'! Get out*/ 57 _error 2_("Option " << first << " should be preceded by '-'!");57 _error_("Option " << first << " should be preceded by '-'!"); 58 58 } 59 59 /*Reduce first to bare option value*/ -
issm/trunk-jpl/src/c/toolkits/petsc/patches/VecMerge.cpp
r12493 r13036 35 35 /*If the dimension of the partitioning vector is not the same as that of vector B, we have a problem: */ 36 36 if ( (row_partition_size !=MB) ){ 37 _error 2_("Dimensions of partitioning vector incompatible with dimensions of input vector\n");37 _error_("Dimensions of partitioning vector incompatible with dimensions of input vector\n"); 38 38 } 39 39 -
issm/trunk-jpl/src/c/toolkits/plapack/patches/PlapackInvertMatrix.cpp
r12495 r13036 51 51 52 52 /*Some dimensions checks: */ 53 if (mA!=nA) _error 2_("trying to take the invert of a non-square matrix!");53 if (mA!=nA) _error_("trying to take the invert of a non-square matrix!"); 54 54 55 55 /* Set default Plapack parameters */ -
issm/trunk-jpl/src/modules/BamgConvertMesh/BamgConvertMesh.cpp
r12601 r13036 34 34 35 35 /*Check inputs*/ 36 if(nels<0) _error 2_("Number of elements must be positive, check index number of lines");37 if(nods<0) _error 2_("Number of nods must be positive, check x and y sizes");38 if(test1!=3) _error 2_("index should have 3 columns");39 if(test2!=nods) _error 2_("x and y do not have the same length");36 if(nels<0) _error_("Number of elements must be positive, check index number of lines"); 37 if(nods<0) _error_("Number of nods must be positive, check x and y sizes"); 38 if(test1!=3) _error_("index should have 3 columns"); 39 if(test2!=nods) _error_("x and y do not have the same length"); 40 40 41 41 /* Run core computations: */ -
issm/trunk-jpl/src/modules/BamgTriangulate/BamgTriangulate.cpp
r12518 r13036 32 32 33 33 /*Check inputs*/ 34 if(y_rows!=nods) _error 2_("x and y do not have the same length");35 if(x_cols>1 || y_cols>1) _error 2_("x and y should have only one column");36 if(nods<3) _error 2_("At least 3 points are required");34 if(y_rows!=nods) _error_("x and y do not have the same length"); 35 if(x_cols>1 || y_cols>1) _error_("x and y should have only one column"); 36 if(nods<3) _error_("At least 3 points are required"); 37 37 38 38 /* Run core computations: */ -
issm/trunk-jpl/src/modules/Chaco/Chaco.cpp
r12520 r13036 42 42 43 43 #ifndef _HAVE_CHACO_ //only works if dakota library has been compiled in. 44 _error 2_("Chaco not available! Cannot carry out Chaco partitioning!");44 _error_("Chaco not available! Cannot carry out Chaco partitioning!"); 45 45 #endif 46 46 -
issm/trunk-jpl/src/modules/ContourToMesh/ContourToMesh.cpp
r12517 r13036 47 47 if(nlhs!=1 && nlhs!=2){ 48 48 ContourToMeshUsage(); 49 _error 2_("usage. See above");49 _error_("usage. See above"); 50 50 } 51 51 #endif … … 53 53 if(nrhs!=NRHS){ 54 54 ContourToMeshUsage(); 55 _error 2_("usage. See above");55 _error_("usage. See above"); 56 56 } 57 57 … … 82 82 WriteData(PLHS1,in_elem); 83 83 } 84 else _error 2_("wrong interpolation type");84 else _error_("wrong interpolation type"); 85 85 86 86 /*end module: */ -
issm/trunk-jpl/src/modules/Exp2Kml/Exp2Kml.cpp
r12518 r13036 25 25 /*checks on arguments on the matlab side: */ 26 26 if (nlhs > NLHS) { 27 Exp2KmlUsage(); _error 2_("Exp2Kml usage error");27 Exp2KmlUsage(); _error_("Exp2Kml usage error"); 28 28 } 29 29 if (nrhs < NRHS) { 30 Exp2KmlUsage(); _error 2_("Exp2Kml usage error");30 Exp2KmlUsage(); _error_("Exp2Kml usage error"); 31 31 } 32 32 … … 49 49 50 50 /*some checks*/ 51 if (sgn !=+1 && sgn !=-1) _error 2_("Hemisphere sgn=" << sgn << " must be +1 (north) or -1 (south).");52 if (fabs(cm) > 180.) _error 2_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees.");53 if (sp < 0. || sp > 90.) _error 2_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere).");51 if (sgn !=+1 && sgn !=-1) _error_("Hemisphere sgn=" << sgn << " must be +1 (north) or -1 (south)."); 52 if (fabs(cm) > 180.) _error_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees."); 53 if (sp < 0. || sp > 90.) _error_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere)."); 54 54 55 55 /* Run core computations: */ -
issm/trunk-jpl/src/modules/InternalFront/InternalFront.cpp
r12518 r13036 26 26 /*Fetch required fields*/ 27 27 FetchData(&numberofelements,mxGetAssignedField(MODEL,0,"numberofelements")); 28 if(numberofelements<=0) _error 2_("No elements found in the model");28 if(numberofelements<=0) _error_("No elements found in the model"); 29 29 FetchData(&elements,&M,&N,mxGetAssignedField(MODEL,0,"elements")); 30 if(M!=numberofelements || N!=3) _error 2_("Field 'elements' should be of size [md.numberofelements 3]");30 if(M!=numberofelements || N!=3) _error_("Field 'elements' should be of size [md.numberofelements 3]"); 31 31 FetchData(&elementonwater,&M,&N,mxGetAssignedField(MODEL,0,"elementonwater")); 32 if(M!=numberofelements || N!=1) _error 2_("Field 'elementonwater' should be of size [md.numberofelements 1]");32 if(M!=numberofelements || N!=1) _error_("Field 'elementonwater' should be of size [md.numberofelements 1]"); 33 33 FetchData(&elementconnectivity,&M,&N,mxGetAssignedField(MODEL,0,"elementconnectivity")); 34 if(M!=numberofelements || N!=3) _error 2_("Field 'elementconnectivity' should be of size [md.numberofelements 3]");34 if(M!=numberofelements || N!=3) _error_("Field 'elementconnectivity' should be of size [md.numberofelements 3]"); 35 35 36 36 /*Allocate and initialize all variables*/ -
issm/trunk-jpl/src/modules/InterpFromGridToMesh/InterpFromGridToMesh.cpp
r12518 r13036 46 46 if((nlhs!=NLHS) || (nrhs!=6 && nrhs!=7)){ 47 47 InterpFromGridToMeshUsage(); 48 _error 2_("usage. See above");48 _error_("usage. See above"); 49 49 } 50 50 -
issm/trunk-jpl/src/modules/InterpFromMesh2d/InterpFromMesh2d.cpp
r12518 r13036 69 69 if(nlhs!=NLHS){ 70 70 InterpFromMesh2dUsage(); 71 _error 2_("InterpFromMeshToMesh2dUsage usage error");71 _error_("InterpFromMeshToMesh2dUsage usage error"); 72 72 } 73 73 if((nrhs!=6) && (nrhs!=7) && (nrhs!=8)){ 74 74 InterpFromMesh2dUsage(); 75 _error 2_("InterpFromMeshToMesh2dUsage usage error");75 _error_("InterpFromMeshToMesh2dUsage usage error"); 76 76 } 77 77 … … 131 131 /*some checks*/ 132 132 if (x_data_rows!=y_data_rows){ 133 _error 2_("vectors x and y should have the same length!");133 _error_("vectors x and y should have the same length!"); 134 134 } 135 135 if (x_prime_rows!=y_prime_rows){ 136 _error 2_("vectors x_prime and y_prime should have the same length!");136 _error_("vectors x_prime and y_prime should have the same length!"); 137 137 } 138 138 -
issm/trunk-jpl/src/modules/InterpFromMeshToMesh2d/InterpFromMeshToMesh2d.cpp
r12778 r13036 28 28 if(nlhs!=NLHS){ 29 29 InterpFromMeshToMesh2dUsage(); 30 _error 2_("InterpFromMeshToMesh2dUsage usage error");30 _error_("InterpFromMeshToMesh2dUsage usage error"); 31 31 } 32 32 #endif … … 34 34 if(nrhs<NRHS){ 35 35 InterpFromMeshToMesh2dUsage(); 36 _error 2_("InterpFromMeshToMesh2dUsage usage error");36 _error_("InterpFromMeshToMesh2dUsage usage error"); 37 37 } 38 38 39 39 /*Fetch inputs: */ 40 FetchData(&index,&nels_data,&test,INDEX); if(test!=3) _error 2_("index should have 3 columns");41 FetchData(&x_data,&nods_data,X); if(nods_data<3) _error 2_("there should be at least three points");42 FetchData(&y_data,&test,Y); if(test!=nods_data) _error 2_("vectors x and y should have the same length");43 FetchData(&data,&M_data,&N_data,DATA); if(M_data*N_data<1) _error 2_("data is empty");44 FetchData(&x_interp,&N_interp,XINTERP); if(N_interp<1) _error 2_("no interpolation requested");45 FetchData(&y_interp,&test,YINTERP); if(test!=N_interp) _error 2_("vectors x_interp and y_interp should have the same length");40 FetchData(&index,&nels_data,&test,INDEX); if(test!=3) _error_("index should have 3 columns"); 41 FetchData(&x_data,&nods_data,X); if(nods_data<3) _error_("there should be at least three points"); 42 FetchData(&y_data,&test,Y); if(test!=nods_data) _error_("vectors x and y should have the same length"); 43 FetchData(&data,&M_data,&N_data,DATA); if(M_data*N_data<1) _error_("data is empty"); 44 FetchData(&x_interp,&N_interp,XINTERP); if(N_interp<1) _error_("no interpolation requested"); 45 FetchData(&y_interp,&test,YINTERP); if(test!=N_interp) _error_("vectors x_interp and y_interp should have the same length"); 46 46 FetchData(&options,NRHS,nrhs,ARGUMENTS); 47 47 -
issm/trunk-jpl/src/modules/InterpFromMeshToMesh3d/InterpFromMeshToMesh3d.cpp
r12518 r13036 76 76 /*some checks*/ 77 77 if (x_data_rows!=y_data_rows || x_data_rows!=z_data_rows){ 78 _error 2_("vectors x, y and z should have the same length!");78 _error_("vectors x, y and z should have the same length!"); 79 79 } 80 80 if (x_prime_rows!=y_prime_rows || x_prime_rows!=z_prime_rows){ 81 _error 2_("vectors x_prime, y_prime and z_prime should have the same length!");81 _error_("vectors x_prime, y_prime and z_prime should have the same length!"); 82 82 } 83 83 /*get number of elements and number of nodes in the data*/ -
issm/trunk-jpl/src/modules/KMLFileRead/KMLFileRead.cpp
r12518 r13036 45 45 /*checks on arguments on the matlab side: */ 46 46 if (nlhs > NLHS) { 47 KMLFileReadUsage(); _error 2_("KMLFileRead usage error");47 KMLFileReadUsage(); _error_("KMLFileRead usage error"); 48 48 } 49 49 if (nrhs < NRHS) { 50 KMLFileReadUsage(); _error 2_("KMLFileRead usage error");50 KMLFileReadUsage(); _error_("KMLFileRead usage error"); 51 51 } 52 52 -
issm/trunk-jpl/src/modules/KMLMeshWrite/KMLMeshWrite.cpp
r12518 r13036 40 40 /*checks on arguments on the matlab side: */ 41 41 if (nlhs > NLHS) { 42 KMLMeshWriteUsage(); _error 2_("KMLMeshWrite usage error");42 KMLMeshWriteUsage(); _error_("KMLMeshWrite usage error"); 43 43 } 44 44 if (nrhs < NRHS) { 45 KMLMeshWriteUsage(); _error 2_("KMLMeshWrite usage error");45 KMLMeshWriteUsage(); _error_("KMLMeshWrite usage error"); 46 46 } 47 47 … … 87 87 88 88 if (nodecon && (mncon != nnodes)) 89 {_error 2_("Nodal connectivity table, if supplied, must be supplied for all nodes.");}89 {_error_("Nodal connectivity table, if supplied, must be supplied for all nodes.");} 90 90 else if (!nodecon) 91 91 mncon=nnodes; 92 92 if ((llat != nnodes) || (llng != nnodes) || (llat != llng)) 93 _error 2_("Latitude and longitude vectors must be supplied for all nodes.");93 _error_("Latitude and longitude vectors must be supplied for all nodes."); 94 94 if (part && (lprt != nnodes)) 95 _error 2_("Partitioning vector, if supplied, must be supplied for all nodes.");95 _error_("Partitioning vector, if supplied, must be supplied for all nodes."); 96 96 if (data && !((mdata == nnodes) || (mdata == melem))) 97 _error 2_("Data matrix, if supplied, must be supplied for all nodes or all elements.");97 _error_("Data matrix, if supplied, must be supplied for all nodes or all elements."); 98 98 if (cmap && (ncmap != 3)) 99 _error 2_("Colormap matrix, if supplied, must have three columns for rgb.");99 _error_("Colormap matrix, if supplied, must have three columns for rgb."); 100 100 if (!strlen(filnam)) 101 101 strcpy(filnam,"stdout"); -
issm/trunk-jpl/src/modules/KMLOverlay/KMLOverlay.cpp
r12520 r13036 31 31 /*checks on arguments on the matlab side: */ 32 32 if(nlhs>NLHS){ 33 KMLOverlayUsage(); _error 2_("KMLOverlay usage error");33 KMLOverlayUsage(); _error_("KMLOverlay usage error"); 34 34 } 35 35 if(nrhs<NRHS){ 36 KMLOverlayUsage(); _error 2_("KMLOverlay usage error");36 KMLOverlayUsage(); _error_("KMLOverlay usage error"); 37 37 } 38 38 … … 51 51 52 52 /*some checks*/ 53 if (nlat !=2) _error 2_("Latitudinal axes \"lataxis\" require two double values, not " << nlat << ".");54 if (nlong!=2) _error 2_("Longitudinal axes \"longaxis\" require two double values, not " << nlong << ".");55 if (!nimages) _error 2_("No image files provided.");53 if (nlat !=2) _error_("Latitudinal axes \"lataxis\" require two double values, not " << nlat << "."); 54 if (nlong!=2) _error_("Longitudinal axes \"longaxis\" require two double values, not " << nlong << "."); 55 if (!nimages) _error_("No image files provided."); 56 56 57 57 if ((int)dzip){ … … 90 90 if (verbose) _printLine_(czip); 91 91 92 if (mexEvalString(czip)) _error 2_("Error zipping file \"" << filkmz << "\".");92 if (mexEvalString(czip)) _error_("Error zipping file \"" << filkmz << "\"."); 93 93 xfree((void**)&czip); 94 94 xfree((void**)&filkmz); -
issm/trunk-jpl/src/modules/Kml2Exp/Kml2Exp.cpp
r12518 r13036 22 22 /*checks on arguments on the matlab side: */ 23 23 if (nlhs > NLHS) { 24 Kml2ExpUsage(); _error 2_("Kml2Exp usage error");24 Kml2ExpUsage(); _error_("Kml2Exp usage error"); 25 25 } 26 26 if (nrhs < NRHS) { 27 Kml2ExpUsage(); _error 2_("Kml2Exp usage error");27 Kml2ExpUsage(); _error_("Kml2Exp usage error"); 28 28 } 29 29 … … 43 43 44 44 /*some checks*/ 45 if (sgn !=+1 && sgn!= -1) _error 2_("Hemisphere sgn=" << sgn << " must be +1 (north) or -1 (south).");46 if (fabs(cm) > 180.) _error 2_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees.");47 if (sp < 0. || sp > 90.) _error 2_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere).");45 if (sgn !=+1 && sgn!= -1) _error_("Hemisphere sgn=" << sgn << " must be +1 (north) or -1 (south)."); 46 if (fabs(cm) > 180.) _error_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees."); 47 if (sp < 0. || sp > 90.) _error_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere)."); 48 48 49 49 /* Run core computations: */ -
issm/trunk-jpl/src/modules/Kriging/Kriging.cpp
r12518 r13036 22 22 /*checks on arguments on the matlab side: */ 23 23 if (nrhs<NRHS || nlhs>NLHS){ 24 KrigingUsage(); _error 2_("Kriging usage error");24 KrigingUsage(); _error_("Kriging usage error"); 25 25 } 26 26 27 27 /*Fetch inputs: */ 28 28 FetchData(&x,&n_obs,X); 29 FetchData(&y,&N,Y); if(n_obs!=N) _error 2_("x and y should have the same size");30 FetchData(&observations,&N,OBSERVATIONS); if(n_obs!=N) _error 2_("x and observations should have the same size");29 FetchData(&y,&N,Y); if(n_obs!=N) _error_("x and y should have the same size"); 30 FetchData(&observations,&N,OBSERVATIONS); if(n_obs!=N) _error_("x and observations should have the same size"); 31 31 FetchData(&x_interp,&M_interp,&N_interp,XINTERP); 32 FetchData(&y_interp,&M,&N,YINTERP); if(N!=N_interp || M!=M_interp) _error 2_("x_interp and y_interp should have the same size");32 FetchData(&y_interp,&M,&N,YINTERP); if(N!=N_interp || M!=M_interp) _error_("x_interp and y_interp should have the same size"); 33 33 FetchData(&options,NRHS,nrhs,prhs); 34 34 -
issm/trunk-jpl/src/modules/Ll2xy/Ll2xy.cpp
r12518 r13036 25 25 /*checks on arguments on the matlab side: */ 26 26 if (nlhs > NLHS) { 27 Ll2xyUsage(); _error 2_("Ll2xy usage error");27 Ll2xyUsage(); _error_("Ll2xy usage error"); 28 28 } 29 29 if (nrhs < NRHS) { 30 Ll2xyUsage(); _error 2_("Ll2xy usage error");30 Ll2xyUsage(); _error_("Ll2xy usage error"); 31 31 } 32 32 … … 47 47 /*some checks*/ 48 48 if (verbose) _printLine_("Checking inputs:"); 49 if (nlat != nlon){_error 2_("Must have same number of lat[" << nlat << "] and lon[" << nlon << "] coordinates.");}49 if (nlat != nlon){_error_("Must have same number of lat[" << nlat << "] and lon[" << nlon << "] coordinates.");} 50 50 else ncoord=nlat; 51 if (sgn != +1 && sgn != -1) _error 2_("Hemisphere sgn=" << sgn << " must be +1 (north) or -1 (south).");52 if (fabs(cm) > 180.) _error 2_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees.");53 if (sp < 0. || sp > 90.) _error 2_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere).");51 if (sgn != +1 && sgn != -1) _error_("Hemisphere sgn=" << sgn << " must be +1 (north) or -1 (south)."); 52 if (fabs(cm) > 180.) _error_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees."); 53 if (sp < 0. || sp > 90.) _error_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere)."); 54 54 55 55 x=(double*)mxMalloc(ncoord*sizeof(double)); -
issm/trunk-jpl/src/modules/MeshProfileIntersection/MeshProfileIntersection.cpp
r12517 r13036 54 54 //index 55 55 FetchData(&double_index,&nel,&dummy,INDEX); 56 if(dummy!=3 && dummy!=6)_error 2_("element triangulation should be of 3 or 6 column width!");56 if(dummy!=3 && dummy!=6)_error_("element triangulation should be of 3 or 6 column width!"); 57 57 index=(int*)xmalloc(nel*3*sizeof(int)); 58 58 for(i=0;i<nel;i++){ -
issm/trunk-jpl/src/modules/Scotch/Scotch.cpp
r12497 r13036 25 25 26 26 #ifndef _HAVE_SCOTCH_ //only works if scotch library has been compiled in. 27 _error 2_("Scotch not available! Cannot carry out Scotch partitioning!");27 _error_("Scotch not available! Cannot carry out Scotch partitioning!"); 28 28 #else 29 29 -
issm/trunk-jpl/src/modules/Shp2Kml/Shp2Kml.cpp
r12518 r13036 25 25 26 26 #ifndef _HAVE_SHAPELIB_ //only works if shapelib library has been compiled in. 27 _error 2_("Shapelib not available! Cannot carry out shp file translation!");27 _error_("Shapelib not available! Cannot carry out shp file translation!"); 28 28 #endif 29 29 … … 33 33 /*checks on arguments on the matlab side: */ 34 34 if (nlhs > NLHS) { 35 Shp2KmlUsage(); _error 2_("Shp2Kml usage error");35 Shp2KmlUsage(); _error_("Shp2Kml usage error"); 36 36 } 37 37 if (nrhs < NRHS) { 38 Shp2KmlUsage(); _error 2_("Shp2Kml usage error");38 Shp2KmlUsage(); _error_("Shp2Kml usage error"); 39 39 } 40 40 … … 54 54 55 55 /*some checks*/ 56 if (sgn < -1 || sgn > +1) _error 2_("Hemisphere sgn=" << sgn << " must be +1 (north), -1 (south), or 0 (no translation).");57 if (fabs(cm) > 180.) _error 2_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees.");58 if (sp < 0. || sp > 90.) _error 2_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere).");56 if (sgn < -1 || sgn > +1) _error_("Hemisphere sgn=" << sgn << " must be +1 (north), -1 (south), or 0 (no translation)."); 57 if (fabs(cm) > 180.) _error_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees."); 58 if (sp < 0. || sp > 90.) _error_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere)."); 59 59 60 60 /* Run core computations: */ -
issm/trunk-jpl/src/modules/TriMeshProcessRifts/TriMeshProcessRifts.cpp
r12993 r13036 66 66 mexPrintf(" %s format error.\n", __FUNCT__); 67 67 TriMeshProcessRiftsUsage(); 68 _error 2_("bad usage");68 _error_("bad usage"); 69 69 } 70 70 … … 81 81 } 82 82 else{ 83 _error 2_("first argument should be the element list");83 _error_("first argument should be the element list"); 84 84 } 85 85 … … 94 94 } 95 95 else{ 96 _error 2_("second argument should be the x corrdinate list");96 _error_("second argument should be the x corrdinate list"); 97 97 } 98 98 … … 106 106 } 107 107 else{ 108 _error 2_("third argument should be the y corrdinate list");108 _error_("third argument should be the y corrdinate list"); 109 109 } 110 110 … … 121 121 } 122 122 else{ 123 _error 2_("fourth argument should be the segments list");123 _error_("fourth argument should be the segments list"); 124 124 } 125 125 … … 133 133 } 134 134 else{ 135 _error 2_("fourth argument should be the segmentmarkers list");135 _error_("fourth argument should be the segmentmarkers list"); 136 136 } 137 137 -
issm/trunk-jpl/src/modules/Xy2ll/Xy2ll.cpp
r12518 r13036 24 24 /*checks on arguments on the matlab side: */ 25 25 if (nlhs > NLHS) { 26 Xy2llUsage(); _error 2_("Xy2ll usage error");26 Xy2llUsage(); _error_("Xy2ll usage error"); 27 27 } 28 28 if (nrhs < NRHS) { 29 Xy2llUsage(); _error 2_("Xy2ll usage error");29 Xy2llUsage(); _error_("Xy2ll usage error"); 30 30 } 31 31 … … 45 45 46 46 /*some checks*/ 47 if (nx != ny){_error 2_("Must have same number of x[" << nx << "] and y[" << ny << "] coordinates.");}47 if (nx != ny){_error_("Must have same number of x[" << nx << "] and y[" << ny << "] coordinates.");} 48 48 else ncoord=nx; 49 if (sgn != +1 && sgn != -1) _error 2_("Hemisphere sgn=" << sgn << " must be +1 (north) or -1 (south).");50 if (fabs(cm) > 180.) _error 2_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees.");51 if (sp < 0. || sp > 90.) _error 2_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere).");49 if (sgn != +1 && sgn != -1) _error_("Hemisphere sgn=" << sgn << " must be +1 (north) or -1 (south)."); 50 if (fabs(cm) > 180.) _error_("Central meridian cm=" << cm << " must be between -180 (west) and +180 (east) degrees."); 51 if (sp < 0. || sp > 90.) _error_("Standard parallel sp=" << sp << " must be between 0 and 90 degrees (in specified hemisphere)."); 52 52 53 53 lat=(double*)mxMalloc(ncoord*sizeof(double));
Note:
See TracChangeset
for help on using the changeset viewer.