Changeset 3056
- Timestamp:
- 02/19/10 12:03:25 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/Qmux/SpawnCoreParallel.cpp
r3042 r3056 111 111 #endif 112 112 113 /*broadcast response descriptors: */113 /*broadcast numresponses: */ 114 114 MPI_Bcast(&numresponses,1,MPI_INT,0,MPI_COMM_WORLD); 115 if(my_rank!=0){116 responses_descriptors=(char**)xmalloc(numresponses*sizeof(char*));117 }118 for(i=0;i<numresponses;i++){119 if(my_rank==0){120 string=responses_descriptors[i];121 string_length=(strlen(string)+1)*sizeof(char);122 }123 MPI_Bcast(&string_length,1,MPI_INT,0,MPI_COMM_WORLD);124 if(my_rank!=0)string=(char*)xmalloc(string_length);125 MPI_Bcast(string,string_length,MPI_CHAR,0,MPI_COMM_WORLD);126 if(my_rank!=0)responses_descriptors[i]=string;127 }128 115 129 116 #ifdef _ISSM_DEBUG_
Note:
See TracChangeset
for help on using the changeset viewer.