Nature Language: benchmarkSupport:This function compares the level of thread support needed by a particular benchmark with the level provided by the implementation.
  
CPP: int benchmarkSupport(int required){\n    int benchSupport;\n    if (required <= threadSupport){\n        benchSupport = TRUE;\n    } else {\n        benchSupport = FALSE;\n    }\n    return benchSupport;\n}",
  
Fortran: FUNCTION findRank(rankIn)\n integer, intent(in) :: rankIn\n integer :: findRank\n\n !Figure out actual MPI rank\n IF (rankIn < 0) THEN\n findRank = numMPIprocs + rankIn\n ELSE\n findRank = rankIn\n END IF\n\n !Check if findRank is too big or still -ve\n IF (findRank > (numMPIprocs-1)) THEN\n !write(,) "Warning: Rank input greater than total",&\n ! "process count. Using Rank = ", numMPIprocs-1\n findRank = numMPIprocs - 1\n ELSE IF (findRank < 0) THEN\n !write(,) "Warning: MPI process offset greater than",&\n ! "total process count. Using Rank = 0"\n findRank = 0\n END IF\n\n END FUNCTION findRank
  