Nature Language: sendProcName:Sends the processor name from processes in destNode of crossComm to srcNode.
  
CPP: int sendProcName(int destNode, int srcNode, char *destProcName){ \n    if (crossCommRank == srcNode){ \n        MPI_Send(myProcName, MPI_MAX_PROCESSOR_NAME, MPI_CHAR, destNode, TAG, crossComm); \n    } \n    else if (crossCommRank == destNode){ \n        MPI_Recv(destProcName, MPI_MAX_PROCESSOR_NAME, MPI_CHAR, srcNode, TAG, crossComm, &status); \n    } \n}",
  
Fortran: SUBROUTINE sendProcName(destNode, srcNode, destProcName)\ninteger, intent(in) :: srcNode, destNode\ncharacter (len = MPI_MAX_PROCESSOR_NAME), intent(out) :: destProcName\n\nIF (crossCommRank == srcNode) THEN\nCALL MPI_Send(myProcName, MPI_MAX_PROCESSOR_NAME, &\nMPI_CHARACTER, destNode, tag, crossComm, ierr)\nELSE IF (crossCommRank == destNode) THEN\nCALL MPI_Recv(destProcName, MPI_MAX_PROCESSOR_NAME, &\nMPI_CHARACTER, srcNode, tag, crossComm, status, ierr)\nEND IF\n\nEND SUBROUTINE sendProcName
  