@@ -209,7 +209,7 @@ int read_objects_from_intputfile(FILE *fp, char *input_file,char **varname_list,
default:
sprintf(errormessage,"Error in Input file, line %i, only 0, 1, 3, 5, 7 or 9 commas are allowed per line, but found %i !",lineno,occurence_commas);
err(errormessage);
declare_error(errormessage);
break;
}
...
...
@@ -217,7 +217,7 @@ int read_objects_from_intputfile(FILE *fp, char *input_file,char **varname_list,
default:
sprintf(errormessage,"Error in Input file, line %i, only 4 (two pairs) of double quotes are allowed per line, but found %i !",lineno,occurence_doublequotes);
err(errormessage);
declare_error(errormessage);
break;
}
...
...
@@ -292,7 +292,7 @@ int get_int_from_objectlist(char string_in[STRING_SIZE], int number_readobject,
//printf("String %s found with value -%s- \n",string_in,value_list[ii]);
if(strlen(value_list[ii])==0){
sprintf(errormessage,"Error in Input file, value of object %s is empty!",string_in);
@@ -162,7 +162,7 @@ int main ( int argc, char **argv )
read_par_json(stdout,fileinp);
else{
if(MYID==0)
err(" Old Input files (.inp) are no longer supported. \n Please use .json input files instead. ");
declare_error(" Old Input files (.inp) are no longer supported. \n Please use .json input files instead. ");
}
}
...
...
@@ -188,14 +188,14 @@ int main ( int argc, char **argv )
break;
case2:
if((FP=fopen(LOG_FILE,"w"))==NULL)
err(" Opening log-file failed.");
declare_error(" Opening log-file failed.");
/* logging information will be written to LOG_FILE */
break;
}
/* all other nodes write logging info to LOG_FILE */
if(MYID>0){
if((FP=fopen(LOG_FILE,"w"))==NULL)
err(" Opening log-file failed.");
declare_error(" Opening log-file failed.");
fprintf(FP," This is the log-file %s generated by PE %d \n\n",
LOG_FILE,MYID);
}
...
...
@@ -218,7 +218,7 @@ int main ( int argc, char **argv )
/* For the Rotated Staggered Grid only second order FD operators are implemented
if ( RSG ) {
if ( FDORDER > 2 )
err ( " For the Rotated Staggered Grid only second order FD operators are implemented. Please revise parameter FDORDER in the input file! " );
declare_error ( " For the Rotated Staggered Grid only second order FD operators are implemented. Please revise parameter FDORDER in the input file! " );
}*/
...
...
@@ -302,7 +302,7 @@ int main ( int argc, char **argv )
/* allocate buffer for buffering messages */
buff_addr=malloc(buffsize);
if(!buff_addr)
err("allocation failure for buffer for MPI_Bsend !");
declare_error("allocation failure for buffer for MPI_Bsend !");
MPI_Buffer_attach(buff_addr,buffsize);
/* allocation for request and status arrays */
...
...
@@ -677,7 +677,7 @@ int main ( int argc, char **argv )
for(nt=1;nt<=NT;nt++){
if(isnan(pvy[NY/2][NX/2])){
fprintf(FP,"\n Time step: %d; pvy: %f \n",nt,pvy[NY/2][NX/2]);