+int PMPI_Error_string(int errorcode, char* string, int* resultlen){
+ if (errorcode<0 || string ==nullptr){
+ return MPI_ERR_ARG;
+ } else {
+ static const char *smpi_error_string[] = {
+ FOREACH_ERROR(GENERATE_STRING)
+ };
+ *resultlen = strlen(smpi_error_string[errorcode]);
+ strncpy(string, smpi_error_string[errorcode], *resultlen);
+ return MPI_SUCCESS;
+ }
+}
+