Nature Language: threadSupportToString:Converts the threadSupport integer variable to a string for output.
  
CPP: int threadSupportToString(int threadSupport, char *string){\\n\n    if (threadSupport == MPI_THREAD_SINGLE){\\n\n        strcpy(string,\"MPI_THREAD_SINGLE\");\\n\n    } else if (threadSupport == MPI_THREAD_FUNNELED){\\n\n        strcpy(string,\"MPI_THREAD_FUNNELED\");\\n\n    } else if (threadSupport == MPI_THREAD_SERIALIZED){\\n\n        strcpy(string,\"MPI_THREAD_SERIALIZED\");\\n\n    } else if (threadSupport == MPI_THREAD_MULTIPLE){\\n\n        strcpy(string,\"MPI_THREAD_MULTIPLE\");\\n\n    }\\n\n    return 0;\\n\n}",
  
Fortran: SUBROUTINE threadSupportToString(threadSupport, string)\n integer, intent(in) :: threadSupport\n character (len = MAXSTRING), intent(out) :: string\n\n IF (threadSupport == MPI_THREAD_SINGLE) THEN\n string = "MPI_THREAD_SINGLE"\n ELSE IF (threadSupport == MPI_THREAD_FUNNELED) THEN\n string = "MPI_THREAD_FUNNELED"\n ELSE IF (threadSupport == MPI_THREAD_SERIALIZED) THEN\n string = "MPI_THREAD_SERIALIZED"\n ELSE IF (threadSupport == MPI_THREAD_MULTIPLE) THEN\n string = "MPI_THREAD_MULTIPLE"\n END IF\n\n END SUBROUTINE threadSupportToString
  