CUDA Libraries and MPI+OpenMP+CUDA - Prace Training Portal

MPI-GPU binding – Code Snippet (C)/* What is my name? */MPI_Get_processor_name(lNodeName, &lNodeNameLength);/* Collecting all names... */lNodeNameRbuf = (char*) malloc(lSize * MPI_MAX_PROCESSOR_NAME * sizeof(char));MPI_Allgather(lNodeName, MPI_MAX_PROCESSOR_NAME, MPI_CHAR, lNodeNameRbuf,MPI_MAX_PROCESSOR_NAME, MPI_CHAR, MPI_COMM_WORLD);/* lRanksThisNode is a list of the global ranks running on this node */lRanksThisNode = (int*) malloc(lSize * sizeof(int));for(i = 0; i < lSize; i++) {if(strncmp(lNodeName, (lNodeNameRbuf + i * MPI_MAX_PROCESSOR_NAME),MPI_MAX_PROCESSOR_NAME) == 0) {lRanksThisNode[lNumRanksThisNode] = i;lNumRanksThisNode++;}}February 10, 2012 PRACE Winter School 201244